Arrow
	(set-paint-action ptLine)
	(set-foreground-color 255)
	(paint
		91 181
		303 393
		)
	(paint
		124 190
		296 362
		)
	(paint
		159 201
		284 326
		)
	(paint
		190 206
		285 301
		)
	(paint
		228 220
		271 263
		)
	(paint
		260 227
		272 239
		)
	(paint
		262 235
		67 430
		)
	(paint
		205 313
		109 409
		)
	(paint
		179 289
		88 380
		)
Bevel
	(set-foreground-color 16777215)
	(set-paint-action ptFilledRectangle)
	(paint
		570 6
		-1 -16
		)
	(set-foreground-color 12632256)
	(paint
		4 2
		-21 456
		)
	(set-foreground-color 8421504)
	(paint
		568 1
		622 465
		)
	(set-foreground-color 2829099)
	(paint
		570 449
		-33 484
		)
Copyright
	(set-foreground-color 0)
	(set-font (create$ "Times New Roman" 10 ""))
	(set-paint-action ptText)
	(set-text "Copyright 2000, Thomas G. Grubb")
	(paint
		408 423
		319 423
		)
Crosshatch
	(bind ?color (set-foreground-color))
	(set-foreground-color (set-background-color))
	(set-paint-action ptLine)
	(bind ?i  0)
	;; Draw the vertical lines
	(while (< ?i (get-width)) do
		(paint ?i 0 ?i (get-height))
		(bind ?i (+ ?i 10)))
	(bind ?i 0)
	(while (< ?i (get-height)) do
		(paint 0 ?i (get-width) ?i)
		(bind ?i (+ ?i 10)))
	(set-foreground-color ?color)
Frame and Shadow
	(set-foreground-color 0)
	(set-paint-action ptFilledRectangle)
	(paint
		555 0
		1018 463
		)
	(paint
		564 432
		-43 1039
		)
	(set-foreground-color 16777215)
	(paint
		572 21
		555 -3
		)
	(paint
		17 433
		-18 462
		)
	(set-paint-action ptLine)
	(set-foreground-color 8421504)
	(set-pen-size 4)
	(paint
		554 0
		554 430
		)
	(paint
		554 430
		-6 429
		)
	(paint
		553 1
		3 0
		)
	(paint
		2 430
		3 -1
		)
Mosaic
	(set-pen-size 6)
	(set-background-color 0)
	(execute-script Crosshatch)
	(set-pen-size 1)
	(set-background-color 16777215)
	(execute-script Crosshatch)
Mosaic 2
	(bind ?x 0)
	(bind ?y 0)
	;; draw some dots
	(while (< ?y (get-height)) do
		(set-paint-action ptRectangle)
		(paint ?x ?y (+ ?x 10) (+ ?y 10))
		(set-paint-action ptEllipse)
		(paint ?x ?y (+ ?x 10) (+ ?y 10))
		(bind ?x (+ ?x 14))
		(if (>= ?x (get-width)) then (bind ?x 0) (bind ?y (+ ?y 14))))
