home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / pinwhl2.cnv < prev    next >
Encoding:
Text File  |  1990-07-09  |  2.9 KB  |  123 lines
  1. [PINWHL2.CNV]
  2. [Include #%]
  3. [H.V.McIntosh, 20.12.86]
  4. [MS-DOS version: G. Cisneros, 24.8.86]
  5.  
  6. [dragons nest]
  7. (()(
  8.     (1.11.3.11.7.7.11.3.11.1.) 0
  9. )()(
  10.     (,(WHILE,(0 1),(0),<0>.<1>,<<
  11.     >>(WHILE,(2 3),(0),<2>.<3>,<<
  12.     >>(WHILE,(4 5),(0),<4>.<5>,<<
  13.     >>(g,(e,(REC|0$ryGO2$ryGO4$ryGO++12/L#I|))),<<
  14.     >><5>),<3>),<1>));
  15. )) a
  16.  
  17. [tiny vector increments]
  18. (()()()(
  19.     (10,3<,>-5);
  20.     (11,5<,>-3);
  21.     (0,6<,>0);
  22.     (1,5<,>3);
  23.     (2,3<,>5);
  24.     (3,0<,>6);
  25.     (4,-3<,>5);
  26.     (5,-5<,>3);
  27.     (6,-6<,>0);
  28.     (7,-5<,>-3);
  29.     (8,-3<,>-5);
  30.     (9,0<,>-6);
  31. )) e
  32.  
  33. [small vector increments]
  34. (()()()(
  35.     (10,5<,>-8);
  36.     (11,8<,>-5);
  37.     (0,10<,>0);
  38.     (1,8<,>5);
  39.     (2,5<,>8);
  40.     (3,0<,>10);
  41.     (4,-5<,>8);
  42.     (5,-8<,>5);
  43.     (6,-10<,>0);
  44.     (7,-8<,>-5);
  45.     (8,-5<,>-8);
  46.     (9,0<,>-10);
  47. )) c
  48.  
  49. [vector increments]
  50. (()()()(
  51.     (10,10<,>-17);
  52.     (11,17<,>-10);
  53.     (0,20<,>0);
  54.     (1,17<,>10);
  55.     (2,10<,>17);
  56.     (3,0<,>20);
  57.     (4,-10<,>17);
  58.     (5,-17<,>10);
  59.     (6,-20<,>0);
  60.     (7,-17<,>-10);
  61.     (8,-10<,>-17);
  62.     (9,0<,>-20);
  63. )) b
  64.  
  65. [graph a segment]
  66. (()()(0 1)(
  67.     (-<0><,>0,(L)(until,0,<0>,(%G,12,al=2,cx=(X),dx=(y)),(#p,<=>),));
  68.     (0<,>-<1>,(D)(until,0,<1>,(%G,12,al=2,cx=(x),dx=(Y)),(#p,<=>),));
  69.     (<0><,>0,(R)(until,0,<0>,(%G,12,al=2,cx=(X),dx=(y)),(#p,<=>),));
  70.     (0<,><1>,(U)(until,0,<1>,(%G,12,al=2,cx=(x),dx=(Y)),(#p,<=>),));
  71.     (-<0><,>-<1>,(if,(#>,<0>,<1>),t,<<
  72.         >>(L)(until,0,<0>,<<
  73.             >>(%G,12,al=2,cx=(X),dx=(w,-<=>)),<<
  74.             >>(#p,<=>),)(d),<<
  75.         >>(D)(until,0,<1>,<<
  76.             >>(%G,12,al=2,cx=(v,-<=>),dx=(Y)),<<
  77.             >>(#p,<=>),)(l)));
  78.     (<0><,>-<1>,(if,(#>,<0>,<1>),t,<<
  79.         >>(R)(until,0,<0>,<<
  80.             >>(%G,12,al=2,cx=(X),dx=(w,-<=>)),<<
  81.             >>(#p,<=>),)(d),<<
  82.         >>(D)(until,0,<1>,<<
  83.             >>(%G,12,al=2,cx=(v,+<=>),dx=(Y)),<<
  84.             >>(#p,<=>),)(r)));
  85.     (-<0><,><1>,(if,(#>,<0>,<1>),t,<<
  86.         >>(L)(until,0,<0>,<<
  87.             >>(%G,12,al=2,cx=(X),dx=(w,+<=>)),<<
  88.             >>(#p,<=>),)(u),<<
  89.         >>(U)(until,0,<1>,<<
  90.             >>(%G,12,al=2,cx=(v,-<=>),dx=(Y)),<<
  91.             >>(#p,<=>),)(l)));
  92.     (<0><,><1>,(if,(#>,<0>,<1>),t,<<
  93.         >>(R)(until,0,<0>,<<
  94.             >>(%G,12,al=2,cx=(X),dx=(w,+<=>)),<<
  95.             >>(#p,<=>),)(u),<<
  96.         >>(U)(until,0,<1>,<<
  97.             >>(%G,12,al=2,cx=(v,+<=>),dx=(Y)),<<
  98.             >>(#p,<=>),)(r)));
  99. )) g
  100.  
  101. [main program]
  102. (()(
  103.     ((%r,ARR:xy[1])) x
  104.     ((%r,ARR:xy[2])) y
  105.     ((%r,CTR:X)(REC|JQDO320+320/L#I|)) X
  106.     ((%r,CTR:Y)(REC|JQDO200+200/L#I|)) Y
  107.     ((%W,CTR:X,(x),-1)(l)) L
  108.     ((%W,CTR:Y,(y),-1)(d)) D
  109.     ((%W,CTR:X,(x),1)(r)) R
  110.     ((%W,CTR:Y,(y),1)(u)) U
  111.     ((%W,ARR:xy[1],(REC|z<@xJQDO0$ryGO-,320+320/L#I>|))) l
  112.     ((%W,ARR:xy[2],(REC|z<@yJQDO1$ryGO-,200+200/L#I>|))) d
  113.     ((%W,ARR:xy[1],(REC|z<@xJQDO0$ryGO+320/L#I>|))) r
  114.     ((%W,ARR:xy[2],(REC|z<@yJQDO1$ryGO+200/L#I>|))) u
  115.     (<=>(REC|AQDO0$ryGO*1$ryGO/&LJQD('-'=~;L;)320+@xJQDO+320/L#I|)) v
  116.     (<=>(REC|AQDO1$ryGO*0$ryGO/&LJQD('-'=~;L;)200+@yJQDO+200/L#I|)) w
  117. )()(
  118.     (,(%Or,ARR:xy,2,6)(%Or,CTR:X)(%Or,CTR:Y)<<
  119.     >>(%W,ARR:xy[1],10)(%W,ARR:xy[2],100)<<
  120.     >>(%G,0,al=4)(%G,11,bl=1,bh=1)(a)(REC/RL/)(%G,0,al=3));
  121. ))
  122.  
  123. [end]