This Technology Systems module was basically designed to teach you about programming. This was done through the program know as Dr. Scheme. Dr. Scheme is a very primitive program that only allows you to use commands that are preset in techpacks. Teacher Note - DrScheme is a very powerful language, this was the student's perception.

The basic commands that are able to be used in the teachpack known as "draw.ss" were:

Since Dr. Scheme is a primitive program, it only allowed you to use the following colors:

The project

The projects that we had to finish were to create a picture of a person using preset code, draw a picture of a present, and then an original drawing. The first pictures are below.


The Koenigsegg CCR

For my original picture, I drew the Koenigsegg CCR. This was one of the most hardest things that I have ever done. The reason that I chose this was because at the time, this is my favorite car.

The challenging part about drawing a car is the amount of curves that it has. Since Dr. Scheme only uses simple figure it is pretty hard to actually get the right shape that you want. In order for this car to actually be made, you have to layer each shape so that it actually takes in the shape of another.

Proof

If there are still people that believe that I didn't draw this picture in Dr. Scheme here is the code. *good luck organizing that...

;;Michael Canuz Pd.8 project(start 800 600)(define CHASSIS(and (draw-solid-disk (make-posn 250 380) 45 'black)(draw-solid-rect (make-posn 462 300) 50 50 'red) ;;body(draw-solid-rect (make-posn 300 290) 172 65 'black);;window(draw-solid-disk (make-posn 462 290) 40 'black) ;;window(draw-solid-rect (make-posn 300 330) 185 30 'red) ;;body 3(draw-solid-rect (make-posn 250 345) 350 90 'red)(draw-solid-rect (make-posn 600 335) 70 70 'red)(draw-solid-disk (make-posn 625 380) 50 'red)(draw-solid-rect (make-posn 625 340) 50 50 'red)(draw-solid-rect (make-posn 450 330) 175 50 'red)(draw-solid-rect (make-posn 175 330) 150 105 'red);;head(draw-circle (make-posn 195 385) 30 'black);;headlight(draw-solid-disk (make-posn 188 395) 30 'red);;body(draw-solid-disk (make-posn 200 385) 30 'red);;body part2(draw-solid-rect (make-posn 165 414) 150 11 'red);;head part2(draw-solid-rect (make-posn 160 425) 150 10 'black);;front spoiler(draw-solid-rect (make-posn 161 426) 148 8 'white);;front spoiler2(draw-solid-disk (make-posn 150 325) 50 'white);;cut away(draw-solid-disk (make-posn 150 420) 10 'white)(draw-solid-disk (make-posn 170 312) 50 'white);;cut away(draw-solid-disk (make-posn 142 330) 50 'white);;cut away(draw-solid-disk (make-posn 120 345) 50 'white);;cut away(draw-solid-disk (make-posn 180 306) 50 'white);;cut away(draw-solid-disk (make-posn 189 301) 50 'white);;cut away(draw-solid-disk (make-posn 205 292) 50 'white);;cut away(draw-solid-disk (make-posn 683 335) 15 'white)(draw-solid-disk (make-posn 680 330) 15 'white)(draw-solid-disk (make-posn 686 340) 15 'white)(draw-solid-disk (make-posn 687 345) 15 'white)(draw-solid-disk (make-posn 600 400) 50 'white)(draw-solid-disk (make-posn 300 400) 50 'white)(draw-circle (make-posn 300 400) 50 'black)(draw-solid-disk (make-posn 300 470) 50 'white)(draw-circle (make-posn 600 400) 50 'black)(draw-solid-disk (make-posn 609 460) 50 'white)(draw-solid-line (make-posn 235 330)(make-posn 195 355) 'red)(draw-solid-line (make-posn 236 330)(make-posn 196 355) 'red)(draw-solid-line (make-posn 237 330)(make-posn 197 355) 'red)))(define WHEEL1(and (draw-solid-disk (make-posn 600 400) 47 'black) ;;tire(draw-solid-disk (make-posn 600 400) 35 'white) ;;rim(draw-circle (make-posn 600 400) 12 'black) ;;center(draw-solid-disk (make-posn 603 423) 12 'black) ;;bottom(draw-solid-disk (make-posn 585 382) 12 'black) ;;top left corner(draw-solid-disk (make-posn 624 403) 12 'black) ;;right(draw-solid-disk (make-posn 579 410) 12 'black) ;;left(draw-solid-disk (make-posn 612 380) 12 'black) ;;top right corner))(define WHEEL2(and (draw-solid-disk (make-posn 300 400) 47 'black) ;;tire(draw-solid-disk (make-posn 300 400) 35 'white) ;;rim(draw-circle (make-posn 300 400) 12 'black) ;;center(draw-solid-disk (make-posn 303 423) 12 'black) ;;bottom(draw-solid-disk (make-posn 285 382) 12 'black) ;;top left corner(draw-solid-disk (make-posn 324 403) 12 'black) ;;right(draw-solid-disk (make-posn 279 410) 12 'black) ;;left(draw-solid-disk (make-posn 312 380) 12 'black))) ;;top right corner(define DETAIL(and (draw-solid-disk (make-posn 510 398) 22 'black) ;;intake(draw-circle (make-posn 400 410) 10 'black) ;;intake(draw-solid-disk (make-posn 401 410) 10 'red) ;;intake(draw-solid-line (make-posn 530 375)(make-posn 397 400) 'black) ;;intake(draw-solid-line (make-posn 487 420)(make-posn 400 420) 'black) ;;intake(draw-solid-line (make-posn 530 374)(make-posn 397 399) 'red) ;;intake doc(draw-solid-line (make-posn 530 373)(make-posn 397 398) 'red) ;;intake doc(draw-solid-line (make-posn 530 372)(make-posn 397 397) 'red) ;;intake doc(draw-solid-line (make-posn 530 371)(make-posn 397 396) 'red) ;;intake doc(draw-solid-line (make-posn 501 401)(make-posn 530 401) 'red) ;;intake doc(draw-solid-line (make-posn 530 402)(make-posn 500 402) 'red) ;;intake doc(draw-solid-line (make-posn 530 403)(make-posn 500 403) 'red) ;;intake doc(draw-solid-line (make-posn 530 404)(make-posn 500 404) 'red) ;;intake doc(draw-solid-line (make-posn 530 405)(make-posn 499 405) 'red) ;;intake doc(draw-solid-line (make-posn 530 406)(make-posn 498 406) 'red) ;;intake doc(draw-solid-line (make-posn 530 407)(make-posn 497 407) 'red) ;;intake doc(draw-solid-line (make-posn 530 408)(make-posn 497 408) 'red) ;;intake doc(draw-solid-line (make-posn 530 409)(make-posn 496 409) 'red) ;;intake doc(draw-solid-line (make-posn 530 410)(make-posn 496 410) 'red) ;;intake doc(draw-solid-line (make-posn 530 411)(make-posn 495 411) 'red) ;;intake doc(draw-solid-line (make-posn 530 412)(make-posn 495 412) 'red) ;;intake doc(draw-solid-line (make-posn 530 413)(make-posn 494 413) 'red) ;;intake doc(draw-solid-line (make-posn 530 414)(make-posn 494 414) 'red) ;;intake doc(draw-solid-line (make-posn 530 415)(make-posn 494 415) 'red) ;;intake doc(draw-solid-line (make-posn 530 416)(make-posn 494 416) 'red) ;;intake doc(draw-solid-line (make-posn 530 417)(make-posn 494 417) 'red) ;;intake doc(draw-solid-line (make-posn 530 418)(make-posn 494 418) 'red) ;;intake doc(draw-solid-line (make-posn 530 419)(make-posn 494 419) 'red) ;;intake doc(draw-solid-line (make-posn 520 375)(make-posn 556 375) 'black)(draw-solid-line (make-posn 502 400)(make-posn 550 400) 'black)(draw-solid-line (make-posn 519 376)(make-posn 555 376) 'white)(draw-solid-line (make-posn 519 377)(make-posn 555 377) 'white)(draw-solid-line (make-posn 518 378)(make-posn 554 378) 'white)(draw-solid-line (make-posn 517 379)(make-posn 554 379) 'white)(draw-solid-line (make-posn 516 380)(make-posn 553 380) 'white)(draw-solid-line (make-posn 516 381)(make-posn 553 381) 'white)(draw-solid-line (make-posn 515 382)(make-posn 552 382) 'white)(draw-solid-line (make-posn 514 383)(make-posn 552 383) 'white)(draw-solid-line (make-posn 514 384)(make-posn 552 384) 'white)(draw-solid-line (make-posn 513 385)(make-posn 551 385) 'white)(draw-solid-line (make-posn 512 386)(make-posn 551 386) 'white)(draw-solid-line (make-posn 511 387)(make-posn 551 387) 'white)(draw-solid-line (make-posn 511 388)(make-posn 550 388) 'white)(draw-solid-line (make-posn 510 389)(make-posn 550 389) 'white)(draw-solid-line (make-posn 509 390)(make-posn 550 390) 'white)(draw-solid-line (make-posn 508 391)(make-posn 550 391) 'white)(draw-solid-line (make-posn 508 392)(make-posn 550 392) 'white)(draw-solid-line (make-posn 507 393)(make-posn 550 393) 'white)(draw-solid-line (make-posn 506 394)(make-posn 550 394) 'white)(draw-solid-line (make-posn 506 395)(make-posn 549 395) 'white)(draw-solid-line (make-posn 505 396)(make-posn 549 396) 'white)(draw-solid-line (make-posn 504 397)(make-posn 549 397) 'white)(draw-solid-line (make-posn 503 398)(make-posn 549 398) 'white)(draw-solid-line (make-posn 503 399)(make-posn 549 399) 'white)(draw-solid-line (make-posn 555 376)(make-posn 555 376) 'black)(draw-solid-line (make-posn 555 377)(make-posn 555 377) 'black)(draw-solid-line (make-posn 554 378)(make-posn 554 378) 'black)(draw-solid-line (make-posn 554 379)(make-posn 554 379) 'black)(draw-solid-line (make-posn 553 380)(make-posn 553 380) 'black)(draw-solid-line (make-posn 553 381)(make-posn 553 381) 'black)(draw-solid-line (make-posn 552 382)(make-posn 552 382) 'black)(draw-solid-line (make-posn 552 383)(make-posn 552 383) 'black)(draw-solid-line (make-posn 552 384)(make-posn 552 384) 'black)(draw-solid-line (make-posn 551 385)(make-posn 551 385) 'black)(draw-solid-line (make-posn 551 386)(make-posn 551 386) 'black)(draw-solid-line (make-posn 551 387)(make-posn 551 387) 'black)(draw-solid-line (make-posn 550 388)(make-posn 550 388) 'black)(draw-solid-line (make-posn 550 389)(make-posn 550 389) 'black)(draw-solid-line (make-posn 550 390)(make-posn 550 390) 'black)(draw-solid-line (make-posn 550 391)(make-posn 550 391) 'black)(draw-solid-line (make-posn 550 392)(make-posn 550 392) 'black)(draw-solid-line (make-posn 550 393)(make-posn 550 393) 'black)(draw-solid-line (make-posn 550 394)(make-posn 550 394) 'black)(draw-solid-line (make-posn 549 395)(make-posn 549 395) 'black)(draw-solid-line (make-posn 549 396)(make-posn 549 396) 'black)(draw-solid-line (make-posn 549 397)(make-posn 549 397) 'black)(draw-solid-line (make-posn 549 398)(make-posn 549 398) 'black)(draw-solid-line (make-posn 549 399)(make-posn 549 399) 'black)(draw-solid-line (make-posn 520 375)(make-posn 502 400) 'black) ;;slant(draw-solid-line (make-posn 520 375)(make-posn 487 420) 'black) ;;slant(draw-solid-line (make-posn 160 382)(make-posn 252 382) 'black) ;;side decal(draw-solid-line (make-posn 345 382)(make-posn 360 382) 'black) ;;side decal(draw-solid-disk (make-posn 376 342) 15 'black) ;;door main(draw-solid-disk (make-posn 379 343) 14 'red) ;;door(draw-solid-disk (make-posn 376 344) 14 'red) ;;door(draw-solid-disk (make-posn 376 342) 14 'red) ;;door(draw-solid-line (make-posn 361 342)(make-posn 361 400) 'red) ;;door doc(draw-solid-line (make-posn 361 329)(make-posn 385 329) 'black) ;;door doc(draw-solid-line (make-posn 361 328)(make-posn 385 328) 'black) ;;door doc(draw-solid-line (make-posn 361 327)(make-posn 385 327) 'black) ;;door doc(draw-solid-line (make-posn 370 330)(make-posn 390 330) 'red) ;;door doc(draw-solid-line (make-posn 362 342)(make-posn 362 358) 'red) ;;door doc(draw-circle (make-posn 375 390) 15 'black) ;;door(draw-solid-disk (make-posn 376 389) 15 'red) ;;door doc(draw-solid-disk (make-posn 374 389) 14 'red) ;;door doc(draw-solid-disk (make-posn 376 391) 14 'red) ;;door doc(draw-solid-line (make-posn 360 342)(make-posn 360 390) 'black) ;;door(draw-solid-line (make-posn 375 404)(make-posn 450 404) 'black) ;;door(draw-solid-line (make-posn 450 404)(make-posn 500 345) 'black) ;;door(draw-solid-line (make-posn 500 345)(make-posn 495 330) 'black) ;;door(draw-solid-line (make-posn 673 376)(make-posn 644 376) 'white)(draw-solid-line (make-posn 673 377)(make-posn 644 377) 'white)(draw-solid-line (make-posn 673 378)(make-posn 645 378) 'white)(draw-solid-line (make-posn 673 379)(make-posn 645 379) 'white)(draw-solid-line (make-posn 673 380)(make-posn 646 380) 'white)(draw-solid-line (make-posn 673 381)(make-posn 646 381) 'white)(draw-solid-line (make-posn 673 382)(make-posn 647 382) 'white)(draw-solid-line (make-posn 673 383)(make-posn 647 383) 'white)(draw-solid-line (make-posn 673 384)(make-posn 647 384) 'white)(draw-solid-line (make-posn 673 385)(make-posn 648 385) 'white)(draw-solid-line (make-posn 673 386)(make-posn 648 386) 'white)(draw-solid-line (make-posn 673 387)(make-posn 648 387) 'white)(draw-solid-line (make-posn 673 388)(make-posn 649 388) 'white)(draw-solid-line (make-posn 673 389)(make-posn 649 389) 'white)(draw-solid-line (make-posn 673 390)(make-posn 649 390) 'white)(draw-solid-line (make-posn 673 391)(make-posn 649 391) 'white)(draw-solid-line (make-posn 672 392)(make-posn 649 392) 'white)(draw-solid-line (make-posn 672 393)(make-posn 649 393) 'white)(draw-solid-line (make-posn 671 394)(make-posn 649 394) 'white)(draw-solid-line (make-posn 671 395)(make-posn 650 395) 'white)(draw-solid-line (make-posn 671 396)(make-posn 650 396) 'white)(draw-solid-line (make-posn 670 397)(make-posn 650 397) 'white)(draw-solid-line (make-posn 670 398)(make-posn 650 398) 'white)(draw-solid-line (make-posn 669 399)(make-posn 650 399) 'white)(draw-circle (make-posn 670 387) 8 'black) ;;tail light(draw-solid-disk (make-posn 671 387) 8 'white) ;;tail light(draw-solid-line (make-posn 666 379)(make-posn 674 379) 'black) ;;tail light(draw-solid-line (make-posn 666 394)(make-posn 671 394) 'black) ;;tail light(draw-solid-line (make-posn 674 375)(make-posn 643 375) 'black)(draw-solid-line (make-posn 674 375)(make-posn 674 390) 'black)(draw-solid-line (make-posn 674 390)(make-posn 670 400) 'black)(draw-solid-line (make-posn 670 400)(make-posn 649 400) 'black)(draw-circle (make-posn 210 362) 20 'black) ;;headlight(draw-circle (make-posn 210 362) 17 'black) ;;headlight(draw-solid-line (make-posn 180 381)(make-posn 252 381) 'red) ;;headlight(draw-solid-line (make-posn 180 380)(make-posn 252 380) 'red) ;;headlight(draw-solid-line (make-posn 180 379)(make-posn 252 379) 'red) ;;headlight(draw-solid-line (make-posn 180 378)(make-posn 252 378) 'red) ;;headlight(draw-solid-line (make-posn 180 377)(make-posn 252 377) 'red) ;;headlight(draw-solid-line (make-posn 180 376)(make-posn 252 376) 'red) ;;headlight(draw-solid-line (make-posn 180 375)(make-posn 252 375) 'red) ;;headlight(draw-solid-line (make-posn 180 374)(make-posn 252 374) 'red) ;;headlight(draw-solid-line (make-posn 180 373)(make-posn 252 373) 'red) ;;headlight(draw-solid-line (make-posn 180 372)(make-posn 252 372) 'red) ;;headlight(draw-solid-line (make-posn 180 371)(make-posn 252 371) 'red) ;;headlight(draw-solid-line (make-posn 180 370)(make-posn 252 370) 'red) ;;headlight(draw-solid-line (make-posn 180 369)(make-posn 252 369) 'red) ;;headlight(draw-solid-line (make-posn 182 368)(make-posn 252 368) 'red) ;;headlight(draw-solid-line (make-posn 182 367)(make-posn 252 367) 'red) ;;headlight(draw-solid-line (make-posn 182 366)(make-posn 252 366) 'red) ;;headlight(draw-solid-line (make-posn 184 365)(make-posn 252 365) 'red) ;;headlight(draw-solid-line (make-posn 184 364)(make-posn 252 364) 'red) ;;headlight(draw-solid-line (make-posn 186 363)(make-posn 252 363) 'red) ;;headlight(draw-solid-line (make-posn 186 362)(make-posn 252 362) 'red) ;;headlight(draw-solid-line (make-posn 186 361)(make-posn 252 361) 'red) ;;headlight(draw-solid-line (make-posn 188 360)(make-posn 252 360) 'red) ;;headlight(draw-solid-line (make-posn 188 359)(make-posn 252 359) 'red) ;;headlight(draw-solid-line (make-posn 189 358)(make-posn 252 358) 'red) ;;headlight(draw-solid-line (make-posn 190 357)(make-posn 252 357) 'red) ;;headlight(draw-solid-line (make-posn 200 356)(make-posn 252 356) 'red) ;;headlight(draw-solid-line (make-posn 200 355)(make-posn 252 355) 'red) ;;headlight(draw-solid-line (make-posn 220 354)(make-posn 252 354) 'red) ;;headlight(draw-solid-line (make-posn 220 353)(make-posn 252 353) 'red) ;;headlight(draw-solid-line (make-posn 220 352)(make-posn 252 352) 'red) ;;headlight(draw-solid-line (make-posn 220 351)(make-posn 252 351) 'red) ;;headlight(draw-solid-line (make-posn 220 350)(make-posn 252 350) 'red) ;;headlight(draw-solid-line (make-posn 220 349)(make-posn 252 349) 'red) ;;headlight(draw-solid-line (make-posn 215 348)(make-posn 252 348) 'red) ;;headlight(draw-solid-line (make-posn 215 347)(make-posn 252 347) 'red) ;;headlight(draw-solid-line (make-posn 210 346)(make-posn 252 346) 'red) ;;headlight(draw-solid-line (make-posn 215 345)(make-posn 252 345) 'red) ;;headlight(draw-solid-line (make-posn 215 344)(make-posn 252 344) 'red) ;;headlight(draw-solid-line (make-posn 212 343)(make-posn 252 343) 'red) ;;headlight(draw-solid-line (make-posn 300 329)(make-posn 350 290) 'white) ;;guideline(draw-solid-line (make-posn 299 329)(make-posn 349 290) 'white)(draw-solid-line (make-posn 298 329)(make-posn 348 290) 'white)(draw-solid-line (make-posn 297 329)(make-posn 347 290) 'white)(draw-solid-line (make-posn 296 329)(make-posn 346 290) 'white)(draw-solid-line (make-posn 295 329)(make-posn 345 290) 'white)(draw-solid-line (make-posn 294 329)(make-posn 344 290) 'white)(draw-solid-line (make-posn 293 329)(make-posn 343 290) 'white)(draw-solid-line (make-posn 292 329)(make-posn 342 290) 'white)(draw-solid-line (make-posn 291 329)(make-posn 341 290) 'white)(draw-solid-line (make-posn 290 329)(make-posn 340 290) 'white)(draw-solid-line (make-posn 289 329)(make-posn 339 290) 'white)(draw-solid-line (make-posn 288 329)(make-posn 338 290) 'white)(draw-solid-line (make-posn 287 329)(make-posn 337 290) 'white)(draw-solid-line (make-posn 286 329)(make-posn 336 290) 'white)(draw-solid-line (make-posn 285 329)(make-posn 335 290) 'white)(draw-solid-line (make-posn 284 329)(make-posn 334 290) 'white)(draw-solid-line (make-posn 283 329)(make-posn 333 290) 'white)(draw-solid-line (make-posn 282 329)(make-posn 332 290) 'white)(draw-solid-line (make-posn 281 329)(make-posn 331 290) 'white)(draw-solid-line (make-posn 280 329)(make-posn 330 290) 'white)(draw-solid-line (make-posn 279 329)(make-posn 329 290) 'white)(draw-solid-line (make-posn 278 329)(make-posn 328 290) 'white)(draw-solid-line (make-posn 277 329)(make-posn 327 290) 'white)(draw-solid-line (make-posn 276 329)(make-posn 326 290) 'white)(draw-solid-line (make-posn 275 329)(make-posn 325 290) 'white)(draw-solid-line (make-posn 274 329)(make-posn 324 290) 'white)(draw-solid-line (make-posn 273 329)(make-posn 323 290) 'white)(draw-solid-line (make-posn 272 329)(make-posn 322 290) 'white)(draw-solid-line (make-posn 271 329)(make-posn 321 290) 'white)(draw-solid-line (make-posn 270 329)(make-posn 320 290) 'white)(draw-solid-line (make-posn 269 329)(make-posn 319 290) 'white)(draw-solid-line (make-posn 268 329)(make-posn 318 290) 'white)(draw-solid-line (make-posn 267 329)(make-posn 317 290) 'white)(draw-solid-line (make-posn 266 329)(make-posn 316 290) 'white)(draw-solid-line (make-posn 265 329)(make-posn 315 290) 'white)(draw-solid-line (make-posn 264 329)(make-posn 314 290) 'white)(draw-solid-line (make-posn 263 329)(make-posn 313 290) 'white)(draw-solid-line (make-posn 262 329)(make-posn 312 290) 'white)(draw-solid-line (make-posn 261 329)(make-posn 311 290) 'white)(draw-solid-line (make-posn 260 329)(make-posn 310 290) 'white)(draw-solid-line (make-posn 259 329)(make-posn 309 290) 'white)(draw-solid-line (make-posn 258 329)(make-posn 308 290) 'white)(draw-solid-line (make-posn 257 329)(make-posn 307 290) 'white)(draw-solid-line (make-posn 256 329)(make-posn 306 290) 'white)(draw-solid-line (make-posn 255 329)(make-posn 305 290) 'white)(draw-solid-line (make-posn 254 329)(make-posn 304 290) 'white)(draw-solid-line (make-posn 253 329)(make-posn 303 290) 'white)(draw-solid-line (make-posn 252 329)(make-posn 302 290) 'white)(draw-solid-line (make-posn 251 329)(make-posn 301 290) 'white)(draw-solid-line (make-posn 250 329)(make-posn 300 290) 'white)(draw-solid-line (make-posn 249 329)(make-posn 299 290) 'white)(draw-solid-line (make-posn 248 329)(make-posn 298 290) 'white)(draw-solid-line (make-posn 247 329)(make-posn 297 290) 'white)(draw-solid-line (make-posn 246 329)(make-posn 296 290) 'white)(draw-solid-line (make-posn 245 329)(make-posn 295 290) 'white)(draw-solid-line (make-posn 244 329)(make-posn 294 290) 'white)(draw-solid-line (make-posn 350 290)(make-posn 380 280) 'red)(draw-solid-line (make-posn 380 280)(make-posn 500 290) 'red)(draw-solid-line (make-posn 500 290)(make-posn 675 355) 'red)(draw-solid-line (make-posn 350 290)(make-posn 500 300) 'red)(draw-solid-line (make-posn 500 300)(make-posn 495 330) 'black) ;;door(draw-solid-line (make-posn 353 289)(make-posn 481 289) 'red)(draw-solid-line (make-posn 356 288)(make-posn 470 288) 'red)(draw-solid-line (make-posn 356 290)(make-posn 493 290) 'red)(draw-solid-line (make-posn 366 291)(make-posn 501 291) 'red)(draw-solid-line (make-posn 376 292)(make-posn 507 292) 'red)(draw-solid-line (make-posn 386 293)(make-posn 507 293) 'red)(draw-solid-line (make-posn 396 294)(make-posn 509 294) 'red)(draw-solid-line (make-posn 408 295)(make-posn 512 295) 'red)(draw-solid-line (make-posn 418 296)(make-posn 514 296) 'red)(draw-solid-line (make-posn 440 297)(make-posn 517 297) 'red)(draw-solid-line (make-posn 449 298)(make-posn 522 298) 'red)(draw-solid-line (make-posn 470 299)(make-posn 524 299) 'red)(draw-solid-line (make-posn 490 300)(make-posn 526 300) 'red)(draw-solid-line (make-posn 501 301)(make-posn 529 301) 'red)(draw-solid-line (make-posn 501 302)(make-posn 531 302) 'red)(draw-solid-line (make-posn 500 303)(make-posn 534 303) 'red)(draw-solid-line (make-posn 500 304)(make-posn 537 304) 'red)(draw-solid-line (make-posn 500 305)(make-posn 540 305) 'red)(draw-solid-line (make-posn 500 306)(make-posn 542 306) 'red)(draw-solid-line (make-posn 500 307)(make-posn 545 307) 'red)(draw-solid-line (make-posn 500 308)(make-posn 549 308) 'red)(draw-solid-line (make-posn 499 309)(make-posn 550 309) 'red)(draw-solid-line (make-posn 499 310)(make-posn 553 310) 'red)(draw-solid-line (make-posn 499 311)(make-posn 556 311) 'red)(draw-solid-line (make-posn 499 312)(make-posn 558 312) 'red)(draw-solid-line (make-posn 499 313)(make-posn 562 313) 'red)(draw-solid-line (make-posn 499 314)(make-posn 565 314) 'red)(draw-solid-line (make-posn 498 315)(make-posn 565 315) 'red)(draw-solid-line (make-posn 498 316)(make-posn 568 316) 'red)(draw-solid-line (make-posn 498 317)(make-posn 571 317) 'red)(draw-solid-line (make-posn 498 318)(make-posn 574 318) 'red)(draw-solid-line (make-posn 498 319)(make-posn 576 319) 'red)(draw-solid-line (make-posn 498 320)(make-posn 579 320) 'red)(draw-solid-line (make-posn 497 321)(make-posn 582 321) 'red)(draw-solid-line (make-posn 497 322)(make-posn 584 322) 'red)(draw-solid-line (make-posn 497 323)(make-posn 588 323) 'red)(draw-solid-line (make-posn 497 324)(make-posn 590 324) 'red)(draw-solid-line (make-posn 497 325)(make-posn 592 325) 'red)(draw-solid-line (make-posn 497 326)(make-posn 596 326) 'red)(draw-solid-line (make-posn 496 327)(make-posn 599 327) 'red)(draw-solid-line (make-posn 496 328)(make-posn 601 328) 'red)(draw-solid-line (make-posn 500 300)(make-posn 502 290) 'black)(draw-solid-line (make-posn 360 287)(make-posn 460 287) 'red)(draw-solid-line (make-posn 363 286)(make-posn 451 286) 'red)(draw-solid-line (make-posn 366 285)(make-posn 440 285) 'red)(draw-solid-line (make-posn 369 284)(make-posn 433 284) 'red)(draw-solid-line (make-posn 372 283)(make-posn 420 283) 'red)(draw-solid-line (make-posn 375 282)(make-posn 408 282) 'red)(draw-solid-line (make-posn 379 281)(make-posn 387 281) 'red)(draw-solid-rect (make-posn 400 200) 100 82 'white)(draw-solid-rect (make-posn 420 201) 100 82 'white)(draw-solid-rect (make-posn 423 202) 100 82 'white)(draw-solid-rect (make-posn 432 203) 100 82 'white)(draw-solid-rect (make-posn 442 204) 100 82 'white)(draw-solid-rect (make-posn 457 205) 100 82 'white)(draw-solid-rect (make-posn 467 206) 100 82 'white)(draw-solid-rect (make-posn 479 207) 100 82 'white)(draw-solid-rect (make-posn 490 208) 100 82 'white)(draw-solid-disk (make-posn 200 400) 15 'black)(draw-circle (make-posn 206 404) 17 'black)(draw-solid-line (make-posn 200 384)(make-posn 210 387) 'black)(draw-solid-line (make-posn 198 418)(make-posn 185 405) 'black)(draw-solid-line (make-posn 185 405)(make-posn 200 384) 'black)(draw-solid-rect (make-posn 176 389) 15 30 'red) ;;intake(draw-solid-line (make-posn 225 335)(make-posn 250 326) 'white)(draw-solid-line (make-posn 225 334)(make-posn 250 325) 'white)(draw-solid-line (make-posn 643 334)(make-posn 664 334) 'red)(draw-solid-line (make-posn 640 333)(make-posn 662 333) 'red)(draw-solid-line (make-posn 638 332)(make-posn 662 332) 'red)(draw-solid-line (make-posn 636 331)(make-posn 661 331) 'red)(draw-solid-line (make-posn 630 330)(make-posn 660 330) 'red)(draw-circle (make-posn 655 342) 10 'black) ;;tail light(draw-solid-disk (make-posn 655 342) 9 'white)(draw-solid-disk (make-posn 652 342) 10 'red) ;;tail light(draw-solid-disk (make-posn 655 345) 10 'red) ;;tail light(draw-solid-line (make-posn 653 332)(make-posn 663 342) 'black) ;;tail light(draw-circle (make-posn 647 342) 10 'black) ;;tail light(draw-solid-disk (make-posn 647 342) 9 'white)(draw-solid-disk (make-posn 644 342) 10 'red) ;;tail light(draw-solid-disk (make-posn 647 345) 10 'red) ;;tail light(draw-solid-line (make-posn 645 332)(make-posn 655 342) 'black) ;;tail light(draw-solid-disk (make-posn 167 398) 7 'white) ;;headlight(draw-solid-disk (make-posn 170 398) 7 'red) ;;headlight(draw-circle (make-posn 168 398) 8 'black) ;;head light(draw-solid-disk (make-posn 400 311) 7 'red)(draw-solid-rect (make-posn 400 304) 10 14 'red)(draw-solid-line (make-posn 394 314)(make-posn 390 329) 'red)(draw-solid-line (make-posn 404 316)(make-posn 407 329) 'red)(draw-solid-rect (make-posn 393 319) 12 15 'red)(draw-solid-line (make-posn 393 317)(make-posn 395 317) 'red)(draw-solid-line (make-posn 393 318)(make-posn 395 318) 'red)(draw-solid-line (make-posn 392 323)(make-posn 392 329) 'red)(draw-solid-line (make-posn 391 325)(make-posn 391 329) 'red)(draw-solid-line (make-posn 405 323)(make-posn 405 329) 'red)(draw-solid-line (make-posn 406 326)(make-posn 406 329) 'red)(draw-solid-line (make-posn 496 329)(make-posn 606 329) 'black)(draw-solid-line (make-posn 300 329 )(make-posn 410 328) 'black)(draw-solid-line (make-posn 516 395)(make-posn 521 395) 'black) ;;emblem C1(draw-solid-line (make-posn 519 384)(make-posn 524 384) 'black) ;;emblem C1(draw-solid-line (make-posn 516 395)(make-posn 519 384) 'black) ;;emblem C1(draw-solid-line (make-posn 524 395)(make-posn 529 395) 'black) ;;emblem C2(draw-solid-line (make-posn 527 384)(make-posn 532 384) 'black) ;;emblem C2(draw-solid-line (make-posn 524 395)(make-posn 527 384) 'black) ;;emblem C(draw-solid-line (make-posn 531 395)(make-posn 534 384) 'red) ;;emblem R(draw-solid-line (make-posn 534 384)(make-posn 539 384) 'red) ;;emblem R(draw-solid-line (make-posn 539 384)(make-posn 535 390) 'red) ;;emblem R(draw-solid-line (make-posn 535 390)(make-posn 539 395) 'red) ;;emblem R))