Accepts three dimensions (height, width, length) and draws a 3D box.
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"