10 lines
263 B
Text
10 lines
263 B
Text
ORIGIN 100, 100
|
|
PROCcuboid(200, 300, 400)
|
|
END
|
|
|
|
DEF PROCcuboid(x, y, z)
|
|
MOVE 0, 0 : MOVE 0, y
|
|
GCOL 1 : PLOT 117, x, y
|
|
GCOL 2 : PLOT 117, x + z * 0.4, y + z * 0.4
|
|
GCOL 4 : PLOT 117, x + z * 0.4, z * 0.4
|
|
ENDPROC
|