drawheart.dpr

   1 { Copyright (C) 2008 Peter Green \r
   2   For conditions of distribution and use, see copyright notice in zlib_license.txt \r
   3   which is included in the package \r
   4   ----------------------------------------------------------------------------- } \r
   5 \r
   6 //test program for png code, uses ct8bp mode to draw a red and white heart\r
   7 //in 1 2 4 and 8 bit per pixel modes.\r
   8 \r
   9 program drawheart;\r
  10 \r
  11 uses\r
  12   pngwrite,classes,sysutils;\r
  13 \r
  14 { $R *.RES}\r
  15 const\r
  16   imagedata : array[0..10] of array [0..10] of byte=(\r
  17     (0,0,0,0,0,0,0,0,0,0,0),\r
  18     (0,0,1,1,1,0,1,1,1,0,0),\r
  19     (0,1,1,1,1,0,1,1,1,1,0),\r
  20     (0,1,1,1,1,1,1,1,1,1,0),\r
  21     (0,1,1,1,1,1,1,1,1,1,0),\r
  22     (0,1,1,1,1,1,1,1,1,1,0),\r
  23     (0,0,1,1,1,1,1,1,1,0,0),\r
  24     (0,0,0,1,1,1,1,1,0,0,0),\r
  25     (0,0,0,0,1,1,1,0,0,0,0),\r
  26     (0,0,0,0,0,1,0,0,0,0,0),\r
  27     (0,0,0,0,0,0,0,0,0,0,0)\r
  28   );\r
  29   paldata : array[0..5] of byte=(255,255,255,255,0,0);\r
  30 var\r
  31   outer,counter : integer;\r
  32   stream : tfilestream;\r
  33   f : tpngwrite;\r
  34 begin\r
  35   for outer := 0 to 3 do begin\r
  36 \r
  37     stream := tfilestream.Create('heart'+inttostr(1 shl outer)+'.png',fmCreate{fmOpenWrite} or fmShareDenyNone  );\r
  38     try\r
  39       pngstart(f,stream,1 shl outer,ct8bp,11,11);\r
  40       pngwritepal(f,@paldata,2);\r
  41       pngstartdata(f);\r
  42 \r
  43       for counter := 0 to 10 do begin\r
  44         pngwritescanline(f,@imagedata[counter]);\r
  45       end;\r
  46       pngfinishdata(f);\r
  47       pngfinish(f);\r
  48     finally\r
  49       stream.Free;\r
  50     end;\r
  51   end;\r
  52 end.\r