home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / exoten / rec / hilbert.cnv < prev    next >
Encoding:
Text File  |  1990-07-09  |  1.8 KB  |  64 lines
  1. [HILBERT.CNV]
  2. [Include #^]
  3. [G. Cisneros, 25.8.86]
  4.  
  5. [right box]
  6. (()()()(
  7.     (0,);
  8.     (,(IF,(0),(#m,<=>),<0>,(+)(b,<0>)(g,(c,(t)))(-)(a,<0>)<<
  9.                     >>(g,(c,(t)))<<
  10.                 >>(a,<0>)(-)(g,(c,(t)))(b,<0>)(+)));
  11. )) a
  12.  
  13. [left box]
  14. (()()()(
  15.     (0,);
  16.     (,(IF,(0),(#m,<=>),<0>,(-)(a,<0>)(g,(c,(t)))(+)(b,<0>)<<
  17.                     >>(g,(c,(t)))<<
  18.                 >>(b,<0>)(+)(g,(c,(t)))(a,<0>)(-)));
  19. )) b
  20.  
  21. [vector increments]
  22. (()()()(
  23.     (0,<9><,>0);
  24.     (1,0<,><9>);
  25.     (2,-<9><,>0);
  26.     (3,0<,>-<9>);
  27. )) c
  28.  
  29. [graph a segment]
  30. (()()(0)(
  31.     (-<0><,>0,(L)(until,0,<0>,(%G,12,al=1,cx=(X),dx=(y)),(#p,<=>),));
  32.     (0<,>-<0>,(D)(until,0,<0>,(%G,12,al=1,cx=(x),dx=(Y)),(#p,<=>),));
  33.     (<0><,>0,(R)(until,0,<0>,(%G,12,al=1,cx=(X),dx=(y)),(#p,<=>),));
  34.     (0<,><0>,(U)(until,0,<0>,(%G,12,al=1,cx=(x),dx=(Y)),(#p,<=>),));
  35. )) g
  36.  
  37. [main program]
  38. (()(
  39.     ((%r,ARR:xy[1])) x
  40.     ((%r,ARR:xy[2])) y
  41.     ((%r,CTR:X)(REC|JQDO320+320/L#I|)) X
  42.     ((%r,CTR:Y)(REC|JQDO200+200/L#I|)) Y
  43.     ((%W,CTR:X,(x),-1)(l)) L
  44.     ((%W,CTR:Y,(y),-1)(d)) D
  45.     ((%W,CTR:X,(x),1)(r)) R
  46.     ((%W,CTR:Y,(y),1)(u)) U
  47.     ((%W,ARR:xy[1],(REC|z<@xJQDO0$ryGO-,320+320/L#I>|))) l
  48.     ((%W,ARR:xy[2],(REC|z<@yJQDO0$ryGO-,200+200/L#I>|))) d
  49.     ((%W,ARR:xy[1],(REC|z<@xJQDO0$ryGO+320/L#I>|))) r
  50.     ((%W,ARR:xy[2],(REC|z<@yJQDO0$ryGO+200/L#I>|))) u
  51.     ((%r,ARR:xy[3])) t
  52.     ((%W,ARR:xy[3],(REC|z<@tJQDO^4/L#I>|))) +
  53.     ((%W,ARR:xy[3],(REC|z<@tJQDO3+4/L#I>|))) -
  54. )()(
  55.     ((IVL/1/7/)<>,(IF,(8 9),<=>.(#f,199/<(>2^<=>-1<)>),<8>.<9>,<<
  56.         >>(%Or,ARR:xy,3,6)(%Or,CTR:X)(%Or,CTR:Y)<<
  57.         >>(%W,ARR:xy[1],60)(%W,ARR:xy[2],0)(%W,ARR:xy[3],0)<<
  58.         >>(%G,0,al=4)(%G,11,bl=0,bh=1)<<
  59.         >>(a,<8>)(%G,12,al=1,cx=(x),dx=(y))(REC/RL/)<<
  60.         >>(%G,0,al=3)));
  61.     (,(%r,TTY:digit? <(>1-6<)> )):
  62. ))
  63.  
  64. [end]