alias 3dcube window -pkodCfB +l @cube 1 1 300 300 | %ang = 0 | %x = 100 | %y = 100 | %dis = 100 | cube
alias -l cube {
  var %newx = $calc(%x + %dis * $cos(%ang).deg) | var %newy = $calc(%y - %dis * $sin(%ang).deg) 
  $iif($window(@cube), drawrect -n @cube 1 1 %x %y 100 100, halt)
  $iif($window(@cube), drawrect -n @cube 1 1 %newx %newy 100 100, halt)
  $iif($window(@cube), drawline -n @cube 1 1 %x %y %newx %newy, halt)
  $iif($window(@cube), drawline -n @cube 1 1 $calc(%x + 99) %y $calc(%newx + 99) %newy, halt)
  $iif($window(@cube), drawline -n @cube 1 1 %x $calc(%y + 99) %newx $calc(%newy + 99), halt)
  $iif($window(@cube), drawline -n @cube 1 1 $calc(%x + 99) $calc(%y + 99) $calc(%newx + 99) $calc(%newy + 99), halt)
  $iif($window(@cube), drawdot @cube, halt)
  $iif(%ang < 360, inc %ang 5, %ang = 0)
  .timer -m 1 0 cube
}