home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 018.lha / prelude / pen.p < prev    next >
Encoding:
Text File  |  1986-10-19  |  3.1 KB  |  108 lines
  1. 43 245] \
  2.     #( ''  ) ) >
  3.  
  4. <primitive 112 temp 5        " rotated " \
  5.     #( #[ 32 128 0 114 65 160 113 81 32 128 2 178 225 4 36 \
  6.  5 58 34 176 115 81 34 178 225 5 17 35 34 37 193 \
  7.  81 192 16 37 177 36 224 2 51 243 213 208 243 179 242 \
  8.  33 36 35 130 4 243 179 242 33 243 245] \
  9.     #( #rows #Form #columns $  #row:put:  ) ) >
  10.  
  11. <primitive 112 temp 6        " reversed " \
  12.     #( #[ 32 128 0 114 65 160 113 81 32 128 2 178 225 4 23 \
  13.  16 36 177 115 35 5 58 34 35 163 193 176 11 17 115 \
  14.  33 36 35 128 3 130 4 243 179 242 33 243 245] \
  15.     #( #columns #Form #rows #reversed #row:put:  ) ) >
  16.  
  17. <primitive 112 temp 7        " placeForm:at: " \
  18.     #( #[ 34 10 49 115 34 10 50 81 193 117 33 225 7 44 32 \
  19.  35 129 0 116 39 163 118 36 37 38 192 129 1 116 81 \
  20.  38 178 225 8 9 36 37 40 192 39 40 177 208 243 179 \
  21.  242 32 35 36 130 2 242 35 81 192 241 115 243 179 242 \
  22.  245] \
  23.     #( #row: #padTo: #row:put:  ) ) >
  24.  
  25. <primitive 112 temp 8        " overLayForm:at: " \
  26.     #( #[ 34 10 49 115 34 10 50 81 193 117 33 225 7 51 32 \
  27.  35 129 0 116 39 163 118 36 37 38 192 129 1 116 81 \
  28.  38 178 225 8 16 39 40 177 50 202 247 8 36 37 40 \
  29.  192 39 40 177 208 243 179 242 32 35 36 130 3 242 35 \
  30.  81 192 241 115 243 179 242 245] \
  31.     #( #row: #padTo: $  #row:put:  ) ) >
  32.  
  33. <primitive 112 temp 9        " next " \
  34.     #( #[ 16 167 243 245] \
  35.     #(  ) ) >
  36.  
  37. <primitive 112 temp 10        " first " \
  38.     #( #[ 16 166 243 245] \
  39.     #(  ) ) >
  40.  
  41. <primitive 112 temp 11        " extent " \
  42.     #( #[ 32 128 0 32 128 1 129 2 243 245] \
  43.     #( #rows #columns #@  ) ) >
  44.  
  45. <primitive 112 temp 12        " eraseAt: " \
  46.     #( #[ 33 10 20 114 16 225 3 18 5 58 35 163 176 34 129 \
  47.  0 242 34 34 10 49 81 192 11 50 243 179 242 245] \
  48.     #( #printAt:  ) ) >
  49.  
  50. <primitive 112 temp 13        " display " \
  51.     #( #[ 94 128 0 242 32 81 81 129 1 129 2 242 51 5 20 \
  52.  80 129 1 129 2 242 245] \
  53.     #( #clearScreen #@ #printAt: '  '  ) ) >
  54.  
  55. <primitive 112 temp 14        " columns " \
  56.     #( #[ 16 80 226 1 6 33 34 163 12 16 243 215 243 245] \
  57.     #(  ) ) >
  58.  
  59. <primitive 112 temp 15        " clipFrom:to: " \
  60.     #( #[ 33 10 50 81 193 118 33 10 49 81 193 119 34 10 50 \
  61.  38 193 117 64 160 115 33 10 49 34 10 49 178 225 9 \
  62.  39 5 58 37 176 116 32 41 129 1 120 81 37 178 225 \
  63.  10 13 36 42 40 38 42 192 224 2 50 243 213 208 243 \
  64.  179 242 35 41 39 193 36 130 3 243 179 242 35 243 245 \
  65. ] \
  66.     #( #Form #row: $  #row:put:  ) ) >
  67.  
  68. <primitive 112 temp 16        " new " \
  69.     #( #[ 5 30 80 176 96 245] \
  70.     #(  ) ) >
  71.  
  72. <primitive 98 #Form \
  73.     <primitive 97 #Form #Object #Smalltalk:prelude/form.st \
  74.     #(  #text ) \
  75.     #( #printAt: #ro  ) ) >
  76.  
  77. <primitive 112 temp 3        " new " \
  78.     #( #[ 5 32 160 96 245] \
  79.     #(  ) ) >
  80.  
  81. <primitive 98 #Form \
  82.     <primitive 97 #Form #Object #Smalltalk:prelude/pen.st \
  83.     #(  #lines ) \
  84.     #( #with:displayAt: #add:to: #new  ) \
  85.     temp 8 11 > >
  86.  
  87. temp <- <primitive 110 3 >
  88. <primitive 112 temp 1        " spiral:angle: " \
  89.     #( #[ 81 33 178 225 3 10 16 35 129 0 241 34 129 1 242 \
  90.  243 179 242 245] \
  91.     #( #go: #turn:  ) ) >
  92.  
  93. <primitive 112 temp 2        " poly:length: " \
  94.     #( #[ 33 224 14 16 34 129 0 241 82 128 1 33 190 129 2 \
  95.  242 243 183 242 245] \
  96.     #( #go: #pi #turn:  ) ) >
  97.  
  98. <primitive 112 temp 3        " withPen: " \
  99.     #( #[ 33 96 245] \
  100.     #(  ) ) >
  101.  
  102. <primitive 98 #PenShow \
  103.     <primitive 97 #PenShow #Object #Smalltalk:prelude/pen.st \
  104.     #(  #bic ) \
  105.     #( #spiral:angle: #poly:length: #withPen:  ) \
  106.     temp 4 9 > >
  107.  
  108.