%!PS

% Using Acrobat Distiller as a General Purpose PostScript Computer #29======================================================================
% by  Don Lancaster

/ggnum 29 store

%  Copyright c 2003 by Don Lancaster & Synergetics, Box 809, Thatcher, AZ, 85552
%  (928) 428-4073 Email: don@tinaja.com Website: http://www.tinaja.com
%  Consulting services available http://www.tinaja.com/info01.html
%  Linking welcome. Reposting expressly forbidden. 

%  All commercial rights and all electronic media rights ~fully~ reserved.
%  Linking usually welcome. Reposting expressly forbidden. Version 1.1 

%  Tutorial shows how to use log file analysis utilities for custom purposes
%  including detecting eBay image theft.

%  IMPORTANT NOTE: Don Lancaster's file gonzo.ps is required for this program.
%  After obvious location mods, uncomment ONE of the following two lines:


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

%  NOTE THAT ALL PS FILENAME STRINGS !!!DEMAND!!! DOUBLE REVERSE SLASHES.

%  GONZO20A Guru Gonzo PostScript power tools (Interim release)
%  Includes gonzo justification and layout utilities.

%  Copyright c 1990, 1996, 2001 by Don Lancaster and Synergetics, Box 809,
%  Thatcher Arizona, 5552 (928) 428-4073  don@tinaja.com  support
%  via http://www.tinaja.com  All commercial rights and all electronic
%  media rights **FULLY** reserved. Reposting is expressly forbidden.


%%%%%%%%%%% links menu directory %%%%%%%%%%%%

% This code locks pdfmark commands out of a PostScript printer.

/pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse

% /surl "start url" marks the beginning of a text sequence to be urled. 
% It also paints the text blue...

/surl {mark /blue cvx 0.33 /setgray cvx     % change text to blue
       /currentpoint cvx                    % remember box start
       /urly /exch cvx /store cvx
       /urlx /exch cvx /store cvx
         ] cvx                              % complete deferred command

       printlist exch 3 index exch put      % stuff into gonzo printlist
       exch 1 add exch                      % increment gonzo list count
} def

% /eurl "end url" unmarks the end of a text sequence and sets up
% the pdfmark needed to define the Acrobat web link. 

/eurl {mark                               % start deferred proc      
       exch                               % position url string
       % /black cvx 0  /setgray cvx         % turn blue marker off 
       % maintextcolor /setrgbcolor  cvx    % reset to main text color???

       /aqua cvx /black cvx
       /makeurl cvx                       % defer call of url builder
        ] cvx                             % complete deferred proc

        printlist exch 3 index exch       % stuff into gonzo printlist
        put exch 1 add exch               % increment gonzo list count      
        } def


% /makeurl generates the pdfmark, receiving a {(urlstring) makeurl}.
% Note that it is not called until formatted printlist time...

/urlover 0.2 def                    % fraction of hot area over bounds

/makeurl { /cururlname exch store          % save the url string
            mark                           % start pdfmark

currentfont /ScaleMatrix get 3 get /fsize exch store  % guess height

  /Rect  [ urlx fsize urlover mul sub      % set box left x
           urly fsize urlover mul sub      % set box left y
           currentpoint
           exch fsize urlover mul add exch
           fsize add
           ]
           /Border [ 0 0 0]   % [0 0 0 ] = none; [0 0 2] = debug 
           /Color [ .7 0 0 ]
           /Action <</Subtype /URI /URI cururlname>>
           /Subtype /Link
           /ANN                            % annotation type
           pdfmark                        % call pdf operators    
} def

% /makeurlx generates the box specific pdfmark, receiving 
% a {(urlstring) makeurl}.
% Note that it is not called until formatted printlist time...


/makeurlx { /cururlnamex exch store        % save the url string
            mark                           % start pdfmark

  /Rect  [ xpos                            % set box left x
           ypos 0.9 sub                    % set box left y
           xpos 2.8 add                    % box right x
           ypos 0.9 sub 2.8 add            % box right y
           ]
           /Border [ 0 0 0]   % [0 0 0 ] = none; [0 0 2] = debug 
           /Color [ .7 0 0 ]
           /Action <</Subtype /URI /URI cururlnamex>>
           /Subtype /Link
           /ANN                            % annotation type
           pdfmark                        % call pdf operators    
} def


/maintextcolor {0 0 0 } def

% text link specific data  -- use dictionary instead below


