home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 1 / CDPD_Vol1.bin / pd / 026-050 / 037 / prelude / pen.p < prev    next >
Text File  |  1992-06-23  |  3KB  |  127 lines
  1. temp <- <primitive 110 13 >
  2. <primitive 112 temp 1        " up " \
  3.     #( #[ 91 98 245] \
  4.     #(  ) ) >
  5.  
  6. <primitive 112 temp 2        " turn: " \
  7.     #( #[ 19 33 192 99 245] \
  8.     #(  ) ) >
  9.  
  10. <primitive 112 temp 3        " location " \
  11.     #( #[ 16 17 129 0 243 245] \
  12.     #( #@  ) ) >
  13.  
  14. <primitive 112 temp 4        " isUp " \
  15.     #( #[ 18 243 245] \
  16.     #(  ) ) >
  17.  
  18. <primitive 112 temp 5        " goTo: " \
  19.     #( #[ 18 246 11 16 17 33 10 49 33 10 50 250 4 177 242 \
  20.  33 10 49 96 33 10 50 97 245] \
  21.     #(  ) ) >
  22.  
  23. <primitive 112 temp 6        " go: " \
  24.     #( #[ 19 128 0 128 1 33 194 10 41 16 192 114 19 128 0 \
  25.  128 2 33 194 10 41 17 192 115 32 34 35 129 3 129 \
  26.  4 242 245] \
  27.     #( #radians #sin #cos #@ #goTo:  ) ) >
  28.  
  29. <primitive 112 temp 7        " extent:to: " \
  30.     #( #[ 33 10 49 33 10 50 34 10 49 34 10 50 250 4 176 \
  31.  242 245] \
  32.     #(  ) ) >
  33.  
  34. <primitive 112 temp 8        " erase " \
  35.     #( #[ 250 0 170 242 245] \
  36.     #(  ) ) >
  37.  
  38. <primitive 112 temp 9        " down " \
  39.     #( #[ 92 98 245] \
  40.     #(  ) ) >
  41.  
  42. <primitive 112 temp 10        " direction: " \
  43.     #( #[ 33 99 245] \
  44.     #(  ) ) >
  45.  
  46. <primitive 112 temp 11        " direction " \
  47.     #( #[ 19 243 245] \
  48.     #(  ) ) >
  49.  
  50. <primitive 112 temp 12        " circleRadius: " \
  51.     #( #[ 16 17 33 250 3 174 242 245] \
  52.     #(  ) ) >
  53.  
  54. <primitive 112 temp 13        " new " \
  55.     #( #[ 32 128 0 242 32 49 129 2 242 32 5 100 5 100 129 \
  56.  3 129 4 242 245] \
  57.     #( #up 0.0 #direction: #@ #goTo:  ) ) >
  58.  
  59. <primitive 98 #Pen \
  60.     <primitive 97 #Pen #Object #Smalltalk:prelude/pen.st \
  61.     #(  #x #y #up #direction ) \
  62.     #( #up #turn: #location #isUp #goTo: #go: #extent:to: #erase #down #direction: #direction #circleRadius: #new  ) \
  63.     temp 4 8 > >
  64.  
  65. temp <- <primitive 110 2 >
  66. <primitive 112 temp 1        " goTo: " \
  67.     #( #[ 32 128 0 247 6 32 33 145 1 248 21 242 16 32 128 \
  68.  2 33 130 3 242 32 128 4 242 32 33 145 1 242 32 \
  69.  128 5 242 245] \
  70.     #( #isUp #goTo: #location #add:to: #up #down  ) ) >
  71.  
  72. <primitive 112 temp 2        " setForm: " \
  73.     #( #[ 33 96 245] \
  74.     #(  ) ) >
  75.  
  76. <primitive 98 #PenSave \
  77.     <primitive 97 #PenSave #Pen #Smalltalk:prelude/pen.st \
  78.     #(  #saveForm ) \
  79.     #( #goTo: #setForm:  ) \
  80.     temp 2 8 > >
  81.  
  82. temp <- <primitive 110 3 >
  83. <primitive 112 temp 1        " with:displayAt: " \
  84.     #( #[ 34 10 49 115 34 10 50 116 16 225 7 50 39 10 49 \
  85.  117 39 10 50 118 33 128 0 242 33 37 10 49 35 192 \
  86.  37 10 50 36 192 129 1 129 2 242 33 128 3 242 33 \
  87.  38 10 49 35 192 38 10 50 36 192 129 1 129 2 242 \
  88.  93 243 179 242 245] \
  89.     #( #up #@ #goTo: #down  ) ) >
  90.  
  91. <primitive 112 temp 2        " add:to: " \
  92.     #( #[ 16 5 53 160 241 33 11 50 242 241 34 11 51 242 189 \
  93.  242 245] \
  94.     #(  ) ) >
  95.  
  96. <primitive 112 temp 3        " new " \
  97.     #( #[ 5 32 160 96 245] \
  98.     #(  ) ) >
  99.  
  100. <primitive 98 #Form \
  101.     <primitive 97 #Form #Object #Smalltalk:prelude/pen.st \
  102.     #(  #lines ) \
  103.     #( #with:displayAt: #add:to: #new  ) \
  104.     temp 8 11 > >
  105.  
  106. temp <- <primitive 110 3 >
  107. <primitive 112 temp 1        " spiral:angle: " \
  108.     #( #[ 81 33 178 225 3 10 16 35 129 0 241 34 129 1 242 \
  109.  243 179 242 245] \
  110.     #( #go: #turn:  ) ) >
  111.  
  112. <primitive 112 temp 2        " poly:length: " \
  113.     #( #[ 33 224 14 16 34 129 0 241 82 128 1 33 190 129 2 \
  114.  242 243 183 242 245] \
  115.     #( #go: #pi #turn:  ) ) >
  116.  
  117. <primitive 112 temp 3        " withPen: " \
  118.     #( #[ 33 96 245] \
  119.     #(  ) ) >
  120.  
  121. <primitive 98 #PenShow \
  122.     <primitive 97 #PenShow #Object #Smalltalk:prelude/pen.st \
  123.     #(  #bic ) \
  124.     #( #spiral:angle: #poly:length: #withPen:  ) \
  125.     temp 4 9 > >
  126.  
  127.