home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / c.cnv < prev    next >
Encoding:
Text File  |  1990-07-09  |  1.5 KB  |  70 lines
  1. [C.CNV]
  2. [Include #%]
  3. [G. Cisneros, 25.8.86]
  4.  
  5. [nest]
  6. (()(
  7.     (2.1.1.0.) 0
  8. )()(
  9.     (,(WHILE,(0 1),(0),<0>.<1>,<<
  10.     >>(WHILE,(2 3),(0),<2>.<3>,<<
  11.     >>(WHILE,(4 5),(0),<4>.<5>,<<
  12.     >>(WHILE,(6 7),(0),<6>.<7>,<<
  13.     >>(WHILE,(8 9),(0),<8>.<9>,<<
  14.     >>(g,(e,(#f,<(><0>+<2>+<4>+<6>+<8><)>%4))),<<
  15.     >><9>),<7>),<5>),<3>),<1>));
  16. )) a
  17.  
  18. [tiny vector increments]
  19. (()()()(
  20.     (0,2<,>0);
  21.     (1,0<,>2);
  22.     (2,-2<,>0);
  23.     (3,0<,>-2);
  24. )) e
  25.  
  26. [small vector increments]
  27. (()()()(
  28.     (0,8<,>0);
  29.     (1,0<,>8);
  30.     (2,-8<,>0);
  31.     (3,0<,>-8);
  32. )) c
  33.  
  34. [vector increments]
  35. (()()()(
  36.     (0,16<,>0);
  37.     (1,0<,>16);
  38.     (2,-16<,>0);
  39.     (3,0<,>-16);
  40. )) b
  41.  
  42. [graph a segment]
  43. (()()(0 1)(
  44.     (-<0><,>0,(L)(until,0,<0>,(%G,12,al=1,cx=(X),dx=(y)),(#p,<=>),));
  45.     (0<,>-<1>,(D)(until,0,<1>,(%G,12,al=1,cx=(x),dx=(Y)),(#p,<=>),));
  46.     (<0><,>0,(R)(until,0,<0>,(%G,12,al=1,cx=(X),dx=(y)),(#p,<=>),));
  47.     (0<,><1>,(U)(until,0,<1>,(%G,12,al=1,cx=(x),dx=(Y)),(#p,<=>),));
  48. )) g
  49.  
  50. [main program]
  51. (()(
  52.     ((%r,ARR:xy[1])) x
  53.     ((%r,ARR:xy[2])) y
  54.     ((#f,<(>(%r,CTR:X)+320<)>%320)) X
  55.     ((#f,<(>(%r,CTR:Y)+200<)>%200)) Y
  56.     ((%W,CTR:X,(x),-1)(l)) L
  57.     ((%W,CTR:Y,(y),-1)(d)) D
  58.     ((%W,CTR:X,(x),1)(r)) R
  59.     ((%W,CTR:Y,(y),1)(u)) U
  60.     ((%W,ARR:xy[1],(#f,<(>(x)-<0>+320<)>%320))) l
  61.     ((%W,ARR:xy[2],(#f,<(>(y)-<1>+200<)>%200))) d
  62.     ((%W,ARR:xy[1],(#f,<(>(x)+<0><)>%320))) r
  63.     ((%W,ARR:xy[2],(#f,<(>(y)+<1><)>%200))) u
  64. )()(
  65.     (,(%Or,ARR:xy,2,6)(%Or,CTR:X)(%Or,CTR:Y)<<
  66.     >>(%W,ARR:xy[1],200)(%W,ARR:xy[2],50)<<
  67.     >>(%G,0,al=4)(%G,11,bl=0,bh=1)(a)(REC/RL/)(%G,0,al=3));
  68. ))
  69.  
  70. [end]