aUCBLogo Demos and Tests / cubelist

to cubelist
l=[]
for [k 0 1][for [i 0 1][for [j i 1-i][queue "l (list i j k)]] queue "l (list 0 0 k)]
for [k 0 1][for [i 0 1][for [j i 1-i][queue "l (list k i j)]] queue "l (list k 0 0)]
cs setps [0 0] perspective
foreach l [setPosXYZ ?*100 wait 10 updategraph]
print l
end