util/cairo-script/examples/wedgeAnnulus_crop_ybRings.cs

   1 /SIDE 600 def
   2
   3 << /width SIDE /height SIDE >> surface context
   4
   5 1 1 1 rgb set-source
   6 paint
   7
   8 SIDE dup scale
   9 0.5 0.5 translate
  10 0.5 -0.5 scale
  11
  12 /theta math.pi 10 div def
  13
  14 10 {
  15   N
  16   0 0 1.0 0 //theta arc
  17   0 0 0.2 //theta 0 arc-
  18   h
  19   //theta rotate
  20   //theta rotate
  21 } repeat
  22
  23 0 0 0.2 0 0 1 radial
  24   0.0 1 1 0 1 add-color-stop
  25   1.0 0 0 1 1 add-color-stop
  26 set-source
  27 fill
  28
  29 /target get (out.png) write-to-png pop
  30 pop