aUCBLogo Demos and Tests / cubelist2


to cubelist2
   
l=map "tobinary ~
      
map_se [[start] (cascade 6
                     
[remainder (?1 27:start
                     
[lput bitxor last ?2 ?1 ?2] [0]
                     
[?2])] ~
                  
[1 2 4]
   
cs setps [0 0perspective 
   
foreach [setPosXYZ ?*100 wait 10 updategraph]
   
print l
end

to tobinary :num
   
output map [ifelse (bitand :num ?) > [1] [0]] [4 2 1]
end