|
123456789101112131415161718192021222324 |
- %% Multidot font Copyright Anoto AB 2006 All rights reserved
- /ngon 0 ngo sub def
- /!{bind def}bind def /ix{index}! /pfor{1 1 3 -1 roll}! /npop{pfor{pop pop}for}!
- /fsds (df____) def /fswd 256 array def /fsbb 256 array def /fssc 256 array def /fsma 256 array def /fscc 256 array def
- 0 1 255{fsbb exch [0 0 ngs ngs] put}for
- /fssm{2 copy ge{dup pfor{1 sub 4 mul 2 add ix fsma exch 5 ix exch put 4 -1 roll 1 add 4 1 roll}for 3 npop}{4 pfor{4 ix exch 1 sub 3 ix 1 add 3 ix fssm 5 -1 roll pop 4 1 roll}for 3 npop}ifelse}!%%Gunee is the king of recursive postscript!!!
- /fssf{pfor{pop 6 3 roll 3 copy 3 array astore fssc 8 ix 3 -1 roll put 2 copy mul ngs mul 0 0 2 ix ngs 4 array astore fsbb 9 ix 3 -1 roll put 0 2 array astore
- fswd 8 ix 3 -1 roll put 3 ix mul 6 1 roll 3 ix add 6 1 roll 3 ix add 6 1 roll 7 -1 roll 1 add 7 1 roll}for 7 npop}!
- /mdot{fssc exch get 0 exch aload pop pfor{pop 1 ix 1 3 ix 3 ix add 1 sub{fsma exch get ngsh [ngo 0 ngon 0 0] 2 ix get add 4 ix add ngsh [0 ngo 0 ngon 0] 3 ix get add nprad 0 360 arc closepath fill pop 3 -1 roll ngs add 3 1 roll}for}for 3 npop}!
- /fsscc{pfor { 1 ix add 1 sub 2 ix exch fscc 3 1 roll exch put exch 1 add exch}for pop}!
- 0 14 26 fsscc 42 50 fsscc 93 163 fsscc pop
- 0 0 1 1 1 0 1 4 fssf
- 4 4 2 1 2 0 1 16 fssf
- 20 36 3 1 3 0 1 64 fssf
- 84 228 1 1 0 0 2 8 fssf
- 0 0 0 1 fssm pop
- 4 0 0 2 fssm pop
- 36 0 0 3 fssm pop
- fsma 228 4 put
- 0 1 9{dup 2 exch exp ngs mul 0 2 array astore fswd 3 -1 roll 92 add 3 -1 roll put}for
- 10 dict begin
- /FontType 3 def
- /FontMatrix [1 0 0 1 0 0] def
- /FontBBox [0 0 ngs ngs] def
|
