home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / proglang / pie2.arj / BEZIER.PRO < prev    next >
Text File  |  2000-01-01  |  839b  |  45 lines
  1. start:-
  2.     draw(1,3),
  3.     smooth(4),
  4.     repeat,
  5.     draw_bezier.
  6.  
  7. draw_bezier:-
  8.     random(A1),
  9.     random(A2),
  10.     random(A3),
  11.     random(A4),
  12.     random(A5),
  13.     random(A6),
  14.     random(A7),
  15.     random(A8),
  16.     X1 is A1*32000,
  17.     Y1 is A2*32000,
  18.     X2 is A3*52000 - 10000,
  19.     Y2 is A4*52000 - 10000,
  20.     X3 is A5*52000 - 10000,
  21.     Y3 is A6*52000 - 10000,
  22.     X4 is A7*32000,
  23.     Y4 is A8*32000,
  24.     bezier(X1,Y1,X2,Y2,X3,Y3,X4,Y4),
  25.     bezier(X1,Y1,X4,Y4,X3,Y3,X2,Y2),
  26.     bezier(X1,Y1,Y4,X4,X3,Y3,Y2,X2),
  27.     bezier(X1,Y1,X3,Y3,X2,Y2,Y4,X4),
  28.     bezier(X1,Y1,Y4,Y3,Y2,X2,X3,X4),
  29.     color(C1),
  30.     bkcolor(C2),
  31.     color(C2),
  32.     bezier(X1,Y1,Y4,Y3,Y2,X2,X3,X4),
  33.     bezier(X1,Y1,X2,Y2,X3,Y3,X4,Y4),
  34.     bezier(X1,Y1,X4,Y4,X3,Y3,X2,Y2),
  35.     bezier(X1,Y1,Y4,X4,X3,Y3,Y2,X2),
  36.     bezier(X1,Y1,X3,Y3,X2,Y2,Y4,X4),
  37.     dot(X1,Y1),
  38.     dot(X2,Y2),
  39.     dot(X3,Y3),
  40.     dot(X4,Y4),
  41.     color(C1),
  42.     fail.
  43.     
  44.     
  45.