Accepts three dimensions (height, width, length) and draws a 3D box.
Content
Image Gallery
Source Code
300 REM **Auto-Draw of Boxes*
310 REM Get DATA
320 INPUT "Give Three Dimensions (H,W,L) ";h,w,l
330 PLOT 75,95: DRAW 0,-h: DRAW -w,0: DRAW 0,h
340 DRAW l,l: DRAW w,0: DRAW -l,-l: DRAW -w,0
350 DRAW 0,-h: DRAW w,0: DRAW l,l: DRAW 0,h: DRAW -l,-l
360 PRINT AT 18,20;"w= ";w;AT 19,20;"h= ";h;AT 20,20;"l= ";l
370 REM **Draw and fill border*
380 PLOT 0,0
390 DRAW 5,5: DRAW -5,5
400 ON ERR GO TO 420
410 GO TO 390
420 PLOT 0,175
430 DRAW 5,-5: DRAW 5,5
440 ON ERR GO TO 460
450 GO TO 430
460 PLOT 255,175
470 DRAW -5,-5: DRAW 5,-5
480 ON ERR GO TO 500
490 GO TO 470
500 PLOT 250,0
510 DRAW -5,5: DRAW -5,-5
520 ON ERR GO TO 540
530 GO TO 510
540 PRINT AT 1,10;"AUTO-DRAW"
550 ON ERR RESET
560 STOP
570 REM **add color fill**
580 LET c=4: REM >>COLOR<<
590 FOR n=35 TO 80
600 PLOT n,95
610 IF POINT (n+1,100) THEN GO TO 630
620 NEXT n
630 FOR n=n TO n+47
640 PLOT 48,145-n
650 DRAW INK c;47,0: NEXT n
660 STOP
9000 SAVE "AUTO-DRAW1": PRINT "REWIND AND PRESS ENTER TO VERIFY": PAUSE 0: VERIFY "AUTO-DRAW1"