#postscript|POSTSCRIPT|Postscript for square plots (8 x 8in):\ # :xr#2390:yr#2390:ch#.0229:cw#.013:\ # :CW=stroke\ngrestore\nshowpage\nend\n:\ # :DE=L\n(7#1+!778<#11;#0!7)CS M\n:\ # :LR=(#22!9#300!8#0!7:\ # :OW='%!\ninitgraphics\n:\ # :OX= 20 dict begin\n72 300 div dup scale\n\ # 1 setlinejoin 0 setlinecap\n\ # /Helvetica findfont 55 scalefont setfont \n\ # /B { stroke newpath } def /F { moveto 0 setlinecap} def\n\ # /C { CS M 1 1 3 { pop 3 1 roll 255 div } for SET_COLOUR } def\n\ # /CS { currentpoint stroke } def\n\ # /CF { currentpoint fill } def\n\ # /L { lineto } def /M { moveto } def\n\ # /P { moveto 0 1 rlineto stroke } def\n\ # /T { 1 setlinecap show } def\n\ # errordict /nocurrentpoint { pop 0 0 M currentpoint } put\n:\ # :OY=/SET_COLOUR { pop pop pop } def\n:\ # :OZ= 80 600 translate\ngsave\n:\ # :ME=P\n:\ # :PG=stroke showpage grestore gsave\n(#0!7:\ # :VE=M :XY=(1%d) (2%d) :FS=(#0!7)B\n:FE=CF M\n:FD=(1%d) (2%d) L\n:\ # :CT= (1%d) (2%d) (3%d) C\n:DC=black\ # :TB=(1%d) (2%d) F '(:TE=') T\n:\ # :lt=01234\:;:\ # :ML=CS (1$0)[]($1)[6 12]($2)[32 24]($3)[80 24]($4)[6 12 32 12]\ # ($\:)currentrgbcolor 5 3 roll 1 1 1 setrgbcolor []\ # ($;)M setrgbcolor CS []($$) 0 setdash M\n:\ # :LW=CS stroke M (1%d) 0.5 add setlinewidth\n:OF=ps_XXXXXX:\ # :SY=lpr -h -r $F: sparcdots|SPARCDOTS|SparcPrinter that can print ptype 0 0 or 1 1 :\ :xr#2390:yr#2390:ch#.0229:cw#.013:\ :CW=stroke\ngrestore\nshowpage\nend\n:\ :DE=L\n(7#1+!778<#11;#0!7)CS M\n:\ :LR=(#22!9#300!8#0!7:\ :OW='%!\ninitgraphics\n:\ :OX= 20 dict begin\n72 300 div dup scale\n\ 1 setlinejoin 0 setlinecap\n\ /Helvetica findfont 55 scalefont setfont \n\ /B { stroke newpath } def /F { moveto 0 setlinecap} def\n\ /C { CS M 1 1 3 { pop 3 1 roll 255 div } for SET_COLOUR } def\n\ /CS { currentpoint stroke } def\n\ /CF { currentpoint fill } def\n\ /L { lineto } def /M { moveto } def\n\ /P { moveto 0 1 rlineto stroke } def\n\ /T { 1 setlinecap show } def\n\ errordict /nocurrentpoint { pop 0 0 M currentpoint } put\n:\ :OY=/SET_COLOUR { pop pop pop } def\n:\ :OZ= 80 600 translate\ngsave\n:\ :ME=P\n:\ :PG=stroke showpage grestore gsave\n(#0!7:\ :VE=M :XY=(1%d) (2%d) :FS=(#0!7)B\n:FE=CF M\n:FD=(1%d) (2%d) L\n:\ :CT= (1%d) (2%d) (3%d) C\n:DC=black\ :TB=(1%d) (2%d) F '(:TE=') T\n:\ :lt=01234\:;:\ :ML=CS (1$0)[]($1)[6 12]($2)[32 24]($3)[80 24]($4)[6 12 32 12]\ ($\:)currentrgbcolor 5 3 roll 1 1 1 setrgbcolor []\ ($;)M setrgbcolor CS []($$) 0 setdash M\n:\ /P { moveto 0 (1%d).5 rlineto stroke } def\n:\ :OF=ps_XXXXXX:\ :SY= mv $F $1: :TC=postscript: # :SY=lpr -h -Pwhitbread -r $F: # :LW=CS M (1%d).5 setlinewidth\n\ sparcdots_l|SPARCDOTS_L|landscape version of sparcdots:\ :xr#3200:yr#2390:cw#.0168:ch#.0229:\ :OZ= 2470 50 translate 90 rotate\ngsave\n:\ :tc=sparcdots: sparcdots_p|SPARCDOTS_p|portrait version of sparcdots:\ :yr#3200:xr#2390:\ :OZ= 80 50 translate\ngsave\n:tc=sparcdots: postportf|Just make a postscript file, no printing, portrait mode:\ :SY=sed -e '/stroke \\\\[\\\\] 0 setdash/N' -e '/.*\\\\n.*_RHL/N' \ -e '/.*\\\\n.*_RHL/s/.*\\\\n*.*_RHL \\\\(.*\\\\)) T\\\\n.*/\\\\1/' \ $F > $F~;echo $F~ is done:tc=postport: postlandf|Just make a postscript file, no printing, landscape mode:\ :SY=sed -e '/stroke \\\\[\\\\] 0 setdash/N' -e '/.*\\\\n.*_RHL/N' \ -e '/.*\\\\n.*_RHL/s/.*\\\\n*.*_RHL \\\\(.*\\\\)) T\\\\n.*/\\\\1/' \ $F > $F~;echo $F~ is done:tc=postland: #postencap|encap|encapsulated postscript, written to file $1:\ # :OW='%!PS-Adobe-2.0 EPSF-2.0\n'%'%Creator\: SM\n\ # '%'%BoundingBox\: 18 144 593 718\n'%'%DocumentFonts\: Helvetica\n\ # '%'%EndComments\n:\ # :OZ=gsave 0 0 translate\n:\ # :SY=mv $F $1 ; echo $1 is done :TC=postscript: postporte|encapp|encapsulated postscript, portrait mode written to file $1:\ :OW='%!PS-Adobe-2.0 EPSF-2.0\n'%'%Creator\: SM\n\ '%'%BoundingBox\: 36 54 576 738\n'%'%DocumentFonts\: Helvetica\n\ '%'%EndComments\n:\ :SY=mv $F $1 ; echo $1 is done :TC=postport: postlande|encapl|encapsulated postscript, landscape mode written to file $1:\ :OW='%!PS-Adobe-2.0 EPSF-2.0\n'%'%Creator\: SM\n\ '%'%BoundingBox\: 18 144 593 718 \n'%'%DocumentFonts\: Helvetica\n\ '%'%EndComments\n:\ :SY=mv $F $1 ; echo $1 is done :TC=postland: postscript-smalldots|Postscript for square plots (8 x 8in) w. small ptype 0 0:\ :LW=CS M (1|$0#1%d$D1%g) 100 mul 72 div($$) dup setlinewidth\n:\ :SY= echo $F is done :TC=postscript: postport-smalldots|Postscript for portrait plots w. small ptype 0 0:\ :LW=CS M (1|$0#1%d$D1%g) 100 mul 72 div($$) dup setlinewidth\n:\ :SY=mv $F $1 ; echo $1 is done :tc=postporte: postlandSmalldots|Postscript for landscape plots w. small ptype 0 0:\ :LW=CS M (1|$0#1%d$D1%g) 100 mul 72 div($$) dup setlinewidth\n:\ :SY=mv $F $1 ; echo $1 is done :tc=postlande: