Cistercian numerals: Difference between revisions

d_paths=: (, ((2-[),])/"1 L:0 , (,3&-)/"1 L:0 , ((2-[),(3-]))/"1 L:0) d_paths

d_paths=: , a: ,. _9]\ d_paths NB. adjust indexing

NB.def transform(x, y, dx, dy, sc):

NB. """Transform the coordinates (x, y) into the scaled, displaced system."""

'i d'=. y

if. d do.

result=. 'M{},{} 'format~ TPRMS transform {. path

result=. result , }: , ' ' ,.~ 'L{},{}'format"1~TPRMS transform"1 }. path

fo=. open<y

svg_preamble fo

TPRMS=: (5 ,~ (5 + 15 * 125 | ]) , 5 + 25 * [: (<.) 125 *^:_1 ]) i

fo make_numeral i

)

rc=: 3 :0 ::('Use: rc ''filename.svg'''"_)

TPRMS=: 5 5 , scale

rm<y

fo=. open<y

svg_preamble fo

RC=. 0 1 20 300 666 4000 5555 6789

echo 'writing {}' format~ < RC