RosettaCodeData/Task/Draw-a-cuboid/Locomotive-Basic/draw-a-cuboid.basic

7 lines
284 B
Plaintext

10 mode 2: origin 100,0: w=120: height=w*1.5: depth=w*2
20 x=80: y=10
30 plot x,y
40 drawr 0,height: drawr w,0: drawr 0,-height: drawr -w,0: rem front
50 plot x,y+height: drawr depth/2,height: drawr w,0: drawr 0,-height: drawr -w,-height
60 plot x+w,y+height: drawr depth/2,height