Miscellany

alias cube {
  var %o = $1
  if ($isid) {
    var %a $calc($ticks /24% 90),%c $cos(%a).deg,%s $sin(%a).deg,%n,%i 8,%r 256 ^ $replace($1,r,0,g,1,b,2), $&
      %1 $or($calc(110+140*%c)) * %r,%2 $or($calc(255-70*%c)) * %r,%n,%i 8,%d drawline -rn @cube,%f drawfill -rns @cube
    drawfill -rn @cube 0 2 1 1
    while (%i) {
      dec %i
      var %x = $iif(%i & 1,50,-50),%y = $iif(%i & 2,50,-50),%z = $iif(%i & 4,50,-50),%n %n $calc(109+%x *%c -%z *%s) $&
        $calc(99+%y *0.866-(%x *%s +%z *%c)/2)
    }
    tokenize 32 %n
    %n = $calc(255*%r)   
    %d %n 1 $13- $7-8 $5-6 $13-
    %d %n 1 $13-14 $9-12 $15- $11-12 $3-4 $7-8
    %f %n 0 100 50
    %f %2 0 $calc($15 -1) 120
    %f %1 0 $calc(1+$15) 120
    drawdot @cube
  }
  elseif (!$window(@cube)) window -dopfBCw0 @cube 1 1 220 195
  .timerc -mo 1 25 noop $!cube( %o )
}