ELF>(@@ % 100 dict begin % predefine variables /doborder false def % default font /fontname /Helvetica def /fontsize 1.0 def /bt 0.0 def /wt 1.0 def /ballrad 0.2 def /NL } bind def /XSH { xoff y 4 mod dup 3 eq {pop 1} if xstep 2 div mul add } bind def % set gray level /G { 100 div dup bt le {pop 0} } ifelse % unlabelled node /LN { gsave G sbc grestore xstep 2 mul 0 rmoveto %select font /selfont { % print single label /LAB { dup %duplicate string stringwidth -2 div exch rmoveto show /ML { numlabs 2 div 0.25 sub 0 exch rmoveto 1 1 numlabs { pop gsave dup %duplicate string stringwidth pop -2 div 0 rmoveto show grestore } for % print hexagon /H { currentpoint translate newpath 0 radius moveto closepath grestore xstep 0 rmoveto % print rectangle /R { newpath xstep 0.5 mul dup moveto xstep neg 0 rlineto 0 xstep neg rlineto xstep 0 rlineto 1 setlinewidth % End of umat PS header % Start image % PS header for umat - SOM to PS converter % Version 1.0 Tue Feb 28 1995 % Author: Jussi Hynninen /yoff 0 def /xoff 0 def /xstep 0 def /ystep 0 def /y 0 def /radius 0 def % font size relative to radius % default black and white tresholds % labelpallon sade suhteessa hexan sateeseen % newline function. Moves the y coordinate to the next line { /yoff yoff ystep sub def % next row /y y 1 add def % add y by one % start of line (for hexagonal lattice) - moves the current position in % x direction to the correct place of the line yoff moveto % move to start of line % start of line (for rectangular lattice) - moves the current position in /XSR { xoff yoff moveto } bind def % set label color. If block is light -> label is black and same for dark block /sbc { .5 gt {0} {1} ifelse setgray } bind def { dup wt ge {pop 1} {bt sub wt bt sub div} ifelse currentpoint radius ballrad mul 0 360 arc fill fontname findfont radius fontsize mul scalefont setfont pop fontsize radius mul -0.25 mul exch % print multiple labels on one unit /numlabs exch def %number of labels radius fontsize mul mul neg 0 fontsize radius mul rmoveto G dup setgray %duplicate gray level 5 {60 rotate 0 radius lineto} repeat doborder { gsave fill grestore sbc stroke} { fill pop } ifelse GCC: (GNU) 4.1.2 20080704 (Red Hat 4.1.2-50).symtab.strtab.shstrtab.text.rela.data.bss.rodata.str1.1.rodata.str1.8.comment.note.GNU-stack@&@ !0h ,125@2O.Xh(   header.cpsheader0P (08@,HAPQX`khpx~ P0` (008@HPPX`h&p-xJViqz q(z08@0H PX%`hpx`-qz4?IUgx (08@HPX`qhpx3 NHx[i|qNH x([0i8@HPX `&hp