Script!
	(set-pen-size 4)
	(set-paint-action ptPencil)
	(set-foreground-color 12615680)
	(paint
		22 191
		25 191
		26 190
		29 188
		34 187
		35 187
		37 185
		38 184
		40 182
		43 181
		43 179
		44 179
		47 178
		50 175
		52 173
		55 170
		56 170
		59 169
		61 167
		62 164
		65 163
		67 163
		70 160
		71 157
		73 154
		76 151
		77 149
		80 146
		82 142
		83 139
		86 136
		88 133
		91 130
		92 128
		94 125
		95 122
		97 118
		98 116
		100 113
		101 110
		103 109
		103 106
		106 101
		107 98
		109 97
		109 94
		110 91
		110 89
		112 86
		112 85
		113 82
		113 80
		113 77
		113 74
		113 73
		113 70
		113 68
		113 65
		113 64
		113 62
		113 59
		113 58
		113 56
		113 55
		113 53
		113 52
		112 52
		111 50
		109 50
		109 49
		108 49
		106 49
		105 49
		102 49
		100 49
		97 49
		96 49
		94 49
		94 50
		93 50
		90 53
		88 54
		88 57
		87 59
		87 62
		87 65
		87 68
		87 71
		87 74
		87 77
		88 78
		89 80
		91 83
		92 83
		94 83
		95 84
		97 86
		100 89
		101 93
		103 96
		104 101
		107 105
		107 108
		109 114
		109 120
		109 126
		109 132
		109 135
		109 140
		109 146
		109 152
		109 159
		109 167
		108 171
		105 174
		103 179
		102 182
		102 183
		100 186
		99 188
		96 189
		94 189
		93 189
		90 189
		88 189
		85 189
		84 189
		81 189
		79 189
		78 189
		75 189
		72 189
		69 188
		69 187
		67 187
		66 185
		63 184
		63 182
		61 181
		60 179
		60 178
		58 176
		58 173
		58 170
		58 169
		58 167
		58 166
		59 166
		61 167
		62 168
		65 170
		67 173
		67 174
		68 174
		70 174
		71 174
		73 176
		76 177
		77 177
		80 177
		82 177
		85 177
		88 177
		89 177
		91 177
		94 176
		98 175
		101 175
		103 175
		106 173
		109 172
		112 169
		115 166
		119 164
		121 164
		122 163
		125 161
		130 158
		131 155
		136 151
		139 151
		142 149
		145 149
		149 148
		155 148
		161 146
		164 145
		166 145
		167 145
		169 145
		170 145
		172 145
		173 145
		176 145
		178 145
		177 143
		172 143
		169 143
		165 143
		160 143
		157 143
		154 143
		150 143
		147 144
		142 147
		138 149
		136 150
		135 153
		135 155
		133 158
		132 161
		132 164
		132 167
		132 168
		132 170
		132 171
		132 174
		132 176
		133 176
		133 177
		134 179
		136 179
		137 179
		139 179
		139 180
		140 180
		145 180
		148 182
		149 182
		154 182
		155 182
		157 182
		158 182
		161 181
		164 179
		167 176
		170 173
		173 173
		176 170
		176 169
		179 167
		182 164
		185 161
		187 160
		187 158
		188 155
		191 154
		194 152
		197 149
		199 148
		200 145
		203 145
		205 143
		206 143
		208 142
		211 142
		212 140
		215 140
		220 139
		223 139
		224 139
		226 140
		227 141
		229 143
		229 144
		229 146
		229 147
		229 149
		229 150
		230 152
		229 153
		226 155
		225 155
		222 156
		220 159
		217 161
		216 162
		214 162
		214 164
		213 165
		211 167
		210 168
		210 170
		208 173
		208 174
		208 176
		208 177
		208 179
		209 180
		211 180
		212 180
		215 180
		218 180
		220 180
		221 180
		224 180
		227 180
		232 180
		235 178
		239 176
		241 173
		244 172
		247 170
		250 167
		253 164
		254 161
		257 158
		259 158
		259 157
		260 155
		262 154
		262 152
		263 152
		263 151
		263 149
		265 149
		265 148
		266 148
		266 146
		268 146
		268 145
		268 146
		267 150
		264 155
		262 159
		261 162
		259 167
		258 171
		258 173
		258 174
		258 176
		258 177
		260 177
		262 177
		263 177
		265 177
		266 176
		268 176
		269 176
		269 175
		272 175
		275 173
		278 172
		280 172
		283 170
		286 167
		289 164
		290 161
		293 161
		295 158
		296 157
		296 155
		299 152
		301 152
		302 149
		305 148
		305 145
		308 143
		310 142
		310 140
		311 140
		311 141
		311 143
		310 146
		309 149
		307 153
		306 158
		304 164
		301 168
		300 174
		297 177
		294 182
		292 188
		289 192
		288 197
		285 203
		282 210
		279 216
		277 224
		274 228
		271 233
		270 237
		268 240
		267 243
		268 239
		269 233
		272 227
		275 221
		277 215
		280 211
		281 205
		284 199
		287 193
		289 190
		290 185
		292 181
		293 176
		296 173
		298 167
		301 164
		304 158
		305 155
		307 151
		308 149
		310 148
		311 146
		313 145
		314 143
		317 142
		320 140
		323 139
		325 139
		326 137
		328 137
		329 137
		332 137
		337 137
		338 137
		340 137
		341 137
		343 137
		343 138
		344 140
		344 143
		346 146
		346 147
		347 150
		347 153
		347 155
		347 158
		347 161
		347 164
		347 165
		347 167
		346 168
		345 170
		345 171
		342 173
		340 174
		339 174
		337 176
		334 177
		330 179
		328 179
		325 179
		322 179
		318 179
		315 179
		313 180
		312 180
		310 180
		309 180
		307 180
		306 180
		304 180
		303 179
		301 179
		302 179
		304 179
		307 179
		308 179
		311 180
		314 180
		319 180
		322 180
		325 180
		326 180
		328 180
		329 180
		334 180
		338 180
		341 180
		344 180
		346 180
		349 179
		349 178
		353 176
		356 176
		358 175
		359 173
		362 172
		364 170
		367 167
		368 164
		371 161
		374 157
		376 154
		379 151
		380 146
		382 143
		385 140
		386 139
		388 134
		391 131
		391 130
		394 127
		397 121
		398 116
		400 115
		401 110
		403 107
		404 104
		404 103
		406 100
		407 98
		407 97
		407 98
		407 99
		407 104
		406 105
		405 108
		405 111
		403 114
		402 116
		400 119
		399 122
		397 125
		396 128
		396 131
		394 132
		393 135
		391 138
		390 143
		387 146
		385 150
		385 155
		385 156
		384 158
		384 161
		384 162
		384 165
		384 167
		384 168
		384 170
		384 171
		385 171
		386 173
		389 173
		392 176
		397 176
		400 177
		404 177
		406 177
		410 177
		413 177
		416 177
		422 177
		428 177
		434 176
		437 175
		440 173
		442 172
		445 169
		446 167
		446 167
		)
	(paint
		348 127
		353 127
		365 127
		376 127
		391 128
		406 128
		419 128
		428 128
		436 128
		443 127
		449 127
		455 127
		457 127
		457 127
		)
	(paint
		291 118
		291 118
		)
Stoplight
	(set-foreground-color 0)
	(set-paint-action ptFilledRectangle)
	(paint
		126 47
		238 341
		)
	(set-foreground-color 4227327)
	(paint
		127 48
		236 339
		)
	(set-paint-action ptFilledEllipse)
	(set-foreground-color 0)
	(paint
		145 64
		220 139
		)
	(paint
		145 157
		221 233
		)
	(paint
		144 243
		224 323
		)
	(set-foreground-color 255)
	(paint
		143 65
		219 141
		)
	(set-foreground-color 65535)
	(paint
		141 158
		216 233
		)
	(set-foreground-color 65280)
	(paint
		143 241
		222 320
		)
