Terrapin Resources

Hello

by Stan Munson

Type MAIN to run the program. Type CS HELLO to run the program again.
Try changing the pen color (SETPC) and width (SETW).
Try using a narrow pen of a different color after a wide pen.
Type just HELLO to run the program without erasing the image.

Hello.lgo

TO HELLO
  TELL 0
  ST
  DRAW.PICTURE HELLO.LIST
  HT
END

TO DRAW.PICTURE :PICTURE
  IF EMPTY? :PICTURE [STOP]
  DRAW.LINES FIRST :PICTURE
  DRAW.PICTURE BUTFIRST :PICTURE
END

TO DRAW.LINES :LINES
  PU SETPOS FIRST :LINES
  PD DRAW.POINTS BUTFIRST :LINES
  PENUP
END

TO DRAW.POINTS :POINTS
  IF EMPTY? :POINTS [STOP]
  SETHEADING TOWARDS FIRST :POINTS
  KILL.SOME.TIME
  SETPOS FIRST :POINTS
  DRAW.POINTS BUTFIRST :POINTS
END

TO KILL.SOME.TIME
  REPEAT 37 [HIDETURTLE SHOWTURTLE]
END

TO HELLO.LIST
  OUTPUT [ [ [-43 -13] [-44 -13] [-45 -13] [-46 -13] [-47 -13] [-48 -13] [-49 -13] [-51 -12] [-52 -11] [-52 -10] [-53 -9] [-56 -6] [-59 -4] [-59 -3] [-60 -2] [-61 -2] [-62 -1] [-63 0] [-64 2] [-64 3] [-64 4] [-64 6] [-64 9] [-64 12] [-62 13] [-61 14] [-61 15] [-60 16] [-59 16] [-58 17] [-56 17] [-53 17] [-49 18] [-46 18] [-45 18] [-42 18] [-41 18] [-41 17] [-41 16] [-41 15] [-41 14] [-41 13] [-41 12] [-41 11] [-41 10] [-41 9] [-41 8] [-41 7] [-41 6] [-41 4] [-41 1] [-41 0] [-41 -1] [-41 -2] [-41 -3] [-41 -4] [-41 -6] [-41 -7] [-43 -9] [-43 -10] [-43 -11] [-44 -11] [-44 -10] [-42 -9] [-42 -8] [-42 -7] [-42 -6] [-43 -6] [-44 -5] [-45 -5] [-46 -5] [-47 -5] [-48 -5] [-48 -6] [-48 -7] [-48 -8] [-49 -8] [-51 -7] [-52 -4] [-52 -3] [-52 -2] [-52 -1] [-52 0] [-50 0] [-49 0] [-48 0] [-46 0] [-45 0] [-45 -1] [-45 -2] [-45 -3] [-45 -4] [-45 -5] [-45 -6] [-45 -7] [-45 -8] [-45 -9] [-46 -9] [-46 -8] [-46 -7] [-46 -6] [-47 -6] [-47 -5] [-47 -4] [-47 -3] [-48 -3] [-48 -2] [-49 -2] [-50 -2] [-52 -2] [-55 -3] [-56 -4] [-56 -5] [-56 -6] [-56 -7] [-54 -8] [-53 -9] [-52 -11] [-50 -12] [-49 -12] [-48 -12] [-47 -12] [-46 -12] [-46 -11] [-46 -10] [-46 -9] [-46 -6] [-46 -5] [-46 -4] [-46 -3] [-47 -3] [-48 -3] [-49 -5] [-51 -6] [-51 -7] [-52 -8] [-52 -9] [-52 -10] [-52 -11] [-51 -11] [-50 -10] [-50 -8] [-50 -6] [-50 -5] [-50 -4] [-50 -3] [-50 -2] [-51 -2] [-52 -2] [-52 -3] [-51 -4] [-50 -4] [-50 -6] [-49 -8] [-48 -10] [-45 -12] [-45 -13] [-44 -13] [-44 -12] [-42 -11] [-42 -10] [-41 -10] [-41 -9] [-41 -8] [-41 -7] [-40 -5] [-38 -3] [-37 0] [-36 2] [-36 3] [-34 4] [-34 5] [-33 7] [-30 10] [-28 12] [-25 13] [-22 15] [-21 16] [-18 16] [-17 16] [-16 16] [-13 15] [-9 13] [-6 12] [-5 10] [-5 9] [-5 7] [-4 5] [-4 3] [-4 0] [-6 -3] [-12 -4] [-16 -5] [-21 -6] [-24 -8] [-26 -9] [-29 -10] [-30 -11] [-32 -11] [-33 -12] [-34 -13] [-38 -13] [-40 -13] [-41 -13] [-42 -13] [-42 -12] [-39 -10] [-38 -8] [-37 -8] [-34 -6] [-33 -5] [-30 -3] [-29 -2] [-29 -3] [-30 -6] [-32 -9] [-33 -11] [-33 -10] [-30 -8] [-30 -6] [-30 -4] [-30 -3] [-30 -2] [-30 -1] [-31 -1] [-32 -1] [-33 -1] [-34 -1] [-34 -2] [-35 -3] [-36 -3] [-36 -5] [-36 -7] [-36 -8] [-36 -9] [-36 -10] [-35 -10] [-34 -8] [-31 -5] [-30 -3] [-30 -2] [-29 -1] [-29 -2] [-29 -3] [-30 -5] [-30 -6] [-31 -7] [-32 -8] [-33 -8] [-34 -8] [-35 -8] [-36 -8] [-37 -10] [-37 -11] [-37 -12] [-38 -13] [-37 -13] [-34 -11] [-33 -9] [-33 -8] [-33 -7] [-31 -6] [-31 -5] [-31 -4] [-32 -4] [-33 -4] [-34 -4] [-35 -4] [-36 -4] [-37 -4] [-37 -5] [-37 -6] [-37 -7] [-36 -7] [-35 -7] [-35 -6] [-36 -6]] [ [-43 -14] [-47 -14] [-53 -14] [-69 -14] [-85 -12] [-101 -9] [-104 -8] [-104 -7] [-105 -5] [-105 -3] [-106 0] [-106 4] [-106 9] [-106 15] [-106 20] [-105 24] [-102 28] [-99 32] [-96 37] [-91 43] [-86 47] [-82 52] [-78 55] [-74 57] [-69 60] [-65 61] [-59 62] [-55 63] [-49 64] [-42 64] [-37 64] [-30 64] [-12 64] [-7 62] [-4 60] [-1 58] [4 55] [11 51] [15 47] [19 43] [20 41] [20 38] [20 34] [20 30] [20 27] [20 24] [20 21] [19 18] [17 15] [15 11] [12 8] [9 6] [7 4] [4 2] [3 1] [0 0] [-1 -1] [-4 -2] [-7 -3] [-10 -3] [-12 -4] [-13 -4] [-16 -5] [-18 -5] [-20 -5] [-21 -6] [-23 -6] [-25 -6] [-28 -6] [-31 -6] [-32 -6]] [ [-50 -15] [-51 -15] [-53 -15] [-57 -15] [-64 -15] [-68 -15] [-72 -16] [-76 -17] [-80 -19] [-83 -19] [-84 -20] [-85 -22] [-88 -23] [-90 -25] [-92 -27] [-93 -28] [-93 -30] [-95 -31] [-95 -34] [-95 -38] [-95 -43] [-94 -47] [-93 -51] [-92 -54] [-90 -57] [-89 -59] [-86 -62] [-81 -65] [-76 -69] [-60 -72] [-44 -75] [-37 -76] [-21 -76] [-15 -76] [-9 -76] [-5 -76] [-2 -76] [-2 -75] [0 -72] [3 -69] [6 -66] [7 -63] [7 -60] [7 -56] [7 -51] [7 -47] [7 -42] [5 -37] [4 -33] [4 -30] [3 -28] [1 -25] [0 -22] [-4 -18] [-8 -15] [-12 -12] [-12 -11] [-13 -11] [-13 -10] [-15 -9] [-16 -9] [-17 -9] [-20 -8] [-21 -7] [-23 -7] [-23 -6]] [ [-67 -28] [-67 -29] [-67 -30] [-66 -33] [-65 -36] [-64 -39] [-62 -41] [-61 -42] [-61 -43] [-61 -44] [-60 -45] [-58 -46] [-56 -47] [-53 -47] [-53 -48] [-48 -48] [-44 -48] [-41 -48] [-40 -48] [-38 -48] [-37 -47] [-35 -46] [-33 -44] [-32 -43] [-30 -42] [-29 -40] [-28 -39] [-26 -37] [-25 -36] [-25 -35] [-25 -34] [-25 -33] [-25 -32]] [ [-63 57] [-62 57] [-61 57] [-60 57] [-59 57] [-58 58] [-57 58] [-57 59] [-56 61] [-54 62] [-53 63] [-52 65] [-50 67] [-50 69] [-49 70] [-49 72] [-49 73] [-49 75] [-48 77] [-48 79] [-48 80] [-48 82] [-48 83] [-48 84] [-49 84] [-50 84] [-51 84] [-52 84] [-52 83] [-53 83] [-53 82] [-53 81] [-53 80] [-53 79] [-53 78] [-53 77] [-53 76] [-53 75] [-53 74] [-52 74] [-50 74] [-50 73] [-49 73] [-46 73] [-45 73] [-43 73] [-41 73] [-38 73] [-35 75] [-33 76] [-31 78] [-29 79] [-28 81] [-27 83] [-26 85] [-25 87] [-25 89] [-25 90] [-25 91] [-25 92] [-26 92] [-27 92] [-28 92] [-29 92] [-29 91] [-29 90] [-29 89] [-29 88] [-29 87] [-29 86] [-29 85] [-29 84] [-29 83] [-29 82] [-28 82] [-26 81] [-25 81] [-22 81] [-21 81] [-17 81]] [ [-41 53] [-40 53] [-36 53] [-33 53] [-30 53] [-29 54] [-28 55] [-25 57] [-23 59] [-21 61] [-21 62] [-21 63] [-21 64] [-20 66] [-18 68] [-18 70] [-18 72] [-18 73] [-18 74] [-19 74] [-20 74] [-21 74] [-22 74] [-23 74] [-23 73] [-23 72] [-23 71] [-22 71] [-22 70] [-21 70] [-21 69] [-18 69] [-17 69] [-16 69] [-13 68] [-12 68] [-10 68] [-9 68] [-9 69] [-8 69] [-7 71] [-5 73] [-4 74] [-2 76] [-1 77] [0 79] [2 80] [3 82] [3 83] [3 84] [3 85] [3 86] [2 86] [1 87] [-1 87] [-3 87] [-4 87] [-5 87] [-6 86] [-7 85] [-7 83] [-8 82] [-8 81] [-8 80] [-8 79] [-6 78] [-2 76] [0 76] [3 75] [8 74] [24 73] [40 72] [44 72] [45 72] [46 72] [45 72]] [ [20 34] [20 35] [20 36] [20 37] [20 38] [20 39] [20 41] [22 42] [22 44] [23 45] [23 47] [25 48] [26 49] [27 50] [29 51] [31 52] [32 52] [34 53] [35 53] [36 53] [38 53] [40 53] [44 53] [50 51] [54 50] [54 49] [54 48] [55 46] [55 43] [56 39] [56 36] [56 34] [56 31] [56 28] [56 26] [55 24] [53 22] [52 20] [52 18] [50 17] [48 15] [47 14] [44 12] [43 10] [40 8] [36 6] [32 5] [31 5] [28 5] [25 5] [21 5] [20 5] [19 5] [18 5] [17 5] [16 6] [15 6] [13 7] [13 8] [12 8] [12 9] [12 10]] [ [-79 54] [-79 55] [-79 57] [-82 60] [-83 63] [-84 64] [-84 65] [-86 66] [-87 67] [-91 69] [-94 71] [-96 73] [-99 73] [-103 74] [-107 74] [-111 74] [-114 74] [-116 74] [-119 73] [-123 70] [-124 68] [-126 67] [-127 64] [-128 62] [-130 59] [-130 57] [-130 55] [-130 53] [-130 51] [-130 49] [-130 48] [-130 47] [-130 44] [-129 42] [-129 40] [-128 39] [-128 38] [-128 37] [-127 35] [-124 34] [-123 32] [-120 31] [-120 30] [-119 29] [-116 28] [-115 27] [-112 26] [-111 26] [-109 26] [-108 26] [-107 26] [-106 26] [-105 26]] [ [-55 -73] [-55 -74] [-56 -75] [-58 -77] [-60 -79] [-60 -81] [-63 -83] [-64 -85] [-67 -87] [-69 -90] [-71 -91] [-72 -93] [-72 -95] [-74 -98] [-76 -100] [-77 -101] [-80 -104] [-87 -106] [-91 -108] [-93 -108] [-97 -109] [-99 -109] [-100 -109]] [ [-30 -79] [-30 -80] [-31 -82] [-31 -85] [-34 -88] [-37 -92] [-40 -95] [-42 -97] [-43 -99] [-44 -100] [-44 -101] [-44 -103] [-44 -104] [-45 -106] [-46 -106] [-46 -108] [-46 -110] [-46 -112] [-46 -113] [-45 -115] [-44 -116] [-41 -119] [-40 -120] [-39 -120] [-39 -121]] [ [-145 -95] [-145 -96] [-145 -97] [-143 -98] [-141 -99] [-134 -100] [-127 -100] [-121 -100] [-99 -101] [-81 -102] [-75 -103] [-72 -103] [-65 -103] [-58 -103] [-42 -104] [-26 -104] [-19 -104] [-13 -105] [-7 -106] [-2 -108] [-1 -109] [2 -110] [9 -113] [27 -114] [34 -116] [35 -117] [35 -116]] [ [95 42] [95 43] [95 45] [95 47] [95 49] [95 51] [95 53] [97 54] [98 55] [99 56] [100 57] [101 57] [101 56] [101 55] [101 54] [101 52] [101 51] [101 49] [101 47] [101 45] [101 42] [101 40] [100 37] [100 35] [99 33] [99 30] [98 28] [98 26] [96 23] [95 21] [94 18] [92 15] [91 13] [90 12] [88 10] [86 5] [84 3] [83 2] [83 0] [82 -3] [80 -6] [79 -8] [78 -11] [76 -13] [75 -16] [75 -17] [74 -19] [74 -20] [74 -21] [74 -22] [74 -23] [73 -23] [72 -23]] [ [126 54] [126 53] [125 52] [124 49] [120 43] [119 40] [118 37] [116 33] [115 29] [112 25] [112 22] [111 21] [110 19] [108 16] [108 14] [107 13] [107 10] [106 8] [104 5] [103 4] [103 2] [102 0] [100 -2] [99 -4] [99 -5] [99 -6] [99 -7] [98 -8] [96 -10] [96 -12] [95 -15] [94 -17] [94 -19] [93 -19] [92 -21] [91 -23] [91 -22] [93 -20] [94 -17] [95 -14] [97 -11] [98 -9] [98 -7] [99 -5] [99 -3] [100 0] [100 2] [100 5] [100 11] [100 13] [100 15] [99 15] [98 15] [95 15] [94 15] [92 15] [91 15] [90 15] [88 15] [87 13] [86 12] [86 11] [86 10] [86 9] [86 8] [86 7] [86 6] [87 6] [88 6] [89 6] [91 5] [94 5] [95 5] [97 5] [101 4] [106 4] [110 3] [111 3] [112 3] [113 3] [114 3] [115 3] [117 4] [121 5] [125 5] [127 6] [130 7] [130 8] [130 9] [130 10] [130 11] [130 12] [129 12] [128 13] [127 13] [126 13] [125 13] [124 13] [123 13] [122 13] [120 13] [120 12] [119 11] [119 10] [118 8] [116 7] [115 5] [115 4] [114 2] [114 1] [114 0] [114 -1] [112 -2] [112 -4] [112 -5] [112 -6] [112 -7] [113 -7] [113 -8] [114 -8] [115 -8] [116 -8] [119 -8] [123 -9] [125 -9] [126 -9] [127 -9] [128 -9] [129 -9] [130 -8] [131 -7] [134 -6] [136 -4] [138 -3] [139 -1] [142 0] [143 2] [145 4] [147 6] [151 9] [154 12] [156 15] [158 18] [161 21] [162 25] [165 28] [166 31] [166 33] [166 37] [167 41] [167 46] [167 49] [167 52] [167 54] [167 56] [166 56] [165 56] [162 55] [159 53] [159 51] [158 50] [158 48] [156 46] [155 44] [155 41] [153 37] [151 33] [150 30] [148 28] [148 26] [147 24] [147 21] [147 18] [146 14] [146 9] [145 7] [145 5] [145 3] [145 1] [145 -1] [145 -4] [145 -6] [145 -7] [145 -8] [146 -8] [147 -8] [149 -8] [153 -8] [155 -8] [157 -8] [159 -8] [160 -8] [162 -6] [163 -4] [166 -3] [166 -1] [167 1] [169 4] [170 7] [174 10] [175 12] [179 16] [182 19] [186 23] [187 26] [190 29] [192 31] [194 34] [195 37] [195 39] [195 41] [196 43] [196 45] [196 47] [196 48] [196 49] [195 49] [194 49] [192 50] [191 50] [190 50] [190 49] [188 48] [186 46] [185 45] [184 43] [183 40] [182 38] [182 36] [180 34] [180 31] [179 29] [179 26] [178 23] [176 21] [175 18] [175 16] [175 14] [175 11] [174 9] [174 8] [174 7] [174 6] [174 4] [174 3] [174 0] [176 -2] [177 -3] [178 -3] [179 -3] [181 -3] [183 -3] [184 -3] [186 -1] [187 1] [190 3] [191 5] [194 7] [195 9] [198 11] [199 12] [202 13] [205 15] [206 16] [207 16] [206 16] [204 15] [203 14] [203 13] [200 12] [199 10] [198 9] [198 8] [196 6] [196 5] [195 4] [195 3] [195 2] [195 1] [195 0] [195 -1] [197 -1] [199 -2] [201 -2] [203 -2] [205 -2] [206 -2] [207 -2] [208 -1] [209 0] [210 2] [210 3] [212 5] [214 6] [214 8] [215 9] [215 11] [215 12] [215 14] [215 16] [215 18] [215 20] [215 21] [215 23] [215 24] [214 24] [212 24] [211 25] [209 25] [208 25] [207 25] [206 24] [206 23] [206 22] [206 21] [206 20] [206 19] [207 19] [209 18] [211 18] [214 17] [217 17] [218 17] [219 17] [221 17] [222 17] [222 18] [223 18]] [ [269 60] [269 59] [268 58] [268 55] [265 52] [264 50] [263 47] [261 45] [261 43] [260 41] [259 37] [258 34] [257 31] [257 30] [256 28] [256 25] [255 23] [253 21] [252 19] [252 17] [251 14] [251 13] [250 12] [249 11] [249 9] [248 9] [248 8] [248 6] [248 5] [248 3] [247 1] [245 -1] [245 -2]] [ [239 -16] [239 -17] [240 -17] [240 -16] [240 -15] [240 -16] [241 -16] [242 -16] [241 -16] [240 -16]] [ [-257 115]] [ [-244 -50]] [ [-191 82]] [ [-187 -41]]]
END

TO MAIN
  CS CT HELLO
  PRINT "|Type 'CS HELLO' to run this program again.|
  PRINT "|Try changing the pen color (SETPC) and width (SETW).|
  PRINT "|Try using a narrow pen of a different color after a wide pen.|
END

MAIN

Procedure MAIN
Description A hello demo with a simple drawing and written hello
Level Intermediate
Tags Art