The original coding came from Zerg.
To shorten the code it was reasoned that only four dot
patterns were needed to produce the six die patterns.

See original code at following location.
Zerg's Dice Alias

This was a fun code to play with.

alias dice {
  var %die $r(1,6),%dot drawdot @die 20 20
  window -pek @die
  clear @die
  if (%die > 1) { %dot 25 100 | %dot 500 500 }
  if (%die = 6) { %dot 25 300 | %dot 500 300 }
  if (%die > 3) { %dot 25 500 | %dot 500 100 }
  if (%die isin 135) %dot 250 300
}