aUCBLogo Demos and Tests / cubelist2

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

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