%! ps


% create an exclusion solver for the num puzzle

(C:\\Documents and Settings\\don\\Desktop\\gonzo\\gonzo.ps) run  % use internal gonzo

50 50 40 setgrid

/tintit {gsave translate 0 0 mt 3 pu 3 pr 3 pd closepath 0.8 1 1 setrgbcolor fill grestore} store



9 9 showgrid

0 3 tintit
3 0 tintit
3 6 tintit
6 3 tintit

9 9 showgrid


/lilgrid {gsave translate 2 10 div dup scale


gsave
1 0.8 1 setrgbcolor
0 0 mt 3 pu 3 pr 3 pd closepath fill
grestore

1 0 1 setrgbcolor
line1

[{0 0 mt 3 u} 1 4] xrpt
[{0 0 mt 3 r} 1 4] yrpt

0.5 0.5 0.5 setrgbcolor

/font1 /Helvetica 0.8 gonzofont
font1

0.5 0.2 translate
 0 0 (1) cc
 0 1 (4) cc
 0 2 (7) cc
 1 0 (2) cc
 1 1 (5) cc
 1 2 (8) cc
 2 0 (3) cc
 2 1 (6) cc
 2 2 (9) cc





grestore} store

0 1 8 {/jj exch store


0 1 8 { jj lilgrid } for

} for





0 1 1 setrgbcolor 
1 setlinecap 1 setlinejoin
line2 0 0 mt 9 pu 9 pr 9 pd 9 l

line1 3 0 mt 9 u
6 0 mt 9 u
0 3 mt 9 r
0 6 mt 9 r






showpage


% EOF