graphics/psdrv/graphics.c

   1 /*
   2  *      PostScript driver graphics functions
   3  *
   4  *      Copyright 1998  Huw D M Davies
   5  *
   6  */
   7 #include <string.h>
   8 #include <math.h>
   9 #include "psdrv.h"
  10 #include "debug.h"
  11 #include "winspool.h"
  12 #ifndef PI
  13 #define PI M_PI
  14 #endif
  15
  16 /**********************************************************************
  17  *           PSDRV_MoveToEx
  18  */
  19 BOOL PSDRV_MoveToEx(DC *dc, INT x, INT y, LPPOINT pt)
  20 {
  21     TRACE(psdrv, "%d %d\n", x, y);
  22     if (pt)
  23     {
  24         pt->x = dc->w.CursPosX;
  25         pt->y = dc->w.CursPosY;
  26     }
  27     dc->w.CursPosX = x;
  28     dc->w.CursPosY = y;
  29
  30     return TRUE;
  31 }
  32
  33
  34 /***********************************************************************
  35  *           PSDRV_LineTo
  36  */
  37 BOOL PSDRV_LineTo(DC *dc, INT x, INT y)
  38 {
  39     TRACE(psdrv, "%d %d\n", x, y);
  40
  41     PSDRV_SetPen(dc);
  42     PSDRV_WriteMoveTo(dc, XLPTODP(dc, dc->w.CursPosX),
  43                           YLPTODP(dc, dc->w.CursPosY));
  44     PSDRV_WriteLineTo(dc, XLPTODP(dc, x), YLPTODP(dc, y));
  45     PSDRV_WriteStroke(dc);
  46
  47     dc->w.CursPosX = x;
  48     dc->w.CursPosY = y;
  49     return TRUE;
  50 }
  51
  52
  53 /***********************************************************************
  54  *           PSDRV_Rectangle
  55  */
  56 BOOL PSDRV_Rectangle( DC *dc, INT left, INT top, INT right,
  57                        INT bottom )
  58 {
  59     INT width = XLSTODS(dc, right - left);
  60     INT height = YLSTODS(dc, bottom - top);
  61
  62
  63     TRACE(psdrv, "%d %d - %d %d\n", left, top, right, bottom);
  64
  65     PSDRV_WriteRectangle(dc, XLPTODP(dc, left), YLPTODP(dc, top),
  66                              width, height);
  67
  68     PSDRV_Brush(dc,0);
  69     PSDRV_SetPen(dc);
  70     PSDRV_WriteStroke(dc);
  71     return TRUE;
  72 }
  73
  74
  75 /***********************************************************************
  76  *           PSDRV_RoundRect
  77  */
  78 BOOL PSDRV_RoundRect( DC *dc, INT left, INT top, INT right,
  79                         INT bottom, INT ell_width, INT ell_height )
  80 {
  81     left = XLPTODP( dc, left );
  82     right = XLPTODP( dc, right );
  83     top = YLPTODP( dc, top );
  84     bottom = YLPTODP( dc, bottom );
  85     ell_width = XLSTODS( dc, ell_width );
  86     ell_height = YLSTODS( dc, ell_height );
  87
  88     if( left > right ) { INT tmp = left; left = right; right = tmp; }
  89     if( top > bottom ) { INT tmp = top; top = bottom; bottom = tmp; }
  90
  91     if(ell_width > right - left) ell_width = right - left;
  92     if(ell_height > bottom - top) ell_height = bottom - top;
  93
  94     PSDRV_WriteMoveTo( dc, left, top + ell_height/2 );
  95     PSDRV_WriteArc( dc, left + ell_width/2, top + ell_height/2, ell_width,
  96                     ell_height, 90.0, 180.0);
  97     PSDRV_WriteLineTo( dc, right - ell_width/2, top );
  98     PSDRV_WriteArc( dc, right - ell_width/2, top + ell_height/2, ell_width,
  99                     ell_height, 0.0, 90.0);
 100     PSDRV_WriteLineTo( dc, right, bottom - ell_height/2 );
 101     PSDRV_WriteArc( dc, right - ell_width/2, bottom - ell_height/2, ell_width,
 102                     ell_height, -90.0, 0.0);
 103     PSDRV_WriteLineTo( dc, right - ell_width/2, bottom);
 104     PSDRV_WriteArc( dc, left + ell_width/2, bottom - ell_height/2, ell_width,
 105                     ell_height, 180.0, -90.0);
 106     PSDRV_WriteClosePath( dc );
 107
 108     PSDRV_Brush(dc,0);
 109     PSDRV_SetPen(dc);
 110     PSDRV_WriteStroke(dc);
 111     return TRUE;
 112 }
 113
 114 /***********************************************************************
 115  *           PSDRV_DrawArc
 116  *
 117  * Does the work of Arc, Chord and Pie. lines is 0, 1 or 2 respectively.
 118  */
 119 static BOOL PSDRV_DrawArc( DC *dc, INT left, INT top,
 120                              INT right, INT bottom,
 121                              INT xstart, INT ystart,
 122                              INT xend, INT yend,
 123                              int lines )
 124 {
 125     INT x, y, h, w;
 126     double start_angle, end_angle, ratio;
 127
 128     x = XLPTODP(dc, (left + right)/2);
 129     y = YLPTODP(dc, (top + bottom)/2);
 130
 131     w = XLSTODS(dc, (right - left));
 132     h = YLSTODS(dc, (bottom - top));
 133
 134     if(w < 0) w = -w;
 135     if(h < 0) h = -h;
 136     ratio = ((double)w)/h;
 137
 138     /* angle is the angle after the rectangle is transformed to a square and is
 139        measured anticlockwise from the +ve x-axis */
 140
 141     start_angle = atan2((double)(y - ystart) * ratio, (double)(xstart - x));
 142     end_angle = atan2((double)(y - yend) * ratio, (double)(xend - x));
 143
 144     start_angle *= 180.0 / PI;
 145     end_angle *= 180.0 / PI;
 146
 147     if(lines == 2) /* pie */
 148         PSDRV_WriteMoveTo(dc, x, y);
 149     PSDRV_WriteArc(dc, x, y, w, h, start_angle, end_angle);
 150     if(lines == 1 || lines == 2) { /* chord or pie */
 151         PSDRV_WriteClosePath(dc);
 152         PSDRV_Brush(dc,0);
 153     }
 154     PSDRV_SetPen(dc);
 155     PSDRV_WriteStroke(dc);
 156     return TRUE;
 157 }
 158
 159
 160 /***********************************************************************
 161  *           PSDRV_Arc
 162  */
 163 BOOL PSDRV_Arc( DC *dc, INT left, INT top, INT right, INT bottom,
 164                   INT xstart, INT ystart, INT xend, INT yend )
 165 {
 166     return PSDRV_DrawArc( dc, left, top, right, bottom, xstart, ystart,
 167                          xend, yend, 0 );
 168 }
 169
 170 /***********************************************************************
 171  *           PSDRV_Chord
 172  */
 173 BOOL PSDRV_Chord( DC *dc, INT left, INT top, INT right, INT bottom,
 174                   INT xstart, INT ystart, INT xend, INT yend )
 175 {
 176     return PSDRV_DrawArc( dc, left, top, right, bottom, xstart, ystart,
 177                          xend, yend, 1 );
 178 }
 179
 180
 181 /***********************************************************************
 182  *           PSDRV_Pie
 183  */
 184 BOOL PSDRV_Pie( DC *dc, INT left, INT top, INT right, INT bottom,
 185                   INT xstart, INT ystart, INT xend, INT yend )
 186 {
 187     return PSDRV_DrawArc( dc, left, top, right, bottom, xstart, ystart,
 188                          xend, yend, 2 );
 189 }
 190
 191
 192 /***********************************************************************
 193  *           PSDRV_Ellipse
 194  */
 195 BOOL PSDRV_Ellipse( DC *dc, INT left, INT top, INT right, INT bottom)
 196 {
 197     INT x, y, w, h;
 198
 199     TRACE(psdrv, "%d %d - %d %d\n", left, top, right, bottom);
 200
 201     x = XLPTODP(dc, (left + right)/2);
 202     y = YLPTODP(dc, (top + bottom)/2);
 203
 204     w = XLSTODS(dc, (right - left));
 205     h = YLSTODS(dc, (bottom - top));
 206
 207     PSDRV_WriteArc(dc, x, y, w, h, 0.0, 360.0);
 208     PSDRV_WriteClosePath(dc);
 209     PSDRV_Brush(dc,0);
 210     PSDRV_SetPen(dc);
 211     PSDRV_WriteStroke(dc);
 212     return TRUE;
 213 }
 214
 215
 216 /***********************************************************************
 217  *           PSDRV_PolyPolyline
 218  */
 219 BOOL PSDRV_PolyPolyline( DC *dc, const POINT* pts, const DWORD* counts,
 220                            DWORD polylines )
 221 {
 222     DWORD polyline, line;
 223     const POINT* pt;
 224     TRACE(psdrv, "\n");
 225
 226     pt = pts;
 227     for(polyline = 0; polyline < polylines; polyline++) {
 228         PSDRV_WriteMoveTo(dc, XLPTODP(dc, pt->x), YLPTODP(dc, pt->y));
 229         pt++;
 230         for(line = 1; line < counts[polyline]; line++) {
 231             PSDRV_WriteLineTo(dc, XLPTODP(dc, pt->x), YLPTODP(dc, pt->y));
 232             pt++;
 233         }
 234     }
 235     PSDRV_SetPen(dc);
 236     PSDRV_WriteStroke(dc);
 237     return TRUE;
 238 }
 239
 240
 241 /***********************************************************************
 242  *           PSDRV_Polyline
 243  */
 244 BOOL PSDRV_Polyline( DC *dc, const POINT* pt, INT count )
 245 {
 246     return PSDRV_PolyPolyline( dc, pt, (LPDWORD) &count, 1 );
 247 }
 248
 249
 250 /***********************************************************************
 251  *           PSDRV_PolyPolygon
 252  */
 253 BOOL PSDRV_PolyPolygon( DC *dc, const POINT* pts, const INT* counts,
 254                           UINT polygons )
 255 {
 256     DWORD polygon, line;
 257     const POINT* pt;
 258     TRACE(psdrv, "\n");
 259
 260     pt = pts;
 261     for(polygon = 0; polygon < polygons; polygon++) {
 262         PSDRV_WriteMoveTo(dc, XLPTODP(dc, pt->x), YLPTODP(dc, pt->y));
 263         pt++;
 264         for(line = 1; line < counts[polygon]; line++) {
 265             PSDRV_WriteLineTo(dc, XLPTODP(dc, pt->x), YLPTODP(dc, pt->y));
 266             pt++;
 267         }
 268         PSDRV_WriteClosePath(dc);
 269     }
 270
 271     if(dc->w.polyFillMode == ALTERNATE)
 272         PSDRV_Brush(dc, 1);
 273     else /* WINDING */
 274         PSDRV_Brush(dc, 0);
 275     PSDRV_SetPen(dc);
 276     PSDRV_WriteStroke(dc);
 277     return TRUE;
 278 }
 279
 280
 281 /***********************************************************************
 282  *           PSDRV_Polygon
 283  */
 284 BOOL PSDRV_Polygon( DC *dc, const POINT* pt, INT count )
 285 {
 286      return PSDRV_PolyPolygon( dc, pt, &count, 1 );
 287 }
 288
 289
 290 /***********************************************************************
 291  *           PSDRV_SetPixel
 292  */
 293 COLORREF PSDRV_SetPixel( DC *dc, INT x, INT y, COLORREF color )
 294 {
 295     PSDRV_PDEVICE *physDev = (PSDRV_PDEVICE *)dc->physDev;
 296     PSCOLOR pscolor;
 297
 298     x = XLPTODP(dc, x);
 299     y = YLPTODP(dc, y);
 300
 301     PSDRV_WriteRectangle( dc, x, y, 0, 0 );
 302     PSDRV_CreateColor( physDev, &pscolor, color );
 303     PSDRV_WriteSetColor( dc, &pscolor );
 304     PSDRV_WriteFill( dc );
 305     return color;
 306 }