14 lines
291 B
Text
14 lines
291 B
Text
to cuboid :l1 :l2 :l3
|
|
cs perspective ;making the room ready to use
|
|
setxyz :l1 0 0
|
|
setxyz :l1 :l2 0
|
|
setxyz 0 :l2 0
|
|
setxyz 0 0 0
|
|
setxyz :l1 0 0
|
|
setxyz :l1 0 -:l3
|
|
setxyz :l1 :l2 -:l3
|
|
setxyz :l1 :l2 0
|
|
setxyz 0 :l2 0
|
|
setxyz 0 :l2 -:l3
|
|
setxyz :l1 :l2 -:l3
|
|
end
|