git.demorecorder.com Git - free-sw/xcb/demo/blob - tests/julia.c

   1 #include <stdlib.h>
   2 #include <stdio.h>
   3
   4 #include <X11/Xlib.h>
   5 #include <X11/XCB/xcb.h>
   6 #include <X11/XCB/shm.h>
   7 #include <X11/XCB/xcb_aux.h>
   8 #include <X11/XCB/xcb_image.h>
   9
  10 #include "julia.h"
  11
  12 #define W_W 640
  13 #define W_H 480
  14
  15 /* Parameters of the fractal */
  16
  17 /* double cr = -0.7927; */
  18 /* double ci = 0.1609; */
  19
  20 /* double cr = 0.32; */
  21 /* double ci = 0.043; */
  22
  23 /* double cr = -1.1380; */
  24 /* double ci = -0.2403; */
  25
  26 /* double cr = -0.0986; */
  27 /* double ci = -0.65186; */
  28
  29 /* double cr = -0.1225; */
  30 /* double ci = 0.7449; */
  31
  32 double cr = -0.3380;
  33 double ci = -0.6230;
  34 double origin_x = -1.8;
  35 double origin_y = -1.2;
  36 double width = 3.6;
  37 double height = 2.4;
  38
  39 /* Numbers of colors in the palette */
  40 int cmax = 316;
  41
  42 void
  43 palette_julia (Data *datap)
  44 {
  45   XCBAllocColorRep *rep;
  46   int               i;
  47
  48   datap->palette = (CARD32 *)malloc (sizeof (CARD32) * cmax);
  49
  50   for (i = 0 ; i < cmax ; i++)
  51     {
  52       if (i < 128)
  53         rep = XCBAllocColorReply (datap->conn,
  54                                   XCBAllocColor (datap->conn,
  55                                                  datap->cmap,
  56                                                  i<<9, 0, 0),
  57                                   0);
  58       else if (i < 255)
  59         rep = XCBAllocColorReply (datap->conn,
  60                                   XCBAllocColor (datap->conn,
  61                                                  datap->cmap,
  62                                                  65535, (i-127)<<9, 0),
  63                                   0);
  64       else
  65         rep = XCBAllocColorReply (datap->conn,
  66                                   XCBAllocColor (datap->conn,
  67                                                  datap->cmap,
  68                                                  65535, 65535, (i-255)<<10),
  69                                   0);
  70
  71       if (!rep)
  72         datap->palette[i] = 0;
  73       else
  74         datap->palette[i] = rep->pixel;
  75       free (rep);
  76     }
  77
  78 }
  79
  80 void
  81 draw_julia (Data *datap)
  82 {
  83   double    zr, zi, t;
  84   int       c;
  85   int       i, j;
  86
  87   datap->image = XCBImageGet (datap->conn, datap->draw,
  88                        0, 0, W_W, W_H,
  89                        AllPlanes, datap->format);
  90
  91   for (i = 0 ; i < datap->image->width ; i++)
  92     for (j = 0 ; j < datap->image->height ; j++)
  93       {
  94         zr = origin_x + width * (double)i / (double)datap->image->width;
  95         zi = origin_y + height * (double)j / (double)datap->image->height;
  96         c = 0;
  97         while ((zr*zr + zi*zi < 4.0) &&
  98                (c < cmax-1))
  99           {
 100             t = zr;
 101             zr = zr*zr - zi*zi + cr;
 102             zi = 2.0*t*zi + ci;
 103             c++;
 104           }
 105         XCBImagePutPixel (datap->image,
 106                           i,j,
 107                           datap->palette[c]);
 108       }
 109
 110   XCBImagePut (datap->conn, datap->draw, datap->gc, datap->image,
 111                0, 0, 0, 0, W_W, W_H);
 112 }
 113
 114 int
 115 main (int argc, char *argv[])
 116 {
 117   Data             data;
 118   XCBSCREEN       *screen;
 119   XCBDRAWABLE      win;
 120   XCBDRAWABLE      rect;
 121   XCBGCONTEXT      bgcolor;
 122   CARD32           mask;
 123   CARD32           valgc[2];
 124   CARD32           valwin[3];
 125   XCBRECTANGLE     rect_coord = { 0, 0, W_W, W_H};
 126   XCBGenericEvent *e;
 127   int              screen_num;
 128
 129   data.conn = XCBConnect (0, &screen_num);
 130   screen = XCBAuxGetScreen (data.conn, screen_num);
 131   data.depth = XCBAuxGetDepth (data.conn, screen);
 132
 133   win.window = screen->root;
 134
 135   data.gc = XCBGCONTEXTNew (data.conn);
 136   mask = GCForeground | GCGraphicsExposures;
 137   valgc[0] = screen->black_pixel;
 138   valgc[1] = 0; /* no graphics exposures */
 139   XCBCreateGC (data.conn, data.gc, win, mask, valgc);
 140
 141   bgcolor = XCBGCONTEXTNew (data.conn);
 142   mask = GCForeground | GCGraphicsExposures;
 143   valgc[0] = screen->white_pixel;
 144   valgc[1] = 0; /* no graphics exposures */
 145   XCBCreateGC (data.conn, bgcolor, win, mask, valgc);
 146
 147   data.draw.window = XCBWINDOWNew (data.conn);
 148   mask = XCBCWBackPixel | XCBCWEventMask | XCBCWDontPropagate;
 149   valwin[0] = screen->white_pixel;
 150   valwin[1] = KeyReleaseMask | ButtonReleaseMask | ExposureMask;
 151   valwin[2] = ButtonPressMask;
 152   XCBCreateWindow (data.conn, 0,
 153                    data.draw.window,
 154                    screen->root,
 155                    0, 0, W_W, W_H,
 156                    10,
 157                    InputOutput,
 158                    screen->root_visual,
 159                    mask, valwin);
 160   XCBMapWindow (data.conn, data.draw.window);
 161
 162   rect.pixmap = XCBPIXMAPNew (data.conn);
 163   XCBCreatePixmap (data.conn, data.depth,
 164                    rect.pixmap, data.draw,
 165                    W_W, W_H);
 166   XCBPolyFillRectangle(data.conn, rect, bgcolor, 1, &rect_coord);
 167
 168   XCBMapWindow (data.conn, data.draw.window);
 169
 170   data.format = ZPixmap;
 171
 172   data.cmap = XCBCOLORMAPNew (data.conn);
 173   XCBCreateColormap (data.conn,
 174                      AllocNone,
 175                      data.cmap,
 176                      data.draw.window,
 177                      screen->root_visual);
 178
 179   palette_julia (&data);
 180
 181   XCBSync (data.conn, 0);
 182
 183   while ((e = XCBWaitForEvent(data.conn)))
 184     {
 185       switch (e->response_type)
 186         {
 187         case XCBExpose:
 188           {
 189             XCBCopyArea(data.conn, rect, data.draw, bgcolor,
 190                         0, 0, 0, 0, W_W, W_H);
 191             draw_julia (&data);
 192             XCBSync (data.conn, 0);
 193             break;
 194           }
 195         case XCBKeyRelease:
 196         case XCBButtonRelease:
 197           {
 198             if (data.palette)
 199               free (data.palette);
 200             if (data.image)
 201               XCBImageDestroy (data.image);
 202             free (e);
 203             XCBDisconnect (data.conn);
 204             exit (0);
 205             break;
 206           }
 207         }
 208       free (e);
 209     }
 210
 211   return 1;
 212 }