(no title)
zzo38computer | 10 days ago
I also wrote a program in PostScript to draw Cistercian numbers (which uses the nonstandard sign for 6):
% Specify a four-digit number as the command-line argument.
/A ARGUMENTS 0 get def
/Digit {
get 48 sub {
{} %0
{24 0 rlineto} %1
{0 -24 rmoveto 24 0 rlineto} %2
{24 -24 rlineto} %3
{0 -24 rmoveto 24 24 rlineto} %4
{24 0 rlineto -24 -24 rlineto} %5
{24 -24 rlineto -24 0 rlineto} %6 (nonstandard)
{24 0 rlineto 0 -24 rlineto} %7
{0 -24 rmoveto 24 0 rlineto 0 24 rlineto} %8
{24 0 rlineto 0 -24 rlineto -24 0 rlineto} %9
} exch get exec stroke
} bind def
4 setlinewidth
6 6 moveto
gsave
36 0 rmoveto
0 72 rlineto
gsave
-1 1 scale
A 2 Digit
grestore
A 3 Digit
grestore
36 72 rmoveto
1 -1 scale
0 72 rlineto
gsave
-1 1 scale
A 0 Digit
grestore
A 1 Digit
showpage quit
No comments yet.