{

/cubic01 {(http://www.tinaja.com/cubic01.asp) eurl} def
/hack62 {(http://www.tinaja.com/glib/hack62.pdf) eurl} def
/increment {(http://www.tinaja.com/text/bezgen3.html) eurl} def
/interpolate {(http://members.bellatlantic.net/~vze2vrva/design.html) eurl } def

/bezmath {(http://www.tinaja.com/text/bezmath.html) eurl } def

/table {(http://www.tinaja.com/psutils/imtable.psl) eurl } def



} pop

% dictionary method

<<    %zzzzz

%%%% unused links have been commented for gg9a simplicity


% addition to gg29 updates

/readfiles (http://www.adobe.com/devnet/acrobat/downloads/Acrobat_SDK_readme.html)
/ps8drp1.pdf (http://www.tinaja.com/glib/ps8drp1.pdf)
/gonzotut.pdf (http://www.tinaja.com/glib/gonzotut.pdf)

/psdisk03 (http://www.tinaja.com/glib/psdisk03.pdf)
/muse01 (http://www.tinaja.com/muse01.asp)
/gonzopow (http://www.tinaja.com/glib/gonzopow.pdf)
/analogeb (http://www.tinaja.com/glib/analogeb.pdf)
/psdisk03 (http://www.tinaja.com/glib/psdisk03.pdf)
/flut01 (http://www.tinaja.com/flut01.asp)
/clpng (news:///comp.lang.postscript)
/ctpng (news:///comp.text.pdf)

/yahoo (http://www.yahoo.com)
/google (http://www.google.com)
/scodes (http://www.w3.org/Protocols/rfc2616/rfc2616-sec10.html)
/whois (http://www.networksolutions.com/en_US/whois/index.jhtml)
/zekes (http://www.zekes.com)
/logfileformat (http://www.microsoft.com/windows2000/en/server/iis/default.asp?url=/windows2000/en/server/iis/htm/core/iicnvlg.htm)
/logrpt01.psl (http://www.tinaja.com/psutils/logrpt01.psl)
/logrpt01.log (http://www.tinaja.com/psutils/logrpt01.log)
/ex031126 (http://www.tinaja.com/psutils/ex031126.log)


/picup01 (http://www.tinaja.com/picup01.asp)
/webwb01 (http://www.tinaja.com/webwb01.asp)
/muse90 (http://www.tinaja.com/glib/muse90.pdf)
/vismagsn (http://www.tinaja.com/glib/vismagsn.psl)
/optjit01 (http://www.tinaja.com/psutils/optjit01.psl)
/optjit01demo (http://www.tinaja.com/psutils/optjit01.pdf)
/qall01 (http://www.tinaja.com/psutils/qall01.psl)

/deltapat (http://www.tinaja.com/glib/deltapat.pdf)
/mindist1 (http://www.tinaja.com/glib/mindist1.pdf)
/deltams1 (http://www.tinaja.com/glib/deltams1.pdf)
/grabjpg (http://www.tinaja.com/psutils/grabjpg.psl)
/gallery (http://www.tinaja.com/glib/gallery.pdf)
/nutour01 (http://wwww.tinaja.com/nutour01.pdf)

/linkpdf1 (http://www.tinaja.com/glib/linkpdf1.html)

/ebayfoto (http://www.tinaja.com/glib/ebayfoto.pdf)
/jpeg2pdf.html (http://www.tinaja.com/text/jpeg2pdf.html)

/pdf2bmp (http://www.tinaja.com/psutils/pdf2bmp.psl)
/bitmfont (http://www.tinaja.com/psutils/bitmfont.txt)
/antifontpsl (http://www.tinaja.com/psutils/antifont.psl)
/antifonttxt (http://www.tinaja.com/psutils/antifont.txt)

/histog01 (http://www.tinaja.com/psutils/histog01.psl)
/swingtlt (http://www.tinaja.com/glib/swingtlt.pdf)
/newsamoe (news:///alt.marketing/online.ebay) 
/webtrends (http://www.netiq.com/webtrends/default.asp)
/stegan (http://63.140.207.28/books/bkwater.asp)
/nodi (http://www.pages.ebay.com/help/community/notice-infringe2.pdf)
/ebayvero (http://www.pages.ebay.com/help/community/vero-program.html)
/aboutme (http://members.ebay.com/aboutme/abeja/)
/magfill2 (http://www.tinaja.com/psutils/magfill2.psl)
/bmprpt01 (http://www.tinaja.com/psutils/bmprpt01.psl)
/waywere (http://www.tinaja.com/glib/waywere.pdf)

/nikon (http://www.nikon.com)
/bayer (http://www.coreco.com/Web/wbtools3.nsf/0/87fce126f109ea3a05256c7100591c9a?OpenDocument) 

/hewpack (http://www.hp.com)
/auct01 (http://www.tinaja.com/auct01.asp)
/blat01 (http://www.tinaja.com/auct01.asp)
/moreebay (http://www.tinaja.com/glib/moreebay.pdf)
/auctscne (http://www.tinaja.com/glib/auctscne.pdf)






/autourl (http://www.tinaja.com/glib/autourl.pdf)
/msintro1 (http://www.tinaja.com/glib/msintro1.pdf)
/msintrosource (http://www.tinaja.com/glib/msintro1.psl) 
/knockout (http://www.tinaja.com/glib/knockout.bmp) 

/stepsynt (http://www.tinaja.com/glib/stepsynt.pdf)
/msintro1 (http://www.tinaja.com/glib/msintro1.pdf)
/msinprop (http://www.tinaja.com/glib/msinprop.pdf)

/muse106 (http://www.tinaja.com/glib/muse106.pdf)
/muse142 (http://www.tinaja.com/glib/muse142.pdf)
/math01 (http://www.tinaja.com/math01.asp)
/cubic01 (http://www.tinaja.com/cubic01.asp)
/bez4pts (http://www.tinaja.com/glib/bez4pts.pdf)
/muse145 (http://www.tinaja.com/glib/muse145.pdf)
/muse148 (http://www.tinaja.com/glib/muse148.pdf)
/curveft3 (http://www.tinaja.com/psutils/curveft3.psl)
/fuzzybez (http://www.tinaja.com/glib/fuzzybez.pdf)

/bmprpt01 (http://www.tinaja.com/psutils/bmprpt01.psl)
/nowhit01 (http://www.tinaja.com/psutils/nowhit01.psl)
/blender (http://www.tinaja.com/psutils/blender.psl)
/speedup2 (http://www.tinaja.com/glib/speedup2.pdf)
/histog01 (http://www.tinaja.com/psutils/histog01.psl)
/imgviewer32 (http://www.arcatapet.net/imgv32.cfm)
/basis (http://www.tinaja.com/glib/basis.pdf)
/expbmp (http://www.tinaja.com/glib/expbmp.pdf)
/dodbur01 (http://www.tinaja.com/psutils/dodbur01.psl)
/dodgebur (http://www.tinaja.com/glib/dodgebur.pdf) 

/magfill1 (http://www.tinaja.com/psutils/magfill1.psl)
/swingt01 (http://www.tinaja.com/psutils/swingt01.psl)

/before01 (http://www.tinaja.com/images/bargs/marcon01.jpg)
/during01 (http://www.tinaja.com/images/bargs/marcon01.bmp)
/after01 (http://www.tinaja.com/images/bargs/marconz1.jpg)
/repobmp (http://www.tinaja.com/glib/repobmp.pdf)
/basis01 (http://www.tinaja.com/glib/basis.pdf)

/arcata (http://www.arcatapet.net/imgv32.cfm) 


/comparebmp (http://www.designer-info.com/Writing/bmp_tiff_jpeg_gif.htm)
/imagimag (http://www.tinaja.com/glib/imagimag.pdf)
/myebays (http://www.tinaja.com/glib/myebays.pdf)
/stepprep (http://www.tinaja.com/glib/stepprep.pdf)
/aafont01 (http://www.tinaja.com/aafont01.asp)

/here1 (http://village.infoweb.ne.jp/~fwhw1257/study/bmpform.htm)
/here2 (http://www.daubnet.com/formats/BMP.html)

/bittype (http://www.tinaja.com/psutils/pdf2bmp.psl)
/photocombine (http://www.tinaja.com/psutils/blender.psl)

/psl (http://www.tinaja.com/psutils/) % dummy temp

/psl1 (http://www.tinaja.com/psutils/pdf2bmp.psl) 
/psl2 (http://www.tinaja.com/psutils/acatdata.psl) 
/psl3 (http://www.tinaja.com/psutils/catwords.psl) 
/psl4 (http://www.tinaja.com/psutils/graburls.psl) 
/psl5 (http://www.tinaja.com/psutils/blender.psl) 
/psl6 (http://www.tinaja.com/psutils/catools1.psl) 
/psl7 (http://www.tinaja.com/psutils/strconv.html) 
/psl8 (http://www.tinaja.com/psutils/bodcat.psl) 
/psl9 (http://www.tinaja.com/psutils/flatvue1.psl) 
/psl10 (http://www.tinaja.com/psutils/fern2img.psl) 
/psl11 (http://www.tinaja.com/psutils/flutools.psl) 
/psl12 (http://www.tinaja.com/psutils/mscal156q.psl) 
/psl13 (http://www.tinaja.com/psutils/weblogu2.psl) 
/psl14 (http://www.tinaja.com/psutils/pfa2pfb.psl) 
/psl15 (http://www.tinaja.com/psutils/pfb2pfa.psl) 
/psl16 (http://www.tinaja.com/glib/psdisk03.psl) 
/psl17 (http://www.tinaja.com/psutils/disktool.psl) 
/psl18 (http://www.tinaja.com/glib/psinscrt.psl) 
/psl19 (http://www.tinaja.com/glib/pssearch.psl) 
/psl20 (http://www.tinaja.com/text/refsum1.html)
/psl21 (http://www.tinaja.com/text/reflog1.html) 
/psl22 (http://www.tinaja.com/psutils/reflog1.psl) 
/psl23 (http://www.tinaja.com/psutils/refsum1.psl) 
/psl24 (http://www.tinaja.com/psutils/searepl.psl) 
/psl25 (http://www.tinaja.com/psutils/weberru2.psl) 
/psl26 (http://www.tinaja.com/psutils/grabsrch.psl) 
/psl27 (http://www.tinaja.com/psutils/grabrefs.psl) 



/magsn01 (http://www.tinaja.com/magsn01.asp)

/gonzoutils (http://www.tinaja.com/post01.asp#gonzo)
/disktool (http://www.tinaja.com/psutils/disktool.ps)

/elesimp (http://www.tinaja.com/glib/elesimp.pdf)
/tn5603 (http://partners.adobe.com/asn/developer/pdfs/tn/TN5603.Filters.pdf)

/fern2img (http://www.tinaja.com/psutils/fern2img.psl)
/fern     (http://www.tinaja.com/psutils/fern2img.pdf)
/oldfern  (http://www.tinaja.com/psutils/fernx1.pdf) 

/acrosdk (http://partners.adobe.com/asn/developer/acrosdk/main.html)


/refman2 (http://partners.adobe.com/asn/developer/pdfs/tn/psrefman.pdf)
/refman3 (http://partners.adobe.com/asn/developer/pdfs/tn/PLRM.pdf)

/s3011 (http://partners.adobe.com/asn/developer/pdfs/tn/PS3010and3011.Supplement.pdf)

/s2011 (http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2011.supplement.pdf)
/s2012
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2012.supplement.pdf)
/s2013
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2013.supplement.pdf)
/s2014
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2014.supplement.pdf)
/s2015
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2015.supplement.pdf)
/s2016
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2016.supplement.pdf)


/ghost (http://www.cs.wisc.edu/~ghost/)
/distlang (http://www.tinaja.com/psutils/distlang.html)

/adobepst (http://partners.adobe.com/asn/developer/technotes/)


/maildon (mailto:don@tinaja.com)
/tinaja (http://www.tinaja.com)
/adobe (http://www.adobe.com)
/adobesdk (http://partners.adobe.com/asn/developer/acrosdk/main.html)
/pstrans (http://www.tinaja.com/glib/pstrans.pdf)
/borland (http://www.borland.com/products/downloads/download_cbuilder.html)
/ebay
(http://cgi6.ebay.com/ws/eBayISAPI.dll?ViewSellersOtherItems&userid=abeja&completed=0&sort=2&since=-1&include=0&page=1&rows=100)

/searepl (http://www.tinaja.com/psutils/searepl.psl)




/aasdk (http://www.tinaja.com/plugins/AboutAcrobatSDK.api)
/uncomp (http://www.tinaja.com/plugins/UncompressPDF.api)
/addimage (http://www.tinaja.com/plugins/AddImage.api)
/samplejpg (http://www.tinaja.com/plugins/sample.jpg)
/transparency (http://www.tinaja.com/plugins/Transparency.api)
/threerects (http://www.tinaja.com/plugins/threerects.pdf)
/watermark (http://www.tinaja.com/plugins/Watermark.api)
/verifyurls (http://www.tinaja.com/plugins/VerifyURLS.api)


/flate (http://www.tinaja.com/glib/flatvue.pdf)
/pstrans (http://www.tinaja.com/glib/pstrans.pdf)

/advt01 (http://www.tinaja.com/advt01.asp)
/amlink01 (http://www.tinaja.com/amlink01.asp)
/ng1 (news:///comp.text.pdf)  
/ng2 (news:///comp.lang.postscript)  

/msc++ (http://msdn.microsoft.com/visualc/productinfo/default.asp)

/degub (http://www.tinaja.com/glib/degub.pdf)



/ghostscript (http://www.artifex.com/pressreleases/GS70.htm)


/demox.psl  (http://www.tinaja.com/glib/g9demox.psl)
/demox.pdf  (http://www.tinaja.com/glib/g9demox.pdf)
/demo.pdf   (http://www.tinaja.com/glib/g9demo.pdf)
/flatvue (http://www.tinaja.com/glib/flatvue.psl)

/pdfrefman (http://partners.adobe.com/asn/developer/acrosdk/docs.html)

/psrefman 
(http://partners.adobe.com/asn/developer/technotes/postscript.html)

/pdfmrm
(http://partners.adobe.com/asn/developer/acrosdk/docs.html)

/tipdf
(http://partners.adobe.com/asn/developer/acrosdk/docs.html)

/asdk 
(http://partners.adobe.com/asn/developer/acrosdk)
          
/mtcr (http://support.adobe.com/devsup/devsup.nsf/docs/51864.htm)

/flatvue1 (http://www.tinaja.com/psutils/flatvue1.psl)
/acrob01 (http://www.tinaja.com/acrob01.asp)
/post01 (http://www.tinaja.com/post01.asp)
/info01 (http://www.tinaja.com/info01.asp)
/gurgrm01 (http://www.tinaja.com/gurgrm01.asp)


{

/tilley (http://www.tilleyfoundation.com)
/mnglobal (http://www.mnglobal.com/energy/pg2.htm)
/keely (http://www.keelynet.com)
/evolve (http://www.evolvedtechnology.com)
/hack64 (http://www.tinaja.com/glib/hack64.pdf)
/hackar3 (http://www.tinaja.com/glib/hackar3.pdf)
/resbn58 (http://www.tinaja.com/glib/resbn58.pdf)
/bppt (http://www.batterypoweronline.com)
/muse112 (http://www.tinaja.com/glib/muse112.pdf)
/muse113 (http://www.tinaja.com/glib/muse113.pdf)
/energfun (http://www.tinaja.com/glib/energfun.pdf)
/bashpseu (http://www.tinaja.com/glib/bashpseu.pdf)


/adobe (http://www.adobe.com)
/netscape (http://www.netscape.com)

/gallypsl (http://www.tinaja.com/galley1.psl)
/gallypdf (http://www.tinaja.com/galley1.pdf)

/atn5150 (http://partners.adobe.com/asn/developer/acrosdk/docs/createpdfapi/pdfmarkReference.pdf)

/nutour (http://www.tinaja.com/bargains/nutour02.pdf)
/nutoursource (http://www.tinaja.com/bargains/nutour02.psl) 

/bwhistle (http://www.tinaja.com/glib/bwhistle.pdf) 

/gonzo1 (http://www.tinaja.com/post01.asp#gonzo)


/barg01 (http://www.tinaja.com/barg01.asp)
/weblib01 (http://www.tinaja.com/weblib01.asp)
/gurgrm01 (http://www.tinaja.com/gurgrm01.asp)


/z1 (http://www.tinaja.com/bargains/thumb/albradz2.jpg)
/z2 (http://www.tinaja.com/bargains/sbtesteq.asp)
/z3 (http://www.tinaja.com/images/bargs/albrad02.jpg)

/z4 (http://www.tinaja.com/bargains/thumb/tutenaz2.jpg)
/z5 (http://www.tinaja.com/bargains/sbphone.asp)
/z6 (http://www.tinaja.com/images/bargs/tutena02.jpg)

/sourceme (http://www.tinaja.com/glib/gallery.psl)
/sourceme2 (http://www.tinaja.com/glib/autourl.psl)

} pop



>> {mark exch /eurl cvx ] cvx def} forall





%%%%%%%%%%%%%%%% New colorizer patches %%%%%%%%%%%%%%%%%%
 

 
/boxgrays 0.899 def
/grayshade boxgrays def
/mastergray boxgrays def
/staytint {0.33 setgray} def
/staytint1 {0.25 setgray} def
/showadgrays true def

/red {0 settint} def

 /Zmacro {staytint /ypos ypos 2 add def 72 300 div setlinewidth xpos 
ypos moveto
txtwide 0 rlineto stroke /ypos ypos -2 add def tintoff} def  % hair rule
 
 /amacro {(zy0)  stringmacro /ypos
  ypos ypara add def  0.33 setgray } def             % start drop cap
 /bmacro {(iFy1) stringmacro /ypos
  ypos ypara add def  black} def             % finish drop cap
 

 
% Gonzo character colorizer

/blueon {mark /blue cvx 0.33 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/blueoff {mark /beige cvx 0  /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton {mark 0.33 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton1 {mark 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def


/tinton1b {mark beige cvx     % try for aqua after url???

 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton1a {mark /aqua cvx     % try for aqua after url???

 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton1p {mark /burple cvx     % try for aqua after url???

 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton1r {mark /red cvx     % try for aqua after url???

 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def

/tinton1a {mark /aqua cvx     % try for aqua after url???

 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def





/tinton1b {mark /beige cvx     % try for beige after url???

 0.25 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def





/tintoff {mark 0 /setgray cvx] cvx
        printlist exch 3 index exch put exch 1 add exch} def


%%%%%%%%%%%%%% COMPACT  VERSION OF  COLORIZER II %%%%%%%%%%%%%%%%%%%%%%

/settint {dup /currenttint exch store 5.999 mul dup floor cvi /&cbar
          exch store dup floor sub /&cwt exch store [
{/setgray [ /dup cvx 0.3 &cwt 0.59 mul add /ge cvx
 [1 /exch cvx &cwt 0.59 mul 0.30 add /sub cvx 1 &cwt sub
 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul cvx
 &cwt /add cvx /exch cvx ] cvx [ &cwt 0.59 mul 0.3 add /div
 cvx /dup cvx &cwt /mul cvx 0] cvx /ifelse cvx /setrgbcolor
 cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub 0.3 mul add /ge cvx
 [1 &cwt sub 0.3 mul 0.59 add /sub cvx &cwt 0.3 mul 0.11 add
 /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx /exch cvx
 1 /exch cvx] cvx [1 &cwt sub 0.3 mul 0.59 add /div cvx /dup
 cvx 1 &cwt sub /mul cvx /exch cvx 0] cvx /ifelse cvx
 /setrgbcolor cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 &cwt 0.11 mul add /ge cvx [&cwt
 0.11 mul 0.59 add /sub cvx 1 &cwt sub 0.11 mul 0.30 add
 /div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx 1 /exch
 cvx] cvx [0 /exch cvx &cwt 0.11 mul 0.59 add /div cvx /dup cvx
 &cwt /mul cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
 /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub mul 0.11 add /ge cvx [1 &cwt
 sub 0.59 mul 0.11 add /sub cvx &cwt 0.59 mul 0.30 add /div cvx
 /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx 1] cvx [0 /exch cvx
 1 &cwt sub 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul
 cvx /exch cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
/def cvx}
{/setgray [/dup cvx 0.11 &cwt 0.30 mul add /ge cvx[&cwt 0.30 mul
 0.11 add /sub cvx 1 &cwt sub 0.30 mul 0.59 add /div cvx /dup
 cvx 1 &cwt sub /mul cvx &cwt /add cvx /exch cvx 1] cvx [ &cwt
 0.30 mul 0.11 add /div cvx /dup cvx &cwt /mul cvx /exch cvx 0
 /exch cvx ] cvx /ifelse cvx /setrgbcolor cvx ] cvx /def cvx}
{/setgray [ /dup cvx 0.30 1 &cwt sub 0.11 mul add /ge cvx[ 1
 /exch cvx 1 &cwt sub 0.11 mul 0.30 add /sub cvx &cwt 0.11 mul
 0.59 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx
 ] cvx [ 1 &cwt sub 0.11 mul 0.30 add /div cvx /dup cvx
 1 &cwt sub /mul cvx 0 /exch cvx] cvx /ifelse cvx /setrgbcolor
 cvx ] cvx /def cvx}

] &cbar get exec exec} bind def

/beige  {0.10 settint} def      % examples of convenience operators
/aqua   {0.52 settint} def
/blue    {0.67 settint} def
/lime     {0.44 settint} def
/burple {0.75 settint} def

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





/guru { gonzo begin
ps.util.1 begin printerror nuisance begin} def  % 

guru                                           % activate gonzo utilities


50 50 10 setgrid                               % create grid
% 56 61 showgrid  

/setpagefonts {

/cstretch 0.015 def
/sstretch 0.015 def
/font0 /StoneSans-Bold 1.6 gonzofont
/font1 /StoneSans 0.95 gonzofont
/font2 /StoneSans [0.95 0 0.25 0.95 0 0 ] gonzofont
/font4 /StoneSans 0.85 gonzofont
/font3 /StoneSans-Bold 0.85 gonzofont
/font6 /StoneSans-Bold 0.85 gonzofont
/font7 /StoneSans-Bold 1.05 gonzofont   % subheaders

/font8 /StoneSans-Bold [0.65 0 0 0.65 0 0.4] gonzofont

/txtwide 36 store

/yinc 1.2 store
/kern 0.1 store

/pm 1.5 store



aqua 0.33 setgray
font1

black




/amacro { mark /aqua cvx 0.33 /setgray cvx ] cvx
        printlist exch 3 index exch       % stuff into gonzo printlist
        put exch 1 add exch  } def

/bmacro { mark /black cvx ] cvx
        printlist exch 3 index exch       % stuff into gonzo printlist
        put exch 1 add exch  } def

/shiftin {xpos /xposhold exch store /xpos xpos 3 add store} def

/shiftout {/xpos xposhold store} def

/texttop 51 store
/textleft 3 store


/cmacro {aqua 0.25 setgray (znhL7) stringmacro

/xpos xpos 1.7 sub store

/ypos ypos .1 sub def

} def   % left title


/dmacro {black (pL1hz)  stringmacro

/xpos xpos 1.7 add store

/ypos ypos .1 add def} def       % normal text after centered title




/fmacro  % try and fake |
      {mark /gsave cvx 
         /currentpoint cvx
         /moveto cvx
         0.1 /setlinewidth cvx
         0 0.65 /rlineto cvx  /stroke cvx
         /grestore cvx
         ] cvx

       printlist exch 3 index exch put      % stuff into gonzo printlist
       exch 1 add exch                      % increment gonzo list count
} def


} def

setpagefonts

% -2 50.5 (optional header here \274) cl

%% Set document opening conventions. Note DOCVIEW limited.

[/CropBox [0 0 520 620]       % set the wierd size
/PAGES pdfmark 

[ {Catalog} <<
 /ViewerPreferences << /FitWindow true /CenterWindow true >>
 /PageLayout /OneColumn            % continous
 /Pagemode /UseNone                % no thumbs
 /View [/XYZ null null 1 ]         % force 100%
             >>
 /PUT pdfmark



%%%%%%%%%%%%%%%%% START DEMO ART   (not in use) %%%%%%%%%%%%%%%%


%%% Hand patching Info:

%  next available variable is /GS3 
%  transparency gstate is object 2
%  contents stream is object 18  gets  q /GS3 gs (xstuff) Q 
%  be sure to q Q bracket to localize
%  resources stream is object 19    gets  /GS3 2 0 R 


/transoverlay {

   % make a new graphics state
   [ /_objdef {newgsstate} /type /dict /OBJ pdfmark 

   % fill the new overlay graphics state - See PDF manual for details 
   [  {newgsstate}
          <<
            /Type /ExtGState 
            /ca 0.5                % fill transparency is 0.5
            /CA 0.5                % stroke transparency is 0.5
            /BM /Normal 
            /AIS false 
            /OP false 
            /OPM 1 
            /op true 
           >> /PUT

           pdfmark

    % start a Begin Picture graphics overlay subroutine...
    [ /BBox [0 0 1000 1000 ] /_objdef {overlaypix} /BP pdfmark

    % fill the Begin Picture graphics overlay Xobject subroutine...

          0 0.5 1 setrgbcolor     % on the aqua side of blue
          4 4 6 6 rectfill

    % complete the Begin Picture graphics overlay Xobject...
    [ /EP pdfmark

     } def


% Write a two squares program...

  /twosquares { gsave translate
                1 0.5 0 setrgbcolor            % red side of orange
                2 2 6 6 rectfill               % do background opaque box

                [ {overlaypix} /SP pdfmark     % show foreground transparent box

                grestore} def


%  Distill the two squares program. Initially use a BARE Distiller Job
%  Options that has no compression, no embedded fonts, and little else 


save /snap1 exch store
  
%%%  transoverlay                          % create new objects
%%%  14 17.5 twosquares
  
 snap1 restore

%%%%%%%%%%%% END DEMO %%%%%%%



%%%%%%%%%%%% PHOTO INSERTS %%%%%%%%%%

% When photos are needed, they are inserted here. Comment out otherwise.

%%%%%%%%% photo links %%%%%%%%%

% combined autopos jpeg conversion and hotlink:

/autofigure1 {save /af1 exch store  xpos ypos yinc add translate
              6 0.65 923 526 .025      % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/flu84501.jpg)   % url first
              (C:\\windows\\desktop\\aaraw_pix\\flu84501.jpg)
              jpegimageprocwithlink
              af1 restore} store

/autofigure2 {save /af2 exch store  xpos ypos yinc add translate
              8.5 -2 790 672  .020     % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/tek40841.jpg)   % url first
              (C:\\windows\\desktop\\aaraw_pix\\tek40841.jpg)
              jpegimageprocwithlink
              af2 restore} store

/autofigure3 {save /af3 exch store  xpos ypos yinc add translate
              12 0.6 530 816  .018     % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/sencri01.jpg)   % url first
              (C:\\windows\\desktop\\aaraw_pix\\sencri01.jpg)
              jpegimageprocwithlink
              af3 restore} store

/autofigure4 {save /af4 exch store  xpos ypos yinc add translate
              12 -0.4 422 612  .024      % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/abspar01.jpg)   % url first
              (C:\\windows\\desktop\\aaraw_pix\\abspar01.jpg)
              jpegimageprocwithlink
              af4 restore} store



/jpegimageprocwithlink {   % hoffset voffset hres vres

save /snap2 exch def

/infilename exch store  % grab passed pix file
/inurllink exch store   % grab link filename
/photoscale exch store  
/vpixels exch store
/hpixels exch store
 translate  % adjust position for final figure ???

inurllink
setareaurl    % autolink sizing

     /DeviceRGB setcolorspace                %  pick color model

     0 0 translate                           %  set page position
     hpixels vpixels scale                   %  magnify unit square


     photoscale dup scale
 

     /infile infilename (r) file def         %  establish input read file

     /Data {infile /DCTDecode filter} def    %  define a data source

     <<                                      % start image dicationary
            /ImageType 1                     % always one
            /Width hpixels                   % JPEG width in pixels
            /Height vpixels                  % JPEG height in pixels
            /ImageMatrix [hpixels
                          0 0 
                          vpixels neg
                          0
                          vpixels ]  


            /DataSource Data           % proc to get filtered JPEG      
           /BitsPerComponent 8              % color resolution
            /Decode [0 1 0 1 0 1]            % per red book 4.10
            >>

     image                                   % call the image operator


ypos snap2 restore /ypos exch def
} def

/setareaurl {    % for auto include routine

          /cururlname exch store

           mark                           % start pdfmark
           /Rect  [ 0 0 

              hpixels photoscale mul 
              vpixels photoscale mul  
                  ]
           /Border [ 0 0 0]   % [0 0 0 ] = none; [0 0 2] = debug 
           /Color [ .7 0 0 ]
           /Action <</Subtype /URI /URI cururlname>>
           /Subtype /Link
           /ANN                            % annotation type
           pdfmark                        % call pdf operators  
 
} def


%%%%%%%%%%% data for quantization figures %%%%%%%


/raw 
[0.0198613 3.75812 0.0300583 0.968559 0.0400088 0.625545 0.0500071
0.473332 0.0598378 0.508493 0.0701048 0.618866 0.080067 0.574973
0.0900779 0.328987 0.0999211 0.358846 0.109939 0.13398 0.119912
0.183206 0.129936 0.374792 0.14006 0.286128 0.150091 0.206733
0.160075 0.190605 0.169949 0.196913 0.17999 0.136811 0.189984
0.223428 0.200178 0.130515 0.209919 0.279305 0.21986 0.179522
0.230087 0.167779 0.239816 0.127177 0.250051 0.18394 0.260079 0.22457
0.269779 0.120137 0.279989 0.142624 0.290027 0.124499 0.299737
0.111797 0.309994 0.123014 0.319982 0.268029 0.329976 0.207562
0.339971 0.0887317 0.349912 0.141557 0.359975 0.0943557 0.369923
0.0895733 0.379933 0.198241 0.389968 0.204985 0.399985 0.107935
0.409949 0.0945179 0.419974 0.125101 0.429965 0.0976423 0.440214
0.0904647 0.449999 0.108261 0.459981 0.0657491 0.470024 0.206909
0.479727 0.0390659 0.489996 0.0464662 0.50005 0.208427 0.509765
0.0436721 0.520046 0.0589122 0.53008 0.0933284 0.540058 0.122129
0.550131 0.108932 0.55981 0.0608129 0.570111 0.0552627 0.579854
0.0621947 0.590107 0.139442 0.59986 0.0498109 0.610232 0.103161
0.619883 0.129033 0.630016 0.0849617 0.640199 0.0601919 0.649749
0.0799222 0.660031 0.0541167 0.669983 0.113527 0.679712 0.0480973
0.690061 0.089419 0.700078 0.107595 0.709859 0.0710718 0.720131
0.041575 0.730196 0.123105 0.740089 0.0584097 0.749848 0.0861482
0.75993 0.0515622 0.769942 0.0761598 0.779974 0.118253 0.789996
0.0481484 0.799986 0.0874933 0.809957 0.0973124 0.820064 0.0534035
0.830362 0.025697 0.83973 0.0399598 0.850034 0.049165 0.859829
0.0851767 0.869827 0.0404494 0.880229 0.0435597 0.889938 0.0723645
0.899933 0.0190775 0.910168 0.0616833 0.919942 0.0725692 0.929991
0.0399983 0.940013 0.102806 0.950018 0.0518368 0.960034 0.0318331
0.970059 0.0823362 0.980036 0.0436783 0.989837 0.0463608 1.00013
0.0562829
  ] def



/ex54 [

5.87906 19.9758 5.38078 23.2179 6.61461 22.45 6.48865 23.8991
7.79373 21.6975 7.66747 18.3412 7.16927 15.7147 7.0433 23.5588
7.89268 23.6885 6.44363 24.0582 6.31744 20.4902 5.81917 24.1383
7.16713 21.0382 6.66901 18.9723 6.54259 11.4618 6.04431 22.422
6.99837 23.9206 7.72186 17.6438 7.22366 19.559 7.0974 19.865 8.16101
21.0954 7.66296 21.6132 8.38593 23.3011 8.45734 21.8227 8.33099
20.4936 7.83295 23.6901 9.12148 21.6428 8.99521 24.1041 9.0123
22.5552 10.0761 24.016 9.94987 23.6423 9.4516 18.8 10.3011 18.3618
10.175 15.7533 9.67651 15.8403 10.7406 22.2248 11.2952 23.4363
8.38531 18.1067 9.44916 24.1021 8.95065 19.521 8.82462 16.3613
8.32649 22.8011 9.67415 22.9247 9.1758 23.1169 9.04961 18.7033
10.0041 21.3686 9.50554 20.3098 9.37965 23.1915 10.229 20.7535
9.73083 24.3928 10.7951 23.4553 10.6687 20.0753 10.1704 22.7069
10.9646 20.4496 10.8385 20.1683 11.4042 19.4907 12.0175 23.4256
11.5192 22.1005 12.5835 16.0818 12.4572 16.8864 11.9588 13.1062
12.809 19.7136 12.6826 18.5011 12.1842 20.9156 13.2483 19.5923
13.1218 24.0439 13.8034 21.8302 10.6676 23.761 10.8927 22.8588 11.957
21.8607 11.4587 19.2204 11.3322 17.3188 12.5117 19.7264 12.0132
20.9341 13.1763 23.3152 13.2472 20.7672 13.1206 23.1287 13.4724
23.3126 13.3461 23.9651 13.9117 18.537 13.8022 22.5502 14.2414
20.9416 14.4669 13.1742 13.1752 23.9257 13.6145 24.4108 13.8398
22.6699
    ] store



/ex54good [

6.54259 11.4618
11.9588 13.1062
14.4669 13.1742  

10.175 15.7533 
9.67651 15.8403 

10.0041 21.3686 
] store


/ex54orig [ 9.88396 24.4257 ] store

/ex54want [ 10 0 ] store











/shook [
0.00934937 1.51076 0.0210324 0.978672 0.0312886 0.477679 0.0406482
0.318167 0.0493669 0.337353 0.0617085 0.203131 0.0692016 0.259957
0.0798052 0.229666 0.0885358 0.271299 0.100559 0.1726 0.109939
0.13398 0.118677 0.119296 0.131049 0.187404 0.140698 0.134313
0.149444 0.129195 0.158846 0.106101 0.170589 0.0965049 0.179351
0.0914561 0.189653 0.129042 0.201417 0.0546426 0.210828 0.108576
0.218951 0.100261 0.230727 0.120773 0.241057 0.103841 0.24984
0.0973585 0.259094 0.114175 0.268537 0.0808775 0.281232 0.051974
0.289386 0.0641827 0.301193 0.0942731 0.310907 0.0954356 0.31907
0.0730116 0.330889 0.0677774 0.339699 0.0797174 0.350554 0.0727672
0.360616 0.0859002 0.369923 0.0895733 0.379679 0.0823565 0.391137
0.0758395 0.399965 0.0916116 0.411197 0.0716472 0.419389 0.052739
0.430883 0.0744991 0.441523 0.0643956 0.450642 0.0651337 0.461231
0.0500311 0.470357 0.0682797 0.479727 0.0390659 0.491163 0.0464662
0.500383 0.0701265 0.509765 0.0436721 0.520046 0.0589122 0.529436
0.0621049 0.540979 0.065531 0.549818 0.0659652 0.55981 0.0608129
0.570111 0.0552627 0.579854 0.0621947 0.589296 0.0497526 0.59986
0.0498109 0.610207 0.0454799 0.620493 0.0516502 0.630849 0.0588497
0.639051 0.034206 0.649639 0.0456603 0.660009 0.0522574 0.670628
0.0426991 0.679712 0.0480973 0.69034 0.0477716 0.699467 0.0308037
0.711012 0.0686215 0.720131 0.041575 0.729513 0.0498212 0.739846
0.0430787 0.750499 0.0405623 0.76086 0.0438831 0.770257 0.0497878
0.780553 0.0441616 0.789662 0.0457397 0.800267 0.0325654 0.809451
0.0440074 0.820078 0.0403837 0.830362 0.025697 0.840997 0.0332166
0.85014 0.0337785 0.860449 0.0360605 0.869889 0.015046 0.880467
0.0360463 0.890767 0.0317396 0.899933 0.0190775 0.910273 0.0316686
0.919661 0.0263476 0.929956 0.0388174 0.939357 0.032368 0.949701
0.027215 0.960034 0.0318331 0.970334 0.0351219 0.979745 0.0379512
0.990337 0.0386641 1.00065 0.0439439
   ] store





%%%%%%%%%%%%% ordinary tracking figures\

/figureoneauto { /figadvance 20 store

   save /snap2 exch store xpos 8 add ypos figadvance sub translate
   figure1
   snap2 restore 
   /ypos ypos figadvance sub yinc sub store
   } store


/figure1 {



0.50 settint




 20 20 showgrid

line3  0 1 1 setrgbcolor
[{-0.5 0 mt 20.5 r} 10 3] yrpt
[{0 -0.5 mt 20.5 u} 10 3] xrpt




black
gsave
0 0 mt 20 pu 20 pr 20 pd closepath clip
  
1 0.5 0 setrgbcolor

    0 2 raw length 2 sub  {/posn2 exch store
     raw posn2 get         20 mul
     raw posn2 1 add get   20 mul    
     moveto dot} for

11 18.45 mt dot


1 0 1 setrgbcolor

0 2 shook length 2 sub  {/posn2 exch store
     shook posn2 get         20 mul
     shook posn2 1 add get   20 mul    
     moveto dot} for

11 17.45 mt dot

grestore  % remove clip limit

/font1 /StoneSans-Bold 0.9 gonzofont
font1

0.3 0.3 0.3 setrgbcolor

0 -1.5 (0.0) cc
10 -1.5 (0.5) cc
20 -1.5 (1.0) cc

-0.9 0 0.3 sub (0.0%) cr
-0.9 10 0.3 sub(0.5%) cr
-0.9 20 0.3 sub (1.0%) cr


11.55 18.2 (= raw quant) cl
11.55 17.2 (= best neighbor) cl


/font2 /StoneSans-Bold 1.1 gonzofont
font1

10 -2.7 (Amplitude) cc



gsave -4.2 10 translate 90 rotate
0 0 (Unfiltered  THD  2|j-|j22)cc
grestore 

/yinc 1.2 store

24.3 11.5  (Typical\nquantized\nDelta-28\ndistortions) cc




      } store







/figuretwoauto { /figadvance 25 store

   save /snap2 exch store xpos 8 add ypos figadvance sub translate
   figure2
   snap2 restore 
   /ypos ypos figadvance sub yinc sub store
   } store


/figure2 {



0.50 settint



/font0 /StoneSans-Bold 6 gonzofont  font0



0 1 1 setrgbcolor

10 3 (54) cc


 20 25 showgrid

line3  0 1 1 setrgbcolor
[{-0.5 0 mt 20.5 r} 10 3] yrpt
[{0 -0.5 mt 25.5 u} 10 3] xrpt
0 25 mt 20 r

black

  
0 0 0 setrgbcolor

    0 2 ex54 length 2 sub  {/posn2 exch store
     ex54 posn2 get         
     ex54 posn2 1 add get   
     moveto dot} for

1 0 1 setrgbcolor



    0 2 ex54good length 2 sub  {/posn2 exch store
     ex54good posn2 get         
     ex54good posn2 1 add get   
     moveto dot} for



1 0.5 0 setrgbcolor
ex54want 0 get ex54want 1 get mt dot

1 0 0 setrgbcolor
ex54orig 0 get ex54orig 1 get mt dot



/font1 /StoneSans-Bold 0.9 gonzofont
font1

0.3 0.3 0.3 setrgbcolor

0 -1.5 (0.535) cc
10 -1.5 (0.540) cc
20 -1.5 (0.545) cc

-0.9 0 0.3 sub (0.00%) cr
-0.9 10 0.3 sub(0.05%) cr
-0.9 20 0.3 sub (0.10%) cr


% 11.55 18.2 (= raw quant) cl
% 11.55 17.2 (= best neighbor) cl


/font2 /StoneSans-Bold 1.1 gonzofont
font1

10 -2.7 (Amplitude) cc



gsave -5.2 10 translate 90 rotate
0 0 (Unfiltered  THD  2|j-|j22)cc
grestore 

/yinc 1.2 store

24.3 11.5  (Nearby\nquantized\nAmplitude 54\noptions) cc




      } store
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


/burpwide 29.5 store

/burplebox3 {save /burp1 exch store

xpos ypos translate -1 .2 mt 3.5 yinc mul .4 add pd burpwide pr 3.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore

} def

/burplebox2 {save /burp1 exch store

xpos ypos translate -1 .2 mt 2.5 yinc mul .4 add pd burpwide pr 2.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore

} def


/burplebox2.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 3 yinc mul .4 add pd burpwide pr 3 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def



/burplebox4 {save /burp1 exch store
xpos ypos translate -1 .2 mt 4.5 yinc mul .4 add pd burpwide pr 4.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def



/burplebox4.5 {save /burp1 exch store
xpos ypos translate    
-1 .2 mt 5 yinc mul .4 add pd burpwide pr 5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def





/burplebox5w {save /burp1 exch store
xpos ypos translate


 -1 .2 mt 5.5 yinc mul .4 add pd burpwide pr 5.5 yinc mul .4 add pu closepath
0.9 setgray fill

true {special5 } if

 burp1 restore
} def



/burpcom {save /burpx exch store  /bht exch store
save /burp1 exch store
xpos ypos translate -1 .2 mt bht yinc mul .4 add pd burpwide pr bht yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore} store

/burpwidew 32 store


/burpcomw {save /burpx exch store  /bht exch store
save /burp1 exch store
xpos 1 sub ypos translate 0 .2 mt bht yinc mul .4 add pd burpwidew pr bht yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore} store



/burplebox3.5 {4 burpcom} store
/burplebox5 {5.5 burpcom} store
/burplebox5.5 {6 burpcom} store
/burplebox6 {6.5 burpcom} store
/burplebox7 {7.5 burpcom} store
/burplebox7.5 {8 burpcom} store
/burplebox8 {8.5 burpcom} store
/burplebox8.5 {9 burpcom} store
/burplebox9 {9.5 burpcom} store
/burplebox9.5 {10 burpcom} store
/burplebox10 {10.5 burpcom} store
/burplebox11 {12 burpcom} store
/burplebox12 {12.5 burpcom} store
/burplebox12.5 {13 burpcom} store
/burplebox13 {13.5 burpcom} store
/burplebox13.5 {14 burpcom} store
/burplebox14 {14.5 burpcom} store
/burplebox14.5 {15 burpcom} store
/burplebox15{15.5 burpcom} store
/burplebox15.5{16 burpcom} store

/burplebox18 {18.5 burpcom} store
/burplebox18.5 {19 burpcom} store

/burplebox22{22.5 burpcom} store

/burplebox25.5{26 burpcom} store


/burplebox34 {34.5 burpcom} store
/burplebox34w{34.5 burpcomw} store
/burplebox34.5w{35 burpcomw} store
/burplebox38w{38.5 burpcomw} store
/burplebox38.5w{39 burpcomw} store
/burplebox40w{40.5 burpcomw} store
/burplebox40{40.5 burpcom} store

/burplebox42.5{43 burpcom} store  % nearly a full page


/burplebox17 {save /burp1 exch store
xpos ypos translate -1 .2 mt 17.5 yinc mul .4 add pd burpwide pr 17.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def



/burplebox20 {save /burp1 exch store
xpos ypos translate -1 .2 mt 20.5 yinc mul .4 add pd burpwide pr 20.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def

/burplebox23 {save /burp1 exch store
xpos ypos translate -1 .2 mt 23.5 yinc mul .4 add pd burpwide pr 23.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def


/burplebox26.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 27 yinc mul .4 add pd burpwide pr 27 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def


/burplebox30 {save /burp1 exch store
xpos ypos translate -1 .2 mt 30.5 yinc mul .4 add pd burpwide pr 30.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def



/burplebox36 {save /burp1 exch store
xpos ypos translate -1 .2 mt 36.5 yinc mul .4 add pd burpwide pr 36.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def

%%%%%%%%%%%  figure 1 routine

  % autopositions on box6

%%%%%%%%%%%%%%%%%%%%%%%%%%%%







%%%%%%%%%%%  TWO PATTERNS   %%%%%%%%%%%%%%

/ivoryrndcolor   [230 230 205 40] store  % random pattern colors [red blue green variance ]
/magentarndcolor [230 100 230 120]store


/makepatternstrings {
[230 210 190 80] buildpixels
magentarndcolor /accentpatstring exch store

ivoryrndcolor buildpixels
makeimagestring /bodypatstring exch store
                    } store




/burppatstrings {
ivoryrndcolor buildpixels
makeimagestring /bodypatstring exch store

magentarndcolor buildpixels
makeimagestring /accentpatstring exch store
                } store

/DeviceRGB setcolorspace                %  pick color model
/hpixels 50 store                       %  size of pattern image
/vpixels 50 store
/issize hpixels vpixels mul store

% makestring converts a stack top array into a string...
 
/makestring {dup length string dup /NullEncode filter     
3 -1 roll {1 index exch write} forall pop} def




% /buildpixels makes three nearby colors given [r b g texture] all 0-255 integers

/buildpixels {aload pop /texture exch store /b0 exch store /g0 exch store /r0 exch store 123 srand

/r1 r0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
/g1 g0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
/b1 b0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store

/r2 r0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
/g2 g0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
/b2 b0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store

/r3 r0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
/g3 g0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
/b3 b0 texture random texture 2 div sub add cvi 
dup 255 ge {pop 255}if  dup 0 lt {pop 0} if store
      } store

% /makeimagestring creates a sting usable for a pattern image

/makeimagestring {  12345 srand         % make repeatable

  /iarray mark issize { r1 g1 b1} repeat ] store  % fill all with color 1

  issize 2 div cvi { iarray  issize               % fill half with color 2              
  random 3 mul cvi  [ r2 g2 b2 ] 
  putinterval} repeat

  issize 2 div cvi { iarray  issize               % fill third with color 3 
  random 3 mul cvi  [ r3 g3 b3 ] 
  putinterval} repeat

  iarray makestring 
                 } store





% /rndimage shows the random string as a patternable image

/bodyrandimage { 

            gsave  5 dup scale

     <<                                      % start image dicationary
            /ImageType 1                     % always one
            /Width hpixels                   % width in pixels
            /Height vpixels                  % height in pixels
            /ImageMatrix [hpixels
                          0 0 
                          vpixels neg
                          0
                          vpixels ]  


            /DataSource bodypatstring        % proc to get string data     
            /BitsPerComponent 8              % color resolution
            /Decode [0 1 0 1 0 1]            % per red book 4.10
            >>

     image                                   % call the image 

grestore
} def




/accentrandimage { 

            gsave  5 dup scale

     <<                                      % start image dicationary
            /ImageType 1                     % always one
            /Width hpixels                   % width in pixels
            /Height vpixels                  % height in pixels
            /ImageMatrix [hpixels
                          0 0 
                          vpixels neg
                          0
                          vpixels ]  


            /DataSource accentpatstring        % proc to get string data     
            /BitsPerComponent 8              % color resolution
            /Decode [0 1 0 1 0 1]            % per red book 4.10
            >>

     image                                   % call the image 

grestore
} def





% using a separate pattern dictionary for each pattern...

/bodypatdict

<< /PatternType 1     % Tiling pattern
/PaintType 1          % Colored
/TilingType 1
/BBox [0 0 50 50]
/XStep 5
/YStep 5
/PaintProc { begin bodyrandimage end} 
>>   store


/accentpatdict

<< /PatternType 1     % Tiling pattern
/PaintType 1          % Colored
/TilingType 1
/BBox [0 0 50 50]
/XStep 5
/YStep 5
/PaintProc { begin accentrandimage end} 
>>   store


/burpbackmain { save /snapbb exch store


save /snapb exch store      % show the body background
bodypatdict 
matrix                  % Identity matrix
makepattern             % Instantiate the pattern
/bodypat exch def
4 0                              % for the actual slide size
12 8

/Pattern setcolorspace
bodypat setcolor rectfill    % Fill rectangle with pattern
snapb restore

4 0 12 8 line1 black rectstroke
 


save /snapy exch store      % show the accent
accentpatdict 
matrix                  % Identity matrix
makepattern             % Instantiate the pattern
/accentpat exch def
18.5 0 12 8
4 copy
/Pattern setcolorspace
accentpat setcolor rectfill    % Fill rectangle with pattern
snapy restore 
 
18.5 0 12 8 line1 black rectstroke

snapbb restore } store


/figure3 {save /snap3 exch store

translate 

% 34 8 showgrid

makepatternstrings

  burppatstrings
 % burpbackstrings
burpbackmain


  snap3 restore } store

%%%%%%%%%%%%%%% end figure3





%%%%%%%%%%%% first special plot


/special1code {


/a01 [ 
  11.98757334830098  % p1 delay
  0.02494857340377088  % p1 width
  11.96309297293453  % p2 delay
  0.04880748072357122  % p2 width
  11.940266741737353  % p3 delay
  0.07053366579209097  % p3 width
  11.920110003436285  % p4 delay
  0.08917718733052737  % p4 width
  11.903448622759931  % p5 delay
  0.10392320715383363  % p5 width
  11.890997400038934  % p6 delay
  0.1141272527930397  % p6 width
  11.883303463712295  % p7 delay
  0.11934332976518647  % p7 width
  5.940346750117669  % quadrant delay
   ] store    
/a10 [ 
  11.870255884662251  % p1 delay
  0.24926326067621396  % p1 width
  11.627261913532986  % p2 delay
  0.48772075225425126  % p2 width
  11.401006709297277  % p3 delay
  0.7050052291468631  % p3 width
  11.201126478014806  % p4 delay
  0.8916211348287959  % p4 width
  11.036121661040383  % p5 delay
  1.0393583630906704  % p5 width
  10.912994009526542  % p6 delay
  1.1416713778561558  % p6 width
  10.836964879593466  % p7 delay
  1.1939991529573461  % p7 width
  5.405629193521989  % quadrant delay
   ] store      




/a20 [ 
  11.730827315951456  % p1 delay
  0.4971341380973975  % p1 width
  11.247686685343746  % p2 delay
  0.9732376712143491  % p2 width
  10.798693242131715  % p3 delay
  1.407947044520391  % p3 width
  10.402477789378082  % p4 delay
  1.78228682672421  % p4 width
  10.075528131993294  % p5 delay
  2.079475909290011  % p5 width
  9.831551570148512  % p6 delay
  2.285806430413743  % p6 width
  9.680871958761386  % p7 delay
  2.391516582063389  % p7 width
  4.8149587039683155  % quadrant delay
   ] store    

/a30 [ 
  11.582072392748948  % p1 delay
  0.7421737945018947  % p1 width
  10.862633911787377  % p2 delay
  1.454218311923288  % p2 width
  10.194732255409651  % p3 delay
  2.106545777255711  % p3 width
  9.605233324537401  % p4 delay
  2.6708278536717955  % p4 width
  9.118304754762583  % p5 delay
  3.1210612368032926  % p5 width
  8.754459346379754  % p6 delay
  3.435090920436508  % p6 width
  8.529472562792705  % p7 delay
  3.5965061939786693  % p7 width
  4.226667363010421  % quadrant delay
   ] store   



/a40 [ 
  11.424050411047465  % p1 delay
  0.9828418379051129  % p1 width
  10.473248533619292  % p2 delay
  1.9280479848577236  % p2 width
  9.590640663430097  % p3 delay
  2.7980351182823426  % p3 width
  8.810545720192863  % p4 delay
  3.555566231331163  % p4 width
  8.164652806450142  % p5 delay
  4.164668715768244  % p5 width
  7.680713770893433  % p6 delay
  4.592711162444033  % p6 width
  7.380758970713202  % p7 delay
  4.813962276129942  % p7 width
  3.6395557969349425  % quadrant delay
   ] store  



/a50 [ 
  11.25647168216318  % p1 delay
  1.2174139856738683  % p1 width
  10.080431345631026  % p2 delay
  2.391612373063623  % p2 width
  8.987846411116894  % p3 delay
  3.4787553647023585  % p3 width
  8.01966536065963  % p4 delay
  4.433803253978574  % p4 width
  7.214999377113287  % p5 delay
  5.210430981795014  % p5 width
  6.609527274825396  % p6 delay
  5.762766698554145  % p6 width
  6.232831441964791  % p7 delay
  6.050997667516469  % p7 width
  3.0524467812417413  % quadrant delay
   ] store    

/a53 [ 
  11.204229246524123  % p1 delay
  1.2863028469519246  % p1 width
  9.962015674530373  % p2 delay
  2.528117843985992  % p2 width
  8.807469507353026  % p3 delay
  3.680145761308111  % p3 width
  7.783358489290968  % p4 delay
  4.695379940110421  % p4 width
  6.930993065963889  % p5 delay
  5.5244810879620445  % p5 width
  6.288586696196958  % p6 delay
  6.117000009644471  % p6 width
  5.888323429144677  % p7 delay
  6.427466502066167  % p7 width
  2.876129898966852  % quadrant delay
   ] store   

/a60 [ 
  11.078495962518918  % p1 delay
  1.4438411449625086  % p1 width
  9.684772040454877  % p2 delay
  2.840939034126027  % p2 width
  8.38774096372643  % p3 delay
  4.143446978421139  % p3 width
  7.234097294409224  % p4 delay
  5.300789342760972  % p4 width
  6.270187484640822  % p5 delay
  6.2573120579578045  % p5 width
  5.540415121300725  % p6 delay
  6.9509377594411745  % p6 width
  5.083782352079723  % p7 delay
  7.31917029639942  % p7 width
  2.4640721668002356  % quadrant delay
   ] store   

/a70 [ 
  10.888278735987464  % p1 delay
  1.6594599780251222  % p1 width
  9.286332677429444  % p2 delay
  3.270497867115676  % p2 width
  7.791694139706859  % p3 delay
  4.783840563470704  % p3 width
  6.455843532587245  % p4 delay
  6.147367771354908  % p4 width
  5.331869368850619  % p5 delay
  7.300805550943892  % p5 width
  4.473484564450537  % p6 delay
  8.165497800155037  % p6 width
  3.9315873351224724  % p7 delay
  8.640550109600042  % p7 width
  1.8728900051999772  % quadrant delay
   ] store    

/a80 [ 
  10.681702836852158  % p1 delay
  1.8602538062958054  % p1 width
  8.88398269670934  % p2 delay
  3.6714981402848607  % p2 width
  7.200946234572324  % p3 delay
  5.385275030570618  % p3 width
  5.687867904890517  % p4 delay
  6.9536645196485765  % p4 width
  4.403487202517624  % p5 delay
  8.324602905316311  % p5 width
  3.4104122823979494  % p6 delay
  9.417450259887687  % p6 width
  2.774084338047487  % p7 delay
  10.068107274017336  % p7 width
  1.2766645679914034  % quadrant delay
   ] store    




/a90 [ 
  10.447373907519674  % p1 delay
  2.038123534960869  % p1 width
  8.472609797490058  % p2 delay
  4.0258541900581655  % p2 width
  6.615791805649657  % p3 delay
  5.91534811864263  % p3 width
  4.935247854465985  % p4 delay
  7.666864442425741  % p4 width
  3.4934960493166684  % p5 delay
  9.260584158941057  % p5 width
  2.358772151850779  % p6 delay
  10.696787617357046  % p6 width
  1.6101420251774101  % p7 delay
  11.792019752288254  % p7 width
  0.6709845938560051  % quadrant delay
   ] store  

/a95 [ 
  10.307313139895288  % p1 delay
  2.111222840209404  % p1 width
  8.256837177571334  % p2 delay
  4.169598534647832  % p2 width
  6.323664766096179  % p3 delay
  6.124919743159786  % p3 width
  4.567759372280754  % p4 delay
  7.93736307227887  % p4 width
  3.052826978493542  % p5 delay
  9.604367560734132  % p5 width
  1.8471062124079367  % p6 delay
  11.250122874450298  % p6 width
  1.0294512420668695  % p7 delay
  13.056647531415762  % p7 width
  0.36079895429200803  % quadrant delay
   ] store    

/a96 [ 
  10.275153279505902  % p1 delay
  2.1233556309882146  % p1 width
  8.2115482104066  % p2 delay
  4.1930336081984905  % p2 width
  6.264803529331843  % p3 delay
  6.157765833137692  % p3 width
  4.495281237426013  % p4 delay
  7.976346292010689  % p4 width
  2.9669207635656676  % p5 delay
  9.646432050857882  % p5 width
  1.7477032094150075  % p6 delay
  11.320166050312238  % p6 width
  0.9148247359680965  % p7 delay
  13.409077457751365  % p7 width
  0.2975881111242984  % quadrant delay
   ] store  

/a97 [ 
  10.240457024341477  % p1 delay
  2.134077471317074  % p1 width
  8.164867772841955  % p2 delay
  4.213452442998779  % p2 width
  6.205523779081837  % p3 delay
  6.185452328837567  % p3 width
  4.423234605472523  % p4 delay
  8.006618220218015  % p4 width
  2.8821971876470442  % p5 delay
  9.672069264487952  % p5 width
  1.6500883956263123  % p6 delay
  11.355113654260407  % p6 width
  0.8016574526230471  % p7 delay
  13.831443290493283  % p7 width
  0.23374710975272705  % quadrant delay
   ] store  



/a98 [ 
  10.201940773921007  % p1 delay
  2.1427535621580062  % p1 width
  8.1160304405589  % p2 delay
  4.229503836724113  % p2 width
  6.145502859365315  % p3 delay
  6.205687104545131  % p3 width
  4.351688442224891  % p4 delay
  8.024338941005154  % p4 width
  2.7990882078968866  % p5 delay
  9.67371438320096  % p5 width
  1.555079224439453  % p6 delay
  11.330237907918856  % p6 width
  0.69116413541866  % p7 delay
  14.364207461243552  % p7 width
  0.169062719379113  % quadrant delay
   ] store 
   
/a99 [ 
  10.156863627959598  % p1 delay
  2.1480428640811766  % p1 width
  8.06339164056924  % p2 delay
  4.238341714779558  % p2 width
  6.0840316757476  % p3 delay
  6.213675963725404  % p3 width
  4.280754974385665  % p4 delay
  8.02161284750413  % p4 width
  2.718452103604484  % p5 delay
  9.636460505287125  % p5 width
  1.4642999953711353  % p6 delay
  11.197329413972475  % p6 width
  0.5860923925256714  % p7 delay
  15.087472750976061  % p7 width
  0.10317752951067405  % quadrant delay
   ] store  

/a100 [ 
  10.097664622565073  % p1 delay
  2.146284244870163  % p1 width
  8.002396397096308  % p2 delay
  4.23222417093767  % p2 width
  6.019120165289753  % p3 delay
  6.1964902984829  % p3 width
  4.21068681625524  % p4 delay
  7.977592739007122  % p4 width
  2.6425485752095525  % p5 delay
  9.523271990574841  % p5 width
  1.3819874635530311  % p6 delay
  10.855567612314722  % p6 width
  0.4941631819604595  % p7 delay
  16.184573443763554  % p7 width
  0.03542827811961047  % quadrant delay
   ] store   


/range 
[ (01) (10) (20) (30) (40) (50) (53) (60) (70) (80) (90) (95)(96)(97) (98)(99)(100) ]
store


/procit1 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 13 get 2.5 mul lineto
} def


/procit2 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 11 get 2.5 mul lineto
} def



/procit3 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 9 get 2.5 mul lineto
} def


/procit4 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 7 get 2.5 mul lineto
} def


/procit5 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 5 get 2.5 mul lineto
} def

/procit6 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 3 get 2.5 mul lineto
} def

/procit7 {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 1 get 2.5 mul lineto
} def



/procit1d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 12 get 2.5 mul lineto
} def


/procit2d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 10 get 2.5 mul lineto
} def



/procit3d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 8 get 2.5 mul lineto
} def


/procit4d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 6 get 2.5 mul lineto
} def


/procit5d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 4 get 2.5 mul lineto
} def

/procit6d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 2 get 2.5 mul lineto
} def

/procit7d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 0 get 2.5 mul lineto
} def


/procit8d {  dup cvi  /curval exch store  (a)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 14 get 2.5 mul lineto
} def




% 40 100 10 setgrid
40 40 showgrid
line1 


0 30 mt range {procit7d} forall
40 0 lineto 0 0 lineto closepath
0 settint 0.8 setgray fill 

0 30 mt range {procit6d} forall
40 0 lineto 0 0 lineto closepath
0.1 settint 0.8 setgray fill 

0 30 mt range {procit5d} forall
40 0 lineto 0 0 lineto closepath
0.2 settint 0.8 setgray fill

0 30 mt range {procit4d} forall
40 0 lineto 0 0 lineto closepath
0.27 settint 0.8 setgray fill

0 30 mt range {procit3d} forall
40 0 lineto 0 0 lineto closepath
0.43 settint 0.8 setgray fill



0 30 mt range {procit2d} forall
40 0 lineto 0 0 lineto closepath
0.5 settint 0.8 setgray fill

0 30 mt range {procit1d} forall
40 0 lineto 0 0 lineto closepath
0.6 settint 0.8 setgray fill



0 15 mt range {procit8d} forall
40 0 lineto 0 0 lineto closepath
0.7 settint 0.8 setgray fill 







0 0 mt range {procit1} forall
40 0 lineto closepath
0.6 settint 0.6 setgray fill 

0 0 mt range {procit2} forall
40 0 lineto closepath
0.5 settint 0.6 setgray fill

0 0 mt range {procit3} forall
40 0 lineto closepath
0.43 settint 0.6 setgray fill 

0 0 mt range {procit4} forall
40 0 lineto closepath
0.27 settint 0.6 setgray fill 

0 0 mt range {procit5} forall
40 0 lineto closepath
0.2 settint 0.6 setgray fill 


0 0 mt range {procit6} forall
40 0 lineto closepath
0.1 settint 0.6 setgray fill 


0 0 mt range {procit7} forall
40 0 lineto closepath
0 settint 0.6 setgray fill 







black

0 0 mt 
range {procit1} forall
stroke

0 0 mt 
range {procit2} forall
stroke

0 0 mt 
range {procit3} forall
 stroke 

0 0 mt 
range {procit4} forall
 stroke 

0 0 mt 
range {procit5} forall
 stroke 

0 0 mt 
range {procit6} forall
 stroke 

0 0 mt 
range {procit7} forall
 stroke 






0 30 mt 
range {procit1d} forall

0 30 mt 
range {procit2d} forall

0 30 mt 
range {procit3d} forall
 stroke 

0 30 mt 
range {procit4d} forall
 stroke 

0 30 mt 
range {procit5d} forall
 stroke 

0 30 mt 
range {procit6d} forall
 stroke 

0 30 mt 
range {procit7d} forall
 stroke 

0 15 mt 
range {procit8d} forall
 stroke 


0.3 0.3 0.3 setrgbcolor line3 1 setlinecap 1 setlinejoin

0 0 mt 40 u 40 r 40 d 40 l
[{ 0 0 mt 0.4 l} 10 5 ] yrpt
[{ 40 0 mt 0.4 r} 10 5 ] yrpt
[{ 0 0 mt 0.4 d} 10 5 ] xrpt
[{ 0 40 mt 0.4 u} 10 5 ] xrpt

/cstretch 0.02 store
/sstretch 0 store
/font0 /StoneSans-Bold 1.5 gonzofont
/font1 /StoneSans-Bold 1.2 gonzofont
/font2 /StoneSans-Bold 1 gonzofont
/font: /StoneSans-Bold [0.6 0 0 0.6 0 0.6] gonzofont
/font; /StoneSans-Bold [1.5 0 0 1.5 0 0.2] gonzofont
/yinc 2 store
font0

20 43.7 (BEST  EFFICIENCY  N |;=|0 28\nMAGIC  SINEWAVE) cc





font1
/yinc 1.5 store

0 -2.2 (0.0) cc
20 -2.2 (0.5) cc
40 -2.2 (1.0)cc

20 -4.3 (AMPLITUDE) cc

41 -0.5 (0) cl
41 9.5 (4) cl
41 19.5 (8) cl
41 29.5 (12) cl
41 39.5 (16) cl

45.5 21 (DELAY\nTIME IN\nDEGREES) cc

font2
26.5 1.2 (PULSE  WIDTHS) cc

1.5 17 (PULSE  DELAYS) cl


2.6 32.6 (0|:o) cc
27.4 32.6 (90|:o) cc


% generate actual magic sinewave

/makemagic {gsave translate 0.25 dup scale line3

/ht 17 store
/dht 6 store

0 setlinecap 0 setlinejoin
dht setlinewidth

0 0 mt 
a50 0 get pr
0 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add 0 mt
a50 2 get pr
0.1 settint 0.8 setgray stroke


0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add     0 mt
a50 4 get pr
0.2 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add
     0 mt
a50 6 get pr
0.3 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
     0 mt
a50 8 get pr
0.4 settint 0.8 setgray stroke


0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
a50 8 get add a50 9 get add
     0 mt
a50 10 get pr
0.5 settint 0.8 setgray stroke


0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
a50 8 get add a50 9 get add a50 10 get add a50 11 get add
     0 mt
a50 12 get pr
0.6 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
a50 8 get add a50 9 get add a50 10 get add a50 11 get add
a50 12 get add a50 13 get add
     0 mt
a50 14 get pr
0.7 settint 0.8 setgray stroke

%% pulses

a50 0 get 0 mt
ht pu
0 a50 1 get pr
ht pd
closepath
0 settint 0.6 setgray fill


a50 0 get a50 1 get add a50 2 get add 
0 mt ht pu
0 a50 3 get pr
ht pd
closepath
0.1 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
0 mt ht pu
0 a50 5 get pr
ht pd
closepath
0.2 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add
0 mt ht pu
0 a50 7 get pr
ht pd
closepath
0.3 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add a50 7 get add a50 8 get add
0 mt ht pu
0 a50 9 get pr
ht pd
closepath
0.4 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add a50 7 get add a50 8 get add
a50 9 get add a50 10 get add
0 mt ht pu
0 a50 11 get pr
ht pd
closepath
0.5 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add a50 7 get add a50 8 get add
a50 9 get add a50 10 get add a50 11 get add a50 12 get add
0 mt ht pu
0 a50 13 get pr
ht pd
closepath
0.6 settint 0.6 setgray fill





1 setlinecap 1 setlinejoin
black

0 0 mt
a50 0 get 0 rlineto
0 ht pu
a50 1 get 0 rlineto
0 ht pd

a50 2 get 0 rlineto
0 ht pu
a50 3 get 0 rlineto
0 ht pd

a50 4 get 0 rlineto
0 ht pu
a50 5 get 0 rlineto
0 ht pd

a50 6 get 0 rlineto
0 ht pu
a50 7 get 0 rlineto
0 ht pd

a50 8 get 0 rlineto
0 ht pu
a50 9 get 0 rlineto
0 ht pd

a50 10 get 0 rlineto
0 ht pu
a50 11 get 0 rlineto
0 ht pd


a50 12 get 0 rlineto
0 ht pu
a50 13 get 0 rlineto
0 ht pd

a50 14 get 0 rlineto


0.45 setlinewidth
stroke









grestore} def


3.5 33 makemagic




} store   % end special1code definition







%%%%%%%%%%% special2 code

/special2code {


/ad01 [ 
  7.434338157133027  % delay a=60-p5e
  0.11880195485247924  % delay b=p5e-p5s
  0.019577960879085587  % delay c=p1e-p1s
  14.855161666700834  % delay d=p2s-p1e
  0.021983040440492374  % delay e=p2e-p2s
  0.0911673899925809  % delay f=p3s-p2e
  0.0353778304366692  % delay g=p3e-p3s
  7.4235919995647634  % delay h=30-p3e
   ] store  
 
/ad10 [ 
  6.840486668588909  % delay a=60-p5e
  1.1877031146444991  % delay b=p5e-p5s
  0.19606479817654332  % delay c=p1e-p1s
  13.542825252098737  % delay d=p2s-p1e
  0.1524725715290529  % delay e=p2e-p2s
  0.9104569599226266  % delay f=p3s-p2e
  0.4224088615298953  % delay g=p3e-p3s
  6.7475817735097365  % delay h=30-p3e
   ] store   



/ad20 [ 
  6.179615738852249  % delay a=60-p5e
  2.368314508230462  % delay b=p5e-p5s
  0.39486570406405263  % delay c=p1e-p1s
  12.090328683781834  % delay d=p2s-p1e
  0.2773208755122525  % delay e=p2e-p2s
  1.8107046591154443  % delay f=p3s-p2e
  0.8802494355140809  % delay g=p3e-p3s
  5.998600394929625  % delay h=30-p3e
   ] store   

/ad30 [ 
  5.51798715656065  % delay a=60-p5e
  3.537987411554724  % delay b=p5e-p5s
  0.5996610353231375  % delay c=p1e-p1s
  10.6414917563349  % delay d=p2s-p1e
  0.378916570008613  % delay e=p2e-p2s
  2.6949373104326213  % delay f=p3s-p2e
  1.3768763200109077  % delay g=p3e-p3s
  5.252142439774445  % delay h=30-p3e
   ] store    



/ad40 [ 
  4.8560795807034935  % delay a=60-p5e
  4.692317283738298  % delay b=p5e-p5s
  0.8138114048538583  % delay c=p1e-p1s
  9.195452323744191  % delay d=p2s-p1e
  0.46036801366636126  % delay e=p2e-p2s
  3.5594981265840886  % delay f=p3s-p2e
  1.9150363136688284  % delay g=p3e-p3s
  4.50743695304088  % delay h=30-p3e
   ] store    






/ad50 [ 
  4.194298075500072  % delay a=60-p5e
  5.825866502969745  % delay b=p5e-p5s
  1.0408488460292488  % delay c=p1e-p1s
  7.751463747608284  % delay d=p2s-p1e
  0.5238895562340744  % delay e=p2e-p2s
  4.403346953313516  % delay f=p3s-p2e
  2.496487356236706  % delay g=p3e-p3s
  3.7637989621083534  % delay h=30-p3e
   ] store    

/ad53 [ 
  3.995843046736013  % delay a=60-p5e
  6.160868086216446  % delay b=p5e-p5s
  1.112006440311525  % delay c=p1e-p1s
  7.318567062952312  % delay d=p2s-p1e
  0.5397256759732585  % delay e=p2e-p2s
  4.652707315620958  % delay f=p3s-p2e
  2.679463155973238  % delay g=p3e-p3s
  3.5408192162162493  % delay h=30-p3e
   ] store   

/ad60 [ 
  3.5330039078836606  % delay a=60-p5e
  6.9314513603008905  % delay b=p5e-p5s
  1.2842465239317846  % delay c=p1e-p1s
  6.308872401421397  % delay d=p2s-p1e
  0.5713975364200223  % delay e=p2e-p2s
  5.228837780084575  % delay f=p3s-p2e
  3.1216051264200075  % delay g=p3e-p3s
  3.0205853635376627  % delay h=30-p3e
   ] store   

 
/ad70 [ 
  2.8725257224432425  % delay a=60-p5e
  7.998916501222098  % delay b=p5e-p5s
  1.5460427838912807  % delay c=p1e-p1s
  4.8671218102361  % delay d=p2s-p1e
  0.6062046544537196  % delay e=p2e-p2s
  6.042997615507133  % delay f=p3s-p2e
  3.789041064453741  % delay g=p3e-p3s
  2.2771498477926854  % delay h=30-p3e
   ] store   

/ad80 [ 
  2.2131268407607223  % delay a=60-p5e
  9.012727944067371  % delay b=p5e-p5s
  1.8200962344110607  % delay c=p1e-p1s
  3.4258327180993433  % delay d=p2s-p1e
  0.6400219482894229  % delay e=p2e-p2s
  6.85987852874419  % delay f=p3s-p2e
  4.495547368289273  % delay g=p3e-p3s
  1.532768417338616  % delay h=30-p3e
   ] store   




/ad90 [ 
  1.55474755544018  % delay a=60-p5e
  9.946227643338275  % delay b=p5e-p5s
  2.048752785780998  % delay c=p1e-p1s
  1.9853102905593687  % delay d=p2s-p1e
  0.736140589142309  % delay e=p2e-p2s
  7.705915111477708  % delay f=p3s-p2e
  5.236535369142075  % delay g=p3e-p3s
  0.7863706551190859  % delay h=30-p3e
   ] store    


/ad95 [ 
  1.225355348586767  % delay a=60-p5e
  10.367111550363887  % delay b=p5e-p5s
  2.0303138224619843  % delay c=p1e-p1s
  1.2665437513423114  % delay d=p2s-p1e
  0.9241283097125574  % delay e=p2e-p2s
  8.155346335065047  % delay f=p3s-p2e
  5.619630049711802  % delay g=p3e-p3s
  0.4115708327556433  % delay h=30-p3e
   ] store 
  
/ad98 [ 
  1.026684367555248  % delay a=60-p5e
  10.596415552349142  % delay b=p5e-p5s
  1.807508982542501  % delay c=p1e-p1s
  0.837605401539733  % delay d=p2s-p1e
  1.2493523058395936  % delay e=p2e-p2s
  8.441202830348274  % delay f=p3s-p2e
  5.855882255842914  % delay g=p3e-p3s
  0.18534830398259316  % delay h=30-p3e
   ] store     


/ad100 [ 
  0.8921862350266565  % delay a=60-p5e
  10.732271751681054  % delay b=p5e-p5s
  1.3169014782635031  % delay c=p1e-p1s
  0.5554591355065241  % delay d=p2s-p1e
  1.8052854865738012  % delay e=p2e-p2s
  8.644568525896716  % delay f=p3s-p2e
  6.020358566571353  % delay g=p3e-p3s
  0.032968820480391514  % delay h=30-p3e
   ] store    


/range 
[ (01) (10) (20) (30) (40) (50) (53) (60) (70) (80) (90) (95) (98)(100) ]
store


/procit1 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 1 get 2.5 mul lineto
} def


/procit2 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 2 get 2.5 mul lineto
} def



/procit3 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 4 get 2.5 mul lineto
} def


/procit4 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 5 get 2.5 mul lineto
} def


/procit5 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 6 get 2.5 mul lineto
} def

/procit6 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 3 get 2.5 mul lineto
} def

/procit7 {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 1 get 2.5 mul lineto
} def



/procit1d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 0 get 2.5 mul lineto
} def


/procit2d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 3 get 2.5 mul lineto
} def



/procit3d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 7 get 2.5 mul lineto
} def


/procit4d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 6 get 2.5 mul lineto
} def


/procit5d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 4 get 2.5 mul lineto
} def

/procit6d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 2 get 2.5 mul lineto
} def

/procit7d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 0 get 2.5 mul lineto
} def


/procit8d {  dup cvi  /curval exch store  (ad)exch  mergestr cvn /curdat exch store

curval 2.5 div   curdat cvx exec 14 get 2.5 mul lineto
} def




% 40 100 10 setgrid
40 40 showgrid
line1 

% delays

0 37.5 mt range {procit2d} forall
40 0 lineto 0 0 lineto closepath
0.15 settint 0.8 setgray fill

0 18.75 mt range {procit1d} forall
40 0 lineto 0 0 lineto closepath
0 settint 0.8 setgray fill 


0 18.75 mt range {procit3d} forall
40 0 lineto 0 0 lineto closepath
0.3 settint 0.8 setgray fill

% pulses

0 0 mt range {procit1} forall
40 0 lineto 0 0 lineto closepath
0.0 settint 0.6 setgray fill

0 0 mt range {procit4} forall
40 0 lineto 0 0 lineto closepath
0.5 settint 0.6 setgray fill

0 0 mt range {procit5} forall
40 0 lineto 0 0 lineto closepath
0.6 settint 0.6 setgray fill

0 0 mt range {procit2} forall
40 0 lineto 0 0 lineto closepath
0.15 settint 0.6 setgray fill

0 0 mt range {procit3} forall
40 0 lineto 0 0 lineto closepath
0.3 settint 0.6 setgray fill


black line1

0 18.75 mt 
range {procit1d} forall stroke

0 37.5 mt 
range {procit2d} forall stroke

0 18.75 mt 
range {procit3d} forall stroke
 stroke


% width outlines

0 0 mt 
range {procit1} forall stroke

0 0 mt 
range {procit2} forall stroke

0 0 mt 
range {procit3} forall stroke

0 0 mt 
range {procit4} forall stroke

0 0 mt 
range {procit5} forall stroke





0.3 0.3 0.3 setrgbcolor line3 1 setlinecap 1 setlinejoin

0 0 mt 40 u 40 r 40 d 40 l
[{ 0 0 mt 0.4 l} 10 5 ] yrpt
[{ 40 0 mt 0.4 r} 10 5 ] yrpt
[{ 0 0 mt 0.4 d} 10 5 ] xrpt
[{ 0 40 mt 0.4 u} 10 5 ] xrpt

/cstretch 0.02 store
/sstretch 0 store
/font0 /StoneSans-Bold 1.5 gonzofont
/font1 /StoneSans-Bold 1.2 gonzofont
/font2 /StoneSans-Bold 1 gonzofont
/font: /StoneSans-Bold [0.6 0 0 0.6 0 0.6] gonzofont
/font; /StoneSans-Bold [1.5 0 0 1.5 0 0.2] gonzofont
/yinc 2 store
font0

20 45 (DELTA FRIENDLY  N |;=|0 28\nMAGIC  SINEWAVE) cc





font1
/yinc 1.5 store

0 -2.2 (0.0) cc
20 -2.2 (0.5) cc
40 -2.2 (1.0)cc

20 -4.3 (AMPLITUDE) cc

41 -0.5 (0) cl
41 9.5 (4) cl
41 19.5 (8) cl
41 29.5 (12) cl
41 39.5 (16) cl

46.5 21 (DELAY\nTIME IN\nDEGREES) cc

font2
23.5 4.7 (PULSE  WIDTHS) cc

1.5 22.5 (PULSE  DELAYS) cl




% generate actual magic sinewave

/makemagicold {gsave translate 0.25 dup scale line3

/ht 12 store
/dht 6 store

0 setlinecap 0 setlinejoin
dht setlinewidth

0 0 mt 
a50 0 get pr
0 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add 0 mt
a50 2 get pr
0.1 settint 0.8 setgray stroke


0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add     0 mt
a50 4 get pr
0.2 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add
     0 mt
a50 6 get pr
0.3 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
     0 mt
a50 8 get pr
0.4 settint 0.8 setgray stroke


0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
a50 8 get add a50 9 get add
     0 mt
a50 10 get pr
0.5 settint 0.8 setgray stroke


0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
a50 8 get add a50 9 get add a50 10 get add a50 11 get add
     0 mt
a50 12 get pr
0.6 settint 0.8 setgray stroke

0 a50 0 get add a50 1 get add a50 2 get add a50 3 get add
a50 4 get add a50 5 get add a50 6 get add a50 7 get add
a50 8 get add a50 9 get add a50 10 get add a50 11 get add
a50 12 get add a50 13 get add
     0 mt
a50 14 get pr
0.7 settint 0.8 setgray stroke

%% pulses

a50 0 get 0 mt
ht pu
0 a50 1 get pr
ht pd
closepath
0 settint 0.6 setgray fill


a50 0 get a50 1 get add a50 2 get add 
0 mt ht pu
0 a50 3 get pr
ht pd
closepath
0.1 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
0 mt ht pu
0 a50 5 get pr
ht pd
closepath
0.2 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add
0 mt ht pu
0 a50 7 get pr
ht pd
closepath
0.3 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add a50 7 get add a50 8 get add
0 mt ht pu
0 a50 9 get pr
ht pd
closepath
0.4 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add a50 7 get add a50 8 get add
a50 9 get add a50 10 get add
0 mt ht pu
0 a50 11 get pr
ht pd
closepath
0.5 settint 0.6 setgray fill

a50 0 get a50 1 get add a50 2 get add a50 3 get add a50 4 get add
a50 5 get add a50 6 get add a50 7 get add a50 8 get add
a50 9 get add a50 10 get add a50 11 get add a50 12 get add
0 mt ht pu
0 a50 13 get pr
ht pd
closepath
0.6 settint 0.6 setgray fill





1 setlinecap 1 setlinejoin
black

0 0 mt
a50 0 get 0 rlineto
0 ht pu
a50 1 get 0 rlineto
0 ht pd

a50 2 get 0 rlineto
0 ht pu
a50 3 get 0 rlineto
0 ht pd

a50 4 get 0 rlineto
0 ht pu
a50 5 get 0 rlineto
0 ht pd

a50 6 get 0 rlineto
0 ht pu
a50 7 get 0 rlineto
0 ht pd

a50 8 get 0 rlineto
0 ht pu
a50 9 get 0 rlineto
0 ht pd

a50 10 get 0 rlineto
0 ht pu
a50 11 get 0 rlineto
0 ht pd


a50 12 get 0 rlineto
0 ht pu
a50 13 get 0 rlineto
0 ht pd

a50 14 get 0 rlineto


0.45 setlinewidth
stroke









grestore} def


/makemagic {gsave translate 0.8 dup scale line3

/ht 3 store
/dht 1.5 store

0 setlinecap 0 setlinejoin
dht setlinewidth

0 0 mt 
ad70 0 get pr
0 settint 0.8 setgray stroke


ad70 0 get ad70 1 get add ad70 2 get add  
0 mt
ad70 3 get pr
0.15 settint 0.8 setgray stroke


ad70 0 get ad70 1 get add ad70 2 get add  
ad70 3 get add ad70 4 get add ad70 5 get add ad70 6 get add
0 mt
ad70 7 get pr
0.3 settint 0.8 setgray stroke

% pulses


ad70 0 get 0 mt
ht 2 mul pu
ad70 1 get pr
ht 2 mul pd
closepath
0 settint 0.6 setgray fill



ad70 0 get ad70 1 get add 0 mt
ht 2 mul pu
ad70 2 get pr
ht 2 mul pd
closepath
0.15 settint 0.6 setgray fill

ad70 0 get ad70 1 get add ad70 2 get add  ad70 3 get add              0 mt
ht 2 mul pu
ad70 4 get pr
ht 2 mul pd
closepath
0.30 settint 0.6 setgray fill

ad70 0 get ad70 1 get add ad70 2 get add  ad70 3 get add  ad70 4 get add            0 mt
ht 2 mul pu
ad70 5 get pr
ht 2 mul pd
closepath
0.5 settint 0.6 setgray fill

ad70 0 get ad70 1 get add ad70 2 get add  ad70 3 get add  ad70 4 get add
ad70 5 get add            0 mt
ht 2 mul pu
ad70 6 get pr
ht 2 mul pd
closepath
0.6 settint 0.6 setgray fill





% outlines

black line1
1 setlinecap 1 setlinejoin


0 0 mt
ad70 0 get pr
ht pu
ad70 1 get pr
ht pd
ht pu
ad70 2 get pr
ht pd

ad70 3 get pr 
ht pu
ad70 4 get pr
ht pd
ht pu
ad70 5 get pr
ht pd
ht pu
ad70 6 get pr
ht pd

ad70 7 get pr


stroke




0 0 mt
ad70 0 get pr
ht 2 mul  pu
ad70 1 get ad70 2 get add pr
ht 2 mul pd

ad70 3 get pr
ht 2 mul pu

ad70 4 get ad70 5 get add ad70 6 get add pr
ht 2 mul pd



stroke






% p3 poker

17.8 -0.45 mt 1.65 -2.5 rlineto black line1 stroke

11.5 -0.45 mt -1.65 -2.5 rlineto black line1 stroke



grestore } def






 12 31 makemagic

font2
11 30.5  (0|:o) cc
37.5 30.5   (30|:o) cc
28.5 28.3 (p2) cc
18.9 28.3 (p1) cc


18 31.8 (p5) cc
28.8 31.8 (p4) cc
32.7 31.8 (p3) cc

18 34.2 (p6) cc
30.2 34.2 (p7) cc

} store  % end special 2 def

% ----------














/special1 {save /s1snap exch store  4.5 2.5 translate 
0.8 dup scale special1code s1snap restore} store


/special2 {save /s1snap exch store  4.5 17 translate 
0.8 dup scale special2code s1snap restore} store



/special5 {gsave 4 -5.85 translate 
         line1  black
         0.3 0 mt 0.3 l 5.2 u 0.3 r
         13.2 0 mt  0.3 r 5.2 u 0.3 l
         15.3 0 mt 0.3 l 5.2 u 0.3 r
         18.3 0 mt 0.3 r 5.2 u 0.3 l grestore
             } store

/xkernon {/kernsave kern store  /kern 0.18 store } def
/xkernoff {/kern kernsave store} def

/pagenum 1 store

/startnewpage {
black  beige 0.35 setgray 
21 -2.5 (|3\320|j|j) ggnum 10 string cvs mergestr (|j.|j) mergestr
pagenum 10 string cvs mergestr (|j|j\320) mergestr cc
aqua

showpage

%% start next page 

/pagenum pagenum 1 add store


50 50 10 setgrid                               % create grid
setpagefonts

font1
textleft texttop 
} def

/su {surl font6} store
/to {tinton1 font6} store
/tx {tintoff font1} store



/tabs [14.5 20] store


% /font7 /helvetica [0.7 0 0 0.7 0 0.5] gonzofont
font1

aqua 0.33 setgray
font0

20 47.3 0.7  add  %1 sub  
(Using |j|jAdobe's |j|jAcrobat |j|jDistiller |j|jas |j|ja)cc

20 45.3 0.7  add  %1 sub  
(General |j|jPurpose |j|jPostScript |j|jComputer) cc

black
font2


textleft 43  0.3 add % this one only  need |h below 
(|/aqua |/staytint1 |3Don Lancaster
Synergetics, Box 809, Thatcher, AZ 85552
copyright c2003 as |/surl |6GuruGram|1|/gurgrm01  |/tinton1 |6#29
|/surl http://www.tinaja.com|/tinaja 
|/surl don@tinaja.com|/maildon 
(928) 428-4073
|/aqua |/black 
|a|0O|b|1|jne of our most important and most popular |/su Guru's Lair|1|/tinaja  downloads has been    |/su DISTLANG.HTML|1|/distlang  As this was in an older format and from way back in the days when |/su Adobe Acrobat PDF|1|/acrob01  web access was rare, it seemed to be sorely in need of a |/to Sherwin-Williams|/tx  overhaul. Which I thought we might do here.
|h
The key point being\274
|6|/shiftin |/aqua |/burplebox3 |/staytint1 
|h
The |/su Adobe Acrobat Distiller|1|/adobe |/to  can easily be used as a superb
general use host based |/su PostScript|1|/post01 |/to  interpreting computer!
|1|/shiftout |/aqua |/black  
|h
And a surprisingly fast and amazing powerful one. The |/su PostScript|1|/post01  language itself can be both incredibly versatile and a lot of fun to use. Why, it is even rumored that |/su PostScript|1|/post01  may be capable of dirtying up otherwise clean sheets of paper! But surely few people would limit themselves to such a restrictive use.
|h
I have already applied it for everything from |/su robotics controls|1|/flut01 , making |/su bitmap          |/su image corrections|1|/aafont01 , reporting |/su eBay Image thefts|1|/analogeb , doing hassle free |/su PowerPoint|/gonzopow      |/su  emulations|1|/gonzopow , working with |/su energy efficiency breakthroughs|1|/magsn01 , handling |/su digital|/swingtlt             |/su camera swings & tilts|1|/swingtlt , automatically |/su writing complex JavaScript programs|1|/magsn01 , and, of course, for pretty near all of my general engineering design. 
|h
I've also found |/su PostScript|1|/post01  to be exceptionally handy in its ability to |/to read or write      |/to virtually any diskfile|/tx  in pretty near |/to any|/tx  format. Thus using |/su elegant simplicity|1|/elesimp  to easily solve great heaping bunches of otherwise ugly compatibility problems.
|h
Much of what you will need to get started can be found on our |/su PostScript|1|/post01  and      |/su Acrobat|1|/acrob01  library pages. Especially our |/su PostScript Beginner Stuff|1|/post01  series. Additional help is available directly from |/su Adobe Systems|1|/adobe  as well as the |/su comp.text.pdf|1|/ctpng  and the |/su comp.lang.postscript|1|/clpng  newsgroups.
|h
Normally, you (or an application) creates a |/su PostScript|1|/post01  program in the form of a       |/to standard ASCII textfile|/tx .
) cl 

startnewpage 

(You will send this program to |/su Acrobat Distiller|1|/adobe  to create an |/su Acrobat PDF|1|/acrob01  file for distribution. The usual essence of distilling is try and get rid of everything |/to not|/tx  specifically needed to make final marks on a page.
|h
Thus, to be able to properly distill, the program must be able to handle any and all |/su PostScript|1|/post01  thrown at it.
|h
Distiller normally generates |/to two|/tx  documents: A |/to .PDF|/tx  file usable for later viewing or printing of graphic output. Plus a |/to .LOG|/tx  file containing any |/to print|/tx  or |/to =|j=|/tx  results from the input program, along with status messages. Distiller can optionally also be used to create |/to disk based|/tx  output files. Once written, these files can be used for port control or |/to any|/tx  computational purpose whatsoever. In |/to any |/tx language!
|h
As a simple example, say you want to find the sine of 35.4 degrees. Create the following program in |/to WordPad|/tx  or another editor or word processor\274
|6|/shiftin |/burple |/burplebox3 |/staytint1 
|h
%!
35.4 sin =|j= 
|h
|1|/shiftout |/aqua |/black  
|h
Save your file as an ordinary text file with a |/to .ps|/tx  trailer. Drag and drop this file in the |/su Adobe Acrobat Distiller|1|/adobe . The correct answer of |/to 0.579281|/tx  should quickly pop up in the dialog box. A later reading of the |/to .LOG|/tx  file will return this value, along with an expected warning message that no actual |/to .PDF|/tx  file is produced.
|h
The rules are that\274
|6|/shiftin |/aqua |/burplebox7 |/staytint1 
|h
PRINTING or =|j= commands go to the .LOG file as text.
|h
MARKING commands such as show, fill, stroke, or showpage
go to the .PDF file as imaging actions.
|h
WRITING or Reading commands work with your own custom 
defined output or input disk files.
|h
|1|/shiftout |/aqua |/black  
There are lots of times when using |/su PostScript|1|/post01  as language that you throw away your |/to .PDF|/tx  baby and drink the |/to .LOG|/tx  file washwater instead.
|h
Two more key rules\274
|6|/shiftin |/aqua |/burplebox3.5 |/staytint1 
|h
Always start your program with the %! character pair! 
|h
Do NOT end your program with a quit or a control [d]!
|h
|1|/shiftout |/aqua |/black 
The |/to .LOG|/tx  file can be a quick and dirty way to get useful |/su PostScript|1|/post01  output.
|h
) cl 

startnewpage    

(Logfile use does have some quirks you should be aware of. Ferinstance, |/su Distiller|1|/adobe  performs a |/to flushfile|/tx  on every newline character. Nicely letting you see problems immediately as they occur.
|h
But any |/su PostScript|1|/post01  program of yours that includes lots of print commands that include newline characters or |/to flush|/tx es or |/to =|j=|/tx  will |/to (a)|/tx  slow things down, and |/to (b)|/tx  cause a lot of disk clatter.
|h
Thus, writing a special disk based output file can end up faster, cleaner, and less demanding any time that many newline characters are involved.
|h
A second |/to .LOG|/tx  file hassle: |/to Long strings are truncated to 200 characters!|/tx  The rest of the string gets replaced by the three ellipsis dots|\274  Workarounds are to use shorter strings, characters in an array, or your own special output file. Fortunately, long arrays or procs do get properly reported.
|h
Other nasty habits of log files are that |/to your end log result will be a mix of your        |/to print commands and processing status and error messages|/tx . On an error, |/to the log      |/to file stack dump is also truncated to 200 entries.
|h
|c
Reading |jand |jWriting |jDisk |jFiles
|d
Some of the most versatile and powerful PostScript-as-language stuff you can do involves reading and writing disk files. These can arrive in virtually any language and be written in virtually any language. Thus, |/su PostScript|1|/post01  is superb for |/to oddball      |/to file conversions|/tx  or |/to resolving format conflicts|/tx .
|h
PostScript disk commands are discussed in depth in |/su PSDISK03.PDF|1|/psdisk03 . Here are a few summary examples\274
|6|/shiftin |/burple |/burplebox15.5 |/staytint1 
|h
To CREATE a PS disk file object for READING\274
|h
     (C:\\\\\\\\WINDOWS\\\\\\\\Desktop\\\\\\\\sourceinfo.txt) cvn (r) file
     /infile exch store
|h
To READ one line of an INPUT disk file\274
|h
    /workstring 20000 string store
    {infile workstring readline {dostuff}{exit} ifelse} loop
|h              
To CREATE a PS disk file object for WRITING\274
|h
     (C:\\\\\\\\WINDOWS\\\\\\\\Desktop\\\\\\\\targinfo.txt) cvn (w+) file
     /outfile exch store
|h
To WRITE one line of an OUTPUT disk file\274
|h
     outfile (string_to_be_written) writestring
|h
|1|/shiftout |/aqua |/black  
|h
) cl 

startnewpage    

(Note that the PostScript |/to (w)|/tx  command starts a new file each time, while the |/to (w+)|/tx  |/to appends|/tx  an already existing file. Fancier reading and writing procs also exist for single bytes or random access.
|h
More rules\274
|6|/shiftin |/aqua |/burplebox4.5 |/staytint1 
|h
ALWAYS use "\\\\\\\\" whenever you really want a "\\\\" in any of
your PostScript filename strings!
|h
ALWAYS use the "long form" FULL pathname with Windows.
|1|/shiftout |/aqua |/black  
|h
It is usually best to always create |/to new|/tx  disk files, rather than overwriting or modifying existing ones. It is also a good idea to |/to read or write most files a full      |/to line at a time|/tx  rather than character by character. This will often be much faster and far less demanding on the disk drive itself.
|h
|/su PostScript|1|/post01  also lets you use readable and writable strings as virtual file objects. Through their |/to NullEncode|/tx  and |/to SubFileDecode|/tx  filters. Subject to a |/to 65K|/tx  limit.
|h
|c
The |jGonzo |jUtilities
|d
I long ago wrote a set of PostScript |/su Gonzo Utilities|1|/gonzoutils . These are a |/to non-WYSIWYG|/tx  combination of pagemaking and illustration tools that do such tasks as really great text justification, premium quality electronic schematics, and superb grid-based graphic presentations. Plus many other PostScript extensions.
|h
Full details on these appear on the |/su Gonzo|1|/gonzoutils  panel of our |/su PostScript|1|/post01  library. Typical detailed use examples appear in most any of our |/to .PSL|/tx  sourcecode files. Such as those found on our |/su GuruGram|1|/gurgrm01 , |/su Tech Musings|1|/muse01 , or |/su Blatant Opportunist|1|/blat01  libraries. 
|h
To add these capabilities to your own PostScript programs\274
|6|/shiftin |/aqua |/burplebox8 |/staytint1 
|h
MAKE a copy of |/su GONZO.PS|1|/gonzoutils  |/to available on your hard drive.
|h|/staytint1 
ADD this line near the start of your PostScript program\274
|h
       (C:\\\\\\\\windows\\\\\\\\desktop\\\\\\\\gonzo\\\\\\\\gonzo.ps) run 
|h
ACTIVATE the utilities where first needed with a\274 
|h
       gonzo begin   ps.util.1 begin   nuisance begin
|1|/shiftout |/aqua |/black   
|h
The best way to get started with Gonzo is to work on through our |/su PostScript|/post01           |/su Beginner Stuff|1|/post01  projects. These give you bunches of things like letterheads, business cards, advertising aides, menus, bumperstickers, badges, and great heaping bunches more to explore on your own.
|h
) cl 

startnewpage    

(|c
Pathforall |jOddities
|d
Distiller provides a rather bizarre twist on the |/to pathforall|/tx  operator. Pathforall will operate normally on any font properly installed into ATM. It will also operate uselessly but as expected on a |/to Courier|/tx  substitution for a non-Adobe or with any mis-spelled font.
|h 
But pathforall will return a |/to bounding box|/tx  for any requested but uninstalled Adobe font. Watch this strange detail very closely.
|h
|c
Essential PostScript Resources
|d
Two "must have" documents are the |/surl |6PostScript II Reference Manual|1|/refman2  and the        |/surl |6PostScript III Reference Manual|1|/refman3 . These are downloadable free using these links, or may be purchased in hard copy via |/surl |6Amazon Books|1|/amlink01 .
|h
The more interesting and more obscure info sometimes appears in the PostScript Language supplements\274
|6|/shiftin |/staytint1 |/burplebox7.5 
|/surl PostScript Language Supplement 2011|/s2011 
|/surl PostScript Language Supplement 2012|/s2012 
|/surl PostScript Language Supplement 2013|/s2013 
|/surl PostScript Language Supplement 2014|/s2014 
|/surl PostScript Language Supplement 2015|/s2015 
|/surl PostScript Language Supplement 2016|/s2016 
|h
|/surl PostScript Language Supplements 3011 and 3012|/s3011 
|1|/shiftout |/aqua |/black 
Additional PostScript support appears on this |/surl |6Adobe PostScript Technotes|1|/adobepst  site, on my |/surl |6PostScript Libray|1|/post01  and |/surl |6Acrobat Library|1|/acrob01  pages, my |/surl |6PostScript Disk Access|/psdisk03     |/su Notes |1|/psdisk03  utility file and by way of the |/surl |6comp.lang.postscript|1|/ng1  or the |/surl |6comp.text.pdf|1|/ng2  usenet newsgroups.
|h
A collection of third party links can also be found  |/surl |6here|1|/post01  and |/surl |6here|1|/acrob01  .
|h
|c
PostScript |jLimitations
|d
If |/su PostScript|1|/post01  is so great, why isn't it more widely used as a general purpose computing language? Firstoff, because few people yet realize how easy, how convenient, how fast, and how powerful it has recently become. 
|h
Second, because |/su PostScript|1|/post01  appeals largely to |/to bare metal|/tx  types who can fully appreciate the elegance and strength of a non-mainstream |/to stack oriented|/tx  language. And, finally, because |/su Adobe|1|/adobe  lately been de-emphasizing general PostScript-as-language use due to extensions in the Acrobat imaging model.
|h
Some other perceived PostScript restrictions may include\274 
) cl 

 startnewpage  

/shiftinx {xpos /xposhold exch store /xpos xpos 3 add store
           /txtwide txtwide 7 sub store} def

/shiftoutx {/xpos xpos 3 sub store 
           /txtwide txtwide 7 add store} def



(|/shiftinx |/to Full Acrobat is Required \320 |/tx Distiller is available on all commercial 
and educational versions of Acrobat, but is |/to not|/tx  included on any of the free Acrobat readers.
|h
|/to PostScript is Proprietary \320 |/tx Source code for your own custom apps is generally |/to not|/tx  available, except for outrageously high fees. However, there is a free to low cost |/su GhostScript|1|/ghostscript  variant that |/to does|/tx  offer fully customizable sourcecode.  
|h
|/to Raw PostScript is "not quite" WYSIWYG \320 |/tx If you make a change in a raw PostScript program, it may take a second or two and a few mouse clicks to view the actual results. But once again, that           |/su GhostScript|1|/ghostscript  alternative offers immediate viewability. But at the price of being a tad klutzy and somewhat behind the curve.
|h
|/to Raw PostScript works best in a batch mode \320 |/tx In which you give it all the needed info ahead of time, let it do its thing, and then observe or view the final results.
|h
|/to I/O is restricted \320 |/tx Raw PostScript is normally limited to inputs of internal instructions and readable disk files. Its output is similarly restricted to |/to .PDF|/tx  files, log files, and written disk files. However, this can be expanded with |/su Acrobat Plugins|1|/expbmp  or |/su GhostScript|1|/ghostscript .
|h
|/to Interactivity is limited \320 |/tx It is difficult for raw PostScript to get a user input mid-program. But, once again, this can be handled through the use of |/su Acrobat Plugins|1|/expbmp  or |/su GhostScript|1|/ghostscript . PDF |/to form|/tx  submissions are also a possibility.
|h
|/to Scripting is external \320 |/tx There's no obvious provision in PostScript for automatic or unattended external control. Many tasks are best done "semiautomatically" where each job is user specified. But external scriptors can be added on a custom basis. The Acrobat        |/to watched folders|/tx  feature may also be of help here.
|h
|/to Any interpreted language runs slower than a compiled one \320      |/tx But the instant convenience and freedom from all front end prep hassles often can |/to reduce|/tx  your total job time.
|h
|/to Poorly written PostScript runs slow \320 |/tx Most tightly written raw PostScript distills blindingly fast on any modern host. In general, your own code can be rewritten 3X to 10X faster than its first cut, and outside code can often be sped up beyond 10X to 100X by using |/su these techniques|1|/speedup2  .
|h
|/to Newest PDF features go beyond the PostScript model \320 |/tx  The use of alpha |/su transparency|1|/pstrans  remains tricky with raw PostScript. As may other future |/su Acrobat|1|/acrob01  capabilities yet to be introduced.
|h

) cl 

startnewpage   

/shiftinx {xpos /xposhold exch store /xpos xpos 3 add store
           /txtwide txtwide 7 sub store} def

/shiftoutx {/xpos xpos 3 sub store 
           /txtwide txtwide 7 add store} def

(|/shiftinx |/to Math accuracy is limited \320 |/tx PostScript uses 32-bit math, roughly 
equal to six or seven decimal places. While good enough for everyday use, |/su precision scientific calculations|1|/magsn01  may need the 64-bit accuracy of |/to JavaScript|/tx  or another language.
|/shiftoutx 
Math accuracy reporting can be improved by using |/su these techniques|1|/ps8drp1.pdf . 
|h
Needless to say, I've never let any of these restrictions get in my way at all. For      |/su PostScript|1|/post01  remains one of the most versatile and most fun to use general purpose computer languages of all time.
|h
|c
An |jImportant |jUpdate
|d
Starting with Acrobat 8.1, the ability to read and write disk files |/su has been|/readfiles                |/su disabled|1|/readfiles  as a default. To use our Gonzo utilities, this read and write ability                    |/to must|/tx  be restored.
|h
In Windows, the Distiller file read and write ability is restored by using a command line run command of\274
|6|/shiftin |/burple |/burplebox2 |/staytint1 
|h
                                  acrodist  -F
|h
|1|/shiftout |/aqua |/black

The read and write enabling will remain active so long as an executable version of Distiller is on or under the desktop. To use, you simply drag and drop your Gonzo routines into this active instance of Distiller. 
|h
|c
For  More  Help
|d
A full |/su Gonzo|1|/gonzoutils  tutorial newly appears |/su here|1|/gonzotut.pdf .
|h
Additional |/su PostScript|1|/post01  and |/su Acrobat|1|/acrob01  and additional assistance is available per the previously shown web links. Custom programming and design services are now available at our standard consulting rates. Per our |/su InfoPack Services|1|/info01 . Or you can directly |/su email|1|/maildon  me.
|h
Additional |/surl |6GuruGrams|1|/gurgrm01  columns await your ongoing support as a |/surl |6Synergetics|/advt01            |/su Partner|1|/advt01 .
) cl 


startnewpage


%%%%%%%%%%%%%%%%%%%%

% EOF