%!PS

% Bitmap Perspective Lettering Algorithms and Utilities
% ===================================================
% by  Don Lancaster   GG #91 BMPERLET.PSL


/ggnum 91 store

%  Copyright c 2008 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. First pub 2/08.

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

%  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.


% Many routines removed and cleaned at #58



%%%%%%%%%%% 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

% zzzzz  keep for search marker

% dictionary method

<< 

% gg 91


/flatart1.bmp (http://www.tinaja.com/glib/flatart1.bmp)
/bmperlet.pdf (http://www.tinaja.com/glib/bmperlet.pdf)
/bmperlet.psl (http://www.tinaja.com/glib/bmperlet.psl)
/bmperlt1.psl (http://www.tinaja.com/psutils/bmperlt1.psl)
/postproc.psl (http://www.tinaja.com/glib/postproc.psl)
/postproc.pdf (http://www.tinaja.com/glib/postproc.pdf)

% gg90

/archpers.psl (http://www.tinaja.com/glib/archpers.psl)
/archpers.pdf (http://www.tinaja.com/glib/archpers.pdf)
/archper1.psl (http://www.tinaja.com/psutils/archper1.psl)
/speedup2.pdf (http://www.tinaja.com/glib/speedup2.pdf)
/imgview32 (http://www.arcatapet.net/imgv32.cfm)
/keycor01.psl (http://www.tinaja.com/glib/keycor01.psl)

% gg88

/airbex1 (http://www.tinaja.com/images/bargs/grbpum01.jpg)
/airbex2 (http://www.tinaja.com/images/bargs/abfx6d41.jpg) 
/nowhites.psl (http://www.tinaja.com/psutils/nowhites.psl)
/wave1001.jpg (http://www.tinaja.com/images/bargs/wave1001.jpg)
/keycor01.pdf (http://www.tinaja.com/glib/keycor01.pdf)
/ccelllink (http://www.tinaja.com/glair01.asp#ccell)
/vignexamp (http://www.tinaja.com/images/bargs/tk506a01.jpg) 

% gg87

/lineq04.psl (http://www.tinaja.com/psutils/lineq04.psl)
/invegraf.pdf (http://www.tinaja.com/glib/invegraf.pdf)
/aosutil1.psl (http://www.tinaja.com/psutils/aosutil1.psl)
/airdemo1.jpg (http://www.tinaja.com/images/bargs/airdemo1.jpg)
/airstudy.psl (http://www.tinaja.com/psutils/airstudy.psl)
/airstudy.log (http://www.tinaja.com/psutils/airstudy.log)
/airbrut1.psl (http://www.tinaja.com/psutils/airbrut1.psl)
/airbrush.psl (http://www.tinaja.com/glib/airbrush.psl)
/airbrush.pdf (http://www.tinaja.com/glib/airbrush.pdf)

% gg86

/wikiericsson (http://en.wikipedia.org/wiki/Ericsson_cycle)
/trackingcalc (http://www.macslab.com/optsolar.html)
/newthermo (http://www.johnsonems.com/jhtec.html)
/wikithermoelectric (http://en.wikipedia.org/wiki/Thermoelectric_effect)
/newnano (http://www.gizmag.com/researchers-developing-solar-technology-that-works-at-night/8574/)
/googlenanoantenna (http://www.google.com/search?q=solar+nanoantennas&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/currentmetalloradical (http://www.sciencedaily.com/releases/2008/02/080217170412.htm)
/sciencemetalloradical (http://www.sciencemag.org/cgi/content/abstract/277/5334/1953)
/googlemetalloradical (http://www.google.com/search?q=metalloradical+photosynthesis&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/sciencenewsquantumdot (http://www.sciencenews.org/articles/20060603/bob8.asp)
/googlequantum (http://www.google.com/search?q=quantum+dot+solar&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/ricetetrapod (http://www.sciencedaily.com/releases/2007/05/070502143631.htm)
/googletetrapods (http://www.google.com/search?q=tetrapod+solar&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/solyndra (http://www.solyndra.com/)
/miasole (http://www.miasole.com/)
/iset (http://www.isetinc.com/)
/heliovolt (http://www.heliovolt.net/)
/daystar (http://www.daystartech.com/)
/globalsolar (http://www.globalsolar.com/)
/firstsolar (http://www.firstsolar.com/)
/nanosolar (http://www.nanosolar.com)
/googlecigs (http://www.google.com/search?q=cigs+solar&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/wikifungible (http://en.wikipedia.org/wiki/Fungibility)
/califsetback (http://www.tinaja.com/whtnu06.asp#decades)
/springervillepv (http://www.greenwatts.com/pages/solaroutput.asp)
/h2gas01 (http://www.tinaja.com/h2gas01.asp)
/zomeworks (http://zomeworks.com/)
/solarcalc1 (http://www.powerfromthesun.net/CALCULATORS/AngleCalc.html)
/solarcalc2 (http://susdesign.com/sunangle/)
/googlesolarcalc (http://www.google.com/search?q=solar+angle+calculations&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)

/muse153.pdf (http://www.tinaja.com/glib/muse153.pdf)
/googleexergy (http://www.google.com/search?q=exergy&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/wickexergy (http://en.wikipedia.org/wiki/Exergy)
/hack64.pdf (http://www.tinaja.com/glib/hack64.pdf)
/whtnu08  (http://www.tinaja.com/whtnu08.asp)
/energfun.pdf (http://www.tinaja.com/glib/energfun.pdf)



% gg85

/bmp2psa.pdf  (http://www.tinaja.com/glib/bmp2psa.pdf)
/pixintpl.pdf (http://www.tinaja.com/glib/pixintpl.pdf)
/gaussjor.pdf (http://www.tinaja.com/glib/gaussjor.pdf)
/determinants (http://en.wikipedia.org/wiki/Determinant)

% gg84


/img2bmp (http://www.google.com/search?q=postscript+image+to+bitmap+conversion&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/distbug (http://www.adobe.com/devnet/acrobat/downloads/Acrobat_SDK_readme.html)
/AOSutil1.psl (http://www.tinaja.com/psutils/AOSutil1.psl)
/falseclr.pdf (http://www.tinaja.com/glib/falseclr.pdf)
/bannpe06.jpg (http://www.tinaja.com/images/bargs/bannpe06.jpg)
/arabbb.jpg (http://www.tinaja.com/images/bargs/araabbb.jpg)

% gg83

/pixintp1.pdf (http://www.tinaja.com/psutils/pixintp1.pdf)
/pixintp1.psl (http://www.tinaja.com/psutils/pixintp1.psl)

/pixintpl.pdf (http://www.tinaja.com/glib/pixintpl.pdf)
/pixintpl.psl (http://www.tinaja.com/glib/pixintpl.psl)

/wikipedia (http://en.wikipedia.org/wiki/Main_Page)
/wikilin (http://en.wikipedia.org/wiki/Bilinear_interpolation)
/wikicub (http://en.wikipedia.org/wiki/Bicubic)



% gg82

/muse111.pdf (http://www.tinaja.com/glib/muse111.pdf)
/pdfanim.pdf (http://www.tinaja.com/glib/pdfanim.pdf) 
/falseclr.psl (http://www.tinaja.com/glib/falseclr.psl)
/dodgebur.pdf (http://www.tinaja.com/glib/dodgebur.pdf) 

% gg81


/htmlfordummiesbook (http://www.amazon.com/exec/obidos/ISBN=0764589172/donlancastersgurA/)
/htmldefinitiveguidebook (http://www.amazon.com/exec/obidos/ISBN=0596527322/donlancastersgurA/)


% gg80


/kearney (http://www.cs.uiowa.edu/~kearney/pubs/CurvesAndSufacesClosestPoint.pdf)
/cmindist.psl (http://www.tinaja.com/glib/cmindist.psl)
/piecewise (http://delivery.acm.org/10.1145/810000/801153/p229-plass.pdf?key1=801153&key2=0010608811&coll=GUIDE&dl=&CFID=15151515&CFTOKEN=6184618)
/nubzlen1.pdf (http://www.tinaja.com/glib/nubzlen1.pdf)
/nubz4pts1.pdf (http://www.tinaja.com/glib/nubz4pts1.pdf)

% entered during gg79

/gonzotut.pdf (http://www.tinaja.com/glib/gonzotut.pdf)
/gonzotut.psl (http://www.tinaja.com/glib/gonzotut.psl)
/bookcvr1.pdf (http://www.tinaja.com/glib/bookcvr1.pdf)
/swingtlt.pdf (http://www.tinaja.com/glib/swingtlt.pdf)
/curvetr2.pdf (http://www.tinaja.com/psutils/curvetr2.pdf)
/curvetr2.psl (http://www.tinaja.com/psutils/curvetr2.psl)
/blanksusa (http://www.blanksusa.com) 
/gonzotut.psl (http://www.tinaja.com/glib/gonzotut.psl)
/ps8dprp1.pdf (http://www.tinaja.com/glib/ps8dprp1.pdf) 
/pdfedit1.pdf (/http://www.tinaja.com/glib/pdfedit1.pdf)

% entered during gg78

/enhebay6.psl (http://www.tinaja.com/glib/enhebay6.psl)
/enhebay6.pdf (http://www.tinaja.com/glib/enhebay6.pdf)
/slashdot (http://www.slashdot.org)
/blackrangelodge (http://www.blackrangelodge.com/)
/kijiji (http://www.phoenix.kijiji.com)
/aznews (http://www.usnpl.com/aznews.html)
/azschools (http://www.ade.state.az.us/schools/schools/districts.asp)
/azcounties (http://www.az.gov/webapp/portal/displaycontent.jsp?name=county)
/aztowns( http://www.azleague.org/index.cfm?fuseaction=about.cities)
/natuniv (http://www.utexas.edu/world/univ/state/)
/natcc (http://www.50states.com/college/arizona.htm)
/barbiecollect (http://www.barbiecollector.com/shop/dept.aspx?deptid=2&shelfid=02&view=all)
/googlebarbie (http://www.google.com/search?q=barbie+doll&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/wikibarbie (http://en.wikipedia.org/wiki/Barbie)
/countyourassests (http://www.soldyourway.com/)
/christies (http://www.christies.com/home_page/home_page.asp)
/sothebys (http://www.sothebys.com)
/franklinmint (http://en.wikipedia.org/wiki/Franklin_Mint)
/klausbarbie (http://en.wikipedia.org/wiki/Klaus_Barbie)
/enhebay5.pdf (http://www.tinaja.com/glib/enhebay5.pdf)
/whtnu06 (http://www.tinaja.com/whtnu07.asp)
/whtnu07 (http://www.tinaja.com/whtnu07.asp)
 
% entered during gg77

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

% entered during gg76

/ieeefp (http://en.wikipedia.org/wiki/IEEE_754)
/ps8dprpt.psl (http://www.tinaja.com/psutils/ps8dprpt.psl) 

% entered during gg75

/pstrans2.pdf (http://www.tinaja.com/glib/pstrans2.pdf) 
/ghostscript (http://pages.cs.wisc.edu/~ghost/doc/AFPL/index.htm)
/PLRM (http://www.adobe.com/products/postscript/pdfs/PLRM.pdf)
/pdfref (http://www.adobe.com/devnet/pdf/pdf_reference.html)

% entered during gg 74

/ebaymktsearch (http://pages.ebay.com/marketplace%5Fresearch/)
/ebaystat.psl (http://www.tinaja.com/glib/ebaystat.psl)
/ebayadvsearch (http://search.ebay.com/ws/search/AdvSearch?sofindtype=13&_trksid=m37)
/ebaystatservice (http://www.medved.net/cgi-bin/cal.exe?EIND)


% entered during gg 73

/bridge701.psl (http://www.tinaja.com/magsn_5/bridge701.psl)  
/bridge701.pdf (http://www.tinaja.com/magsn_5/bridge701.pdf)  
/demo28a (http://www.tinaja.com/demo28a.asp)

/gaussjordan (http://en.wikipedia.org/wiki/Gauss-Jordan_elimination)
/sinseries (http://www.ucl.ac.uk/Mathematics/geomath/level2/series/ser11.html)
/newtonmethod (http://en.wikipedia.org/wiki/Newton's_method)
/trigidentity (http://www.sosmath.com/trig/Trig5/trig5/trig5.html)
/demo28a.asp (http://www.tinaja.com/demo28a.asp)

% entered during gg 71

/detmssol.pdf (http://www.tinaja.com/glib/detmssol.pdf)
/detmssol.psl (http://www.tinaja.com/glib/detmssol.psl)
/alvinpile (http://www.tinaja.com/glib/enhebay2.pdf) % duplicate name 
/dilbert (http://www.dilbert.com)
/putty (http://www.putty.nl)
/legible1.pdf (http://www.tinaja.com/glib/legible1.pdf)
/muse144.pdf (http://www.tinaja.com/glib/muse144.pdf)
/webcolr.pdf (http://www.tinaja.com/psutils/webcolor.pdf)
/ifilter (http://www.adobe.com/support/downloads/detail.jsp?ftpID=2611)
/drmsbiz1 
(http://reform.house.gov/UploadedFiles/MG%20Williams%20July%2025%20Testimony.pdf)
/drmsbiz2 (http://www.gao.gov/new.items/d05277.pdf)
/drmsclosed (http://www.drms.dla.mil/A76/transitionsitelistrevised.pdf)
/drmsmap (http://www.drms.dla.mil/meo/routemap.htm)
/drms (http://www.drms.dla.mil/)
/enhebay4.pdf (http://www.tinaja.com/glib/enhebay4.pdf)


% entered during gg 70

/insidegame (http://www.amazon.com/exec/obidos/ISBN%3D1585006246/donlancastersgurA/002-8267096-8078436)
/auctionbytes (http://www.auctionbytes.com)
/texasauctionlaw (Texas auction law: http://www.license.state.tx.us/auc/auction.htm)
/shermananti (http://www.gamingip.com/Statutes/ShermanAct/ST-Sherman1-4.html)
/mainantique (http://www.antiquedigest.com/articles/auclaw.htm)
/finex1 (http://www.tinaja.com/images/bargs/pwrssrx3.jpg)
/knockback.psl (http://www.tinaja.com/psutils/knockback.psl)
/krylondull (http://www.krylon.com/main/product_template.cfm?levelid=5&sub_levelid=8&productid=1822&content=product_details)
/adeptaabb (http://www.tinaja.com/images/bargs/araabbb.jpg)
/bonnette (http://www.bonnetteauctions.com/)
/walmartauctionsignup (mailto://Joan.Ramsey@Wal-Mart.com)
/walmartauction 
(http://walmartstores.com/GlobalWMStoresWeb/navigate.do?catg=504&contId=49)
/ucc (http://www.law.cornell.edu/ucc/)
/whtnu06 (http://www.tinaja.com/whtnu06.asp)

% entered during gg69

/wikicat (http://en.wikipedia.org/wiki/Catenary)
/bezcat.psl (http://www.tinaja.com/glib/bezcat.psl)
/nubz4pts1.pdf (http://www.tinaja.com/glib/nubz4pts1.pdf)
% entered during gg68

/nobodydog (http://www.unc.edu/depts/jomc/academics/dri/idog.html)
/kaizen (http://en.wikipedia.org/wiki/Kaizen)
/circuitcellar (http://www.circuitcellar.com/guru/)
/makemag (http://www.makezine.com/)
/adamsadventures (http://www.msadams.com/downloads.htm)
/linux (http://www.linux.org/)
/opensource (http://www.opensource.org/)
/craigslist (http://phoenix.craigslist.org/) 
/autotrader (http://www.autotrader.com/)
/lulu (http://www.lulu.com/)
/bookmarket (http://www.bookmarket.com/ondemand.html)
/burgerking (http://www.bk.com)
/newtek (http://www.newtek.com)
/memsnet (http://www.memsnet.org/)
/muse131.pdf (http://www.tinaja.com/glib/muse131.pdf)
/muse120.pdf (http://www.tinaja.com/glib/muse120.pdf)
/supercap (http://www.sciencemag.org/cgi/content/abstract/313/5794/1760?maxtoshow=&HITS=10&hits=10&RESULTFORMAT=&fulltext=carbon+pore+sizes&searchid=1&FIRSTINDEX=0&resourcetype=HWCIT)
/quantumdots (http://www.google.com/search?q=%22quantum+dots%22+solar&sourceid=mozilla-search&start=0&start=0&ie=utf-8&oe=utf-8&client=firefox-a&rls=org.mozilla:en-US:official)
/datasheetarchive (http://www.datasheetarchive.com/chipPhotos/photosA.html)
/googleearth (http://www.earth.google.com) 
/toystory  (http://us.imdb.com/title/tt0114709/)
/robotmovie (http://us.imdb.com/title/tt0358082/)
/cars (http://us.imdb.com/title/tt0317219/)
/netflix (http://www.netflix.com/)
/blockbuster (http://www.blockbuster.com/online/)

% entered during gg67

/puzz01.psl (http://www.tinaja.com/psutils/puzz01.psl)
/alphamet1 ( http://www.tkcs-collins.com/truman/alphamet/alphamet.shtml)
/alphamet2 (http://www.tkcs-collins.com/truman/alphamet/alpha_gen.shtml)
/alphamet3 (http://users.aol.com/s6sj7gt/mikealp.htm)
/msinexec.pdf (http://www.tinaja.com/glib/msinexec.pdf)
/paradigm.pdf (http://www.tinaja.com/glib/paradigm.pdf)

% entered during gg66

/thunderbird (http://www.thunderbird.com)
/spysweeper (http://www.webroot.com/consumer/products/spysweeper/?rc=1651)
/norton (http://www.symantec.com/index.htm)
/pestpatrol (http://www.pestpatrol.com/)
/firefox (http://www.firefox.com)
/sciencemag (http://www.sciencemag.org/)
/worldfact (http://www.cia.gov/cia/publications/factbook/)
/internetdog (http://www.unc.edu/depts/jomc/academics/dri/idog.html)
/zipcode (http://www.usps.com/ncsc/lookups/lookup_zip+4.html)
/weather (http://www.weather.com/)
/thomasreg (http://www.thomasregister.com/)
/topozone (http://www.topozone.com/)
/yahoostock (http://finance.yahoo.com/)
/reversephone (http://www.reversephonedirectory.com/)
/uspto (http://www.uspto.gov/patft/index.html)
/msnbc (http://www.msnbc.com/)
/imdb (http://us.imdb.com/)
/loanamort (http://www.hsh.com/calc-amort.html)
/kellybook (http://www.kbb.com/)
/googlemaps (http://maps.google.com/)
/newyorker (http://www.newyorker.com/)
/currexch (http://www.xe.net/ucc/)
/chemele (http://www.chemicalelements.com)
/cnn (http://www.cnn.com)
/areacodes (http://decoder.americom.com/cgi-bin/decoder.cgi)
/tinajaoffsite (http://www.tinaja.com#offsite)
/tinajaengines (http://www.tinja.com#engines)
/walmart (http://www.walmart.com)
/rssbook (http://www.amazon.com/exec/obidos/ISBN%3D0764588486/donlancastersgurA/002-5434897-4181636)
/webwb01 (http://www.tinaja.com/webwb01.asp)
/weblib01 (http://www.tinaja.com/weblib01.asp)
/validator (http://rss.scripting.com/)
/webbooks (http://www.tinaja.com/books/bkwbmast.asp)
/dreamweaver (http://www.adobe.com/products/dreamweaver/)
/golive (http://www.adobe.com/products/golive/)
/frontpage (http://office.microsoft.com/en-us/FX010858021033.aspx)
/htmlbooks (http://www.tinaja.com/books/bkhtml.asp)
/htmldummybook (http://www.amazon.com/exec/obidos/ISBN=0764507230/donlancastersgurA/)
/naa (http://www.auctioneers.org)
/histolog.pdf (http://www.tinaja.com/glib/histolog.pdf)
/analogeb.pdf (http://www.tinaja.com/glib/analogeb.pdf)
/enhebay3.pdf (http://www.tinaja.com/glib/enhebay3.pdf)

/ipswitch (http://www.ipswitch.com/Products/WS_FTP)
/networksolutions (http://www.networksolutions.com)
/whois (http://www.networksolutions.com/cgi-bin/whois/whois)



% entered furing gg65 msexec summary


/picpro (http://www.tinaja.com/glib/mspicpro.pdf)
/fourier (http://www.tinaja.com/glib/muse90.pdf)



% entered during GG64 log log graphs

/pdfrm1 (http://partners.adobe.com/public/developer/en/acrobat/sdk/pdf/pdf_creation_apis_and_specs/pdfmarkReference.pdf)

/loglog01.psl (http://www.tinaja.com/psutils/loglog01.psl)
/loglog01.pdf (http://www.tinaja.com/glair/loglog01.pdf)

/bookcvr1.psl (http://www.tinaja.com/psutils/bookcvr1.psl)
/bookcvr1.pdf (http://www.tinaja.com/glair/bookcvr1.pdf)

% entered during gg 63 two phase magic sinewaves

/numschip.pdf (http://www.tinaja.com/glib/numschip.pdf)
/mspicpro.pdf (http://www.tinaja.com/glib/mspicpro.pdf)

% entered during gg 62  enhance III

/analogeb.pdf (http://www.tinaja.com/glib/analogeb.pdf)
/rss (http://www.tinaja.com/whtnu.xml)
/oreproptable (http://www.tinaja.com/whtnu05.asp#rogue3)
/javascriptslideshow (http://www.codelifter.com/main/javascript/slideshow4.html)
/logrptx2.psl (http://www.tinaja.com/psutils/logrptx2.psl)


% entered during GG61

/jpg2pdf.pdf (http://www.tinaja.com/glib/jpg2pdf.pdf) 
/barcodeonline (http://www.raise-the-bar.co.uk/cgi-bin/webbarcodegen.pl)
/barcodegen (http://www.terryburton.co.uk/barcodewriter/)
/barcodetutorial (http://www.barcode-us.com/info_center/bookinfo.htm)
/isbn (http://www.isbn.org/standards/home/index.asp)
/bookcovr.psl (http://www.tinaja.com/glib/bookcovr.psl)
/bookcovr.pdf (http://www.tinaja.com/glib/bookcovr.pdf)
/begstuff (http://www.tinaja.com/post01.asp#begstuff)
/ghostscript (http://www.cs.wisc.edu/~ghost/)
/bod01 (http://www.tinaja.com/bod01.asp)

% entered during GG 60
/bezlenjf.pdf (http://www.tinaja.com/glib/bezlenjf.pdf)
/bzlnsub1.psl (http://www.tinaja.com/psutils/bzlnsub1.psl)
/cubemath.pdf (http://www.tinaja.com/glib/cubemath.pdf)

% entered during GG 59
/imbz4p01.psl (http://www.tinaja.com/psutils/imbz4p01.psl)
/cubemath.pdf (http://www.tinaja.com/glib/cubemath.pdf) 


/bernstein (http://graphics.idav.ucdavis.edu/education/CAGDNotes/Bernstein-Polynomials.pdf)
/ellipse4.psl (http://www.tinaja.com/glib/ellipse4.psl)
/wnhsl (http://www.tinaja.com/whatnu05.asp#hsl) 
/stalac.pdf (http://www.tinaja.com/glib/stalac.pdf)
/santa01 (http://www.tinaja.com/santa01.asp)

/imxytab.psl (http://www.tinaja.com/psutils/imxytab.psl)
/nonlingr.pdf (http://www.tinaja.com/glib/nonlingr.pdf)
/unibmm01.psl (http://www.tinaja.com/psutils/unibm01.psl)
/webimage.pdf (http://www.tinaja.com/glib/webimage.pdf)
/keycor01.pdf (http://www.tinaja.com/glib/keycor01.pdf)
/nubkg01.psl (http://www.tinaja.com/psutils/nubkg01.psl)
/basis.pdf (http://www.tinaja.com/glib/basis.pdf)
/fixtlt01.psl (http://www.tinaja.com/psutils/fixtlt01.psl)
/swingtlt.pdf (http://www.tinaja.com/glib/swingtlt.pdf)
/swingt01.psl (http://www.tinaja.com/psutils/swingt01.psl)
/perspec1.pdf (http://www.tinaja.com/glib/perspec1.pdf) 
/starwars.psl (http://www.tinaja.com/psutils/starwars.psl)

/video901.jpg (http://www.tinaja.com/images/bargs/finalc9.jpg)
/video901.bmp (http://www.tinaja.com/images/bargs/finalc9.bmp)
/autobmf1.psl (http://www.tinaja.com/psutils/autobmf1.psl) 
/bmfauto1.pdf (http://www.tinaja.com/glib/bmfauto1.pdf)
/autobm1.psl (http://www.tinaja.com/psutils/autobmf1.psl) 
/bmdemo1.bmp (http://www.tinaja.com/psutils/bmdemo1.bmp)

/adobeifilter (http://www.adobe.com/support/downloads/product.jsp?product=1&platform=Windows)
/myriadfont (http://store.adobe.com/type/browser/P/P_1706.html)
/stonefont (http://store.adobe.com/type/browser/F/STAQ/F_STAQ-11705000.html)
/cleartype (http://grc.com/cleartype.htm)


/adobeacrobat (http://www.adobe.com/products/acrobat/main.html)


/acroread (http://www.adobe.com/products/acrobat/readstep2.html)
/dutchdare (http://www.darenet.nl/page/language.view/home)

/sedn (news:///sci.electronics.design) 
/sern (news:///sci.electronics.repair) 

/mcmaster (http://www.mcmaster.com/ )
/smallparts (http://www.smallparts.com/  )
/grainger (http://www.grainger.com/Grainger/  )
/mouser (http://www.mouser.com/ )
/digikey (http://www.digikey.com/ )
/allied (http://www.alliedelec.com/ )
/newark (http://www.newark.com/)
/thomasreg (http://www.thomasregister.com/)

/whtnu05 (http://www.tinaja.com/whtnu05.asp)
/refurblg.pdf (http://www.tinaja.com/glib/refurblg.pdf)
/refurb.pdf (http://www.tinaja.com/glib/refurb.pdf)
/advetorl.pdf (http://www.tinaja.com/glib/advetorl.pdf)
/sotofamilia (http://cgi6.ebay.com/ws/eBayISAPI.dll?MfcISAPICommand=ViewListedItems&userid=sotofamilia&include=0&since=7&sort=3&rows=100)
/marcia.pdf (http://www.tinaja.com/glib/marcia.pdf)
/auctscne.pdf (http://www.tinaja.com/glib/auctscne.pdf)
/ebaysell.pdf (http://www.tinaja.com/glib/ebaysell.pdf)
/ebayspoof (mailto:spoof@ebay.com)
/auct01links (http://www.tinaja.com/auct01.asp#links)
/enhebay2.pdf (http://www.tinaja.com/glib/enhebay2.pdf)
/enhebay1.pdf (http://www.tinaja.com/glib/enhebay1.pdf)

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

/adobejava (http://partners.adobe.com/public/developer/pdf/topic_js.html)
/p3anim01.pdf (http://www.tinaja.com/glib/p3anim01.pdf) 

/xpdf (http://www.foolabs.com/xpdf/)
/heapsort.pdf (http://www.tinaja.com/glib/heapsort.pdf)

/strconv.pdf (http://www.tinaja.com/glib/strconv.pdf)
/pdfrefman (http://partners.adobe.com/public/developer/pdf/index_reference.html)
/uncompresspdf.api (http://www.tinaja.com/plugins/uncompressPDF.api)

/adobeebooks (http://www.adobe.com/epaper/ebooks/main.html)
/viewpdf1.psl (http://www.tinaja.com/psutils/viewpdf1.psl)

/adobeacrobatsdk 
(http://partners.adobe.com/public/developer/acrobat/sdk/index_doc.html)

/adobejavascriptguide (http://partners.adobe.com/public/developer/acrobat/sdk/index_doc.html#js)
/wordfreq.pdf (http://www.tinaja.com/glib/wordfreq.pdf)

/azauct01.pdf (http://www.tinaja.com/glib/azauct01.pdf)
/startsdk.pdf (http://www.tinaja.com/glib/startsdk.pdf)
/flatevue.pdf (http://www.tinaja.com/glib/flatvue.pdf)
/wordfrq1.psl (http://www.tinaja.com/psutils/wordfrq1.psl)
/otherwf (http://www.mytranslate.com/wordfrequency.htm)
/homonyms (http://www.cooper.com/alan/homonym_list.html)

/wrightauct (http://www.wrightbrosauctioneers.com/)
/a1auct (http://www.a1auctionz.com/)
/auctbroke (http://www.auctionbrokers.us/)
/ronbrunk (http://www.brunksauction.com/)
/americawest (http://www.yellowpages-ads.com/01231827)
/azauctioneers (http://www.arizonaauctioneers.com/)
/dickerson (http://www.cfdauction.com/)
/wsmauct (http://www.westernsalesmanagement.com/)
/asustore (http://property.asu.edu/)
/uaauct (http://pacs.web.arizona.edu/pacs_home.html)
/schoolauct (http://web.archive.org/web/20040229230404/http://www.dist.maricopa.edu/surplus/other.html)
/haynieauct (http://www.chuckhaynieauctions.com/pages/1/index.htm)
/crawfordauct (http://www.tumbleweedauction.com/)
/mangold (http://www.azauctioneers.org/members/8402_OCMangold.asp)
/tingle (http://brucetingleauctioneering.com/)
/countass (http://www.soldyourway.com/)
/southwestliq (http://www.swliquidators.com/)
/maricopacoll (http://www.dist.maricopa.edu/surplus/)
/sierraauct (http://www.sierraauction.com/)
/cunninghamauct (http://www.auctionaz.com/)
/auctappr (http://www.auctionandappraise.com/)
/azauctionassn (http://www.azauctioneers.org/home.asp)
/natauctionassn (http://www.auctioneers.org/)

/azclassifieds (http://www.arizclassified.com/classifieds/index.inn)
/azrepublic  (http://www.azcentral.com/class/merch/) 
/tudailystar (http://classified.tucson.com/index.php?site_name=citizen) 
/enhebay1.pdf (http://www.tinaja.com/glib/enhebay1.pdf)

/busonly.psl (http://www.tinaja.com/psutils/busonly.psl)
/rebound1.psl (http://www.tinaja.com/glib/rebound1.psl)
/rebound1.pdf (http://www.tinaja.com/glib/rebound1.pdf)
/funfield.pdf (http://www.tinaja.com/glib/funfield.pdf)
/psar2img.pdf (http://www.tinaja.com/glib/psar2img.pdf)

/dovebid (http://www.dovebid.com)
/michaelfox (http://www.michaelfox.com)
/mjauctions (http://www.mjauctions.com)


/ucc (http://www.law.cornell.edu/ucc/)
/arizlaw (http://www.azleg.state.az.us/ArizonaRevisedStatutes.asp)

/vickrey (http://www.vanderbilt.edu/econ/reiley/papers/VickreyHistory.pdf) 
/whtnu04 (http://www.tinaja.com/whtnu04.asp)
/logrpt01.psl (http://www.tinaja.com/psutils/logrpt01.psl)
/nutilt01.psl (http://www.tinaja.com/psutils/nutilt01.psl)
/nubkg01.psl (http://www.tinaja.com/psutils/nubkg01.psl)
/dodbur01.psl (http://www.tinaja.com/psutils/dodbur01.psl)

/ebayphen.pdf (http://www.tinaja.com/glib/ebayphen.pdf)
/gallery.pdf (http://www.tinaja.com/glib/gallery.pdf)
/histolog (http://www.tinaja.com/glib/histolog.pdf)
/bmfonts (http://www.tinaja.com/glib/bmfonts.pdf)
/dodbur (http://www.tinaja.com/glib/dodgebur.pdf)
/ebayphoto (http://www.tinaja.com/glib/ebayfoto.pdf)
/auctscne (http://www.tinaja.com/glib/auctscne.pdf)
/stepprep (http://www.tinaja.com/glib/stepprep.pdf)

/phonenums (http://www.switchboard.com/bin/cgiqa.dll?MG=)
/reversephone (http://www.reversephonedirectory.com/)
/scholar (http://www.scholar.google.com/)
/shieldsup (https://grc.com/x/ne.dll?bh0bkyd2)
/sotofamilia (http://cgi6.ebay.com/ws/eBayISAPI.dll?MfcISAPICommand=ViewListedItems&userid=sotofamilia&include=0&since=7&sort=3&rows=100)
/topozone (http://www.topozone.com/)
/thomasreg (http://www.thomasregister.com/)
/uhaul (http://www.uhaul.com/)
/ups (http://www.ups.com/)
/usps (http://www.usps.com/)
/vrane (http://www.vrane.com)
/wayback (http://web.archive.org/)
/whois (http://www.networksolutions.com/cgi-bin/whois/whois)
/grainger (http://www.grainger.com/)
/zipcodes (http://www.usps.com/ncsc/lookups/lookup_zip+4.html)

/mcmaster (http://www.mcmaster.com/)
/mscsupply (http://www.mscdirect.com/)
/natauctioneers (http://www.auctioneers.org/)
/newspapers (http://www.usnpl.com/)
/norfolk (http://www.norfolkandwaay.com)
/quickphrase (http://www.typingmaster.com/index.asp?go=quickphrase)
/myebays (http://www.tinaja.com/glib/myebays.pdf)
/moreebay (http://www.tinaja.com/glib/moreebay.pdf)
/mapsonus (http://www6.mapsonus.com/)
/aafont01 (http://www.tinaja.com/aafont01.asp)
/froogle (http://www.froogle.com)
/govliquidation (http://www.govliquidation.com)
/intershipper (http://www.intershipper.com)
/kelly (http://www.kbb.com)

/paypal (https://www.paypal.com/refer/pal=don%40tinaja.com)
/ebaysell (http://www.tinaja.com/glib/ebaysell.pdf)
/ebaybuy (http://www.tinaja.com/glib/ebaybuy.pdf)
/deja  (http://groups.google.com/googlegroups/deja_announcement.html)
/drhtml (http://www2.imagiware.com/RxHTML/)
/fedex (http://www.fedex.com/us/)

/currency (http://www.xe.net/ucc/)
/terraserver (http://terraserver-usa.com/)
/areacode (http://decoder.americom.com/cgi-bin/decoder.cgi)
/asiansources (http://www.asia.globalsources.com/HOMEPAGES/ASOL/HOME)
/ebaystore (http://stores.ebay.com/synergeticsabeja)
/amazon (http://www.amazon.com/exec/obidos/redirect-home/donlancastersgur/)
/aucres01 (http://www.tinaja.com/aucres01.asp)
/auctlinks (http://www.tinaja.com/auct01.asp#links)
/wayback (http://www.archive.org/web/web.php)
/agilent (http://www.agilent.com)

/fields01.psl (http://www.tinaja.com/glib/fields01.psl)
/fields01.pdf (http://www.tinaja.com/glib/fields01.pdf)

/maxwells (http://hyperphysics.phy-astr.gsu.edu/hbase/electric/maxeq.html#c3)
/muse121 (http://www.tinaja.com/glib/muse121.pdf)
/maxwellbook (http://www.amazon.com/exec/obidos/ISBN=0486606368/donlancastersgurA)


/transtronics (http://www.transtronics.com)
/sigview.pdf (http://www.tinaja.com/glib/sigview.pdf)
/mscal28nd.asp (http://www.tinaja.com/mscal28nd.asp)
/microchip (http://www.microchip.com)
/numschip.pdf (http://www.tinaja.com/glib/numschip.pdf)
/numschip.psl (http://www.tinaja.com/glib/numschip.psl)
/msd28a.asm (http://www.tinaja.com/glib/msd28a.asm)

/lineartechnology (http://www.lineartechnology.com) 

/bmtypewr (http://www.tinaja/com/psutils/bmtypewr.psl)
/distlang.pdf (http://www.tinaja.com/glib/distlang.pdf)
/muse141 (http://www.tinaja.com/glib/muse141.pdf)
/screenthief (http://www.keyscreen.com/KeyScreen(s)5/scrnthf.htm)

/giffont (http://www.tinaja.com/bmfonts/giffont1.bmp)

/f507bg.txt (http://www.tinaja.com/bmfonts/f507bg.txt)
/f507bg.psl (http://www.tinaja.com/bmfonts/f507bg.psl)
/f507bg.pdf (http://www.tinaja.com/bmfonts/f507bg.pdf)
/f607bg.txt (http://www.tinaja.com/bmfonts/f607bg.txt)
/f707bg.txt (http://www.tinaja.com/bmfonts/f707bg.txt)

/imgwrds1.psl (http://www.tinaja.com/psutils/imgwrds1.psl)
/bmfont01 (http://www.tinaja.com/bmfont01.asp)
/expbmp.psl (http://www.tinaja.com/glib/expbmp.psl)
/kikisu (http://www.tinaja.com/images/bargs/ki710101.jpg)
/hp3336a (http://www.tinaja.com/images/bargs/hp333601.jpg)

/bmtransfer (http://www.tinaja.com/bmfonts/lettex01.bmp)

/histolog.pdf (http://www.tinaja.com/glib/histolog.pdf)
/histolog.psl (http://www.tinaja.com/glib/histolog.psl)

/site01 (http://www.tinaja.com/site01.asp)
/dayproc1.psl (http://www.tinaja.com/psutils/dayproc1.psl)
/trail30.psl   (http://www.tinaja.com/psutils/trail30.psl)
/logrptm1.psl (http://www.tinaja.com/psutils/logrptm1.psl)
/logrpt01.psl (http://www.tinaja.com/psutils/logrpt01.psl)

/powerfit (http://www.tinaja.com/glib/powerfit.pdf)
/pssort (http://www.tinaja.com/glib/pssort.pdf)
/heapsort (http://www.tinaja.com/glib/heapsort.pdf)
/bashpseu (http://www.tinaja.com/glib/bashpseu.pdf)
/pseudo01 (http://www.tinaja.com/pseudo01.asp)
/muse112 (http://www.tinaja.com/glib/muse112.pdf)
/muse113 (http://www.tinaja.com/glib/muse113.pdf)
/muse89 (http://www.tinaja.com/glib/muse89.pdf)
/muse151 (http://www.tinaja.com/glib/muse151.pdf)
/muse153 (http://www.tinaja.com/glib/muse153.pdf)
/pssecrets (http://www.tinaja.com/glib/pssecrets.pdf)
/bouncy (http://www.tinaja.com/glib/bouncy.pdf)
/vectstep (http://www.tinaja.com/glib/vectstep.pdf)
/muse102 (http://www.tinaja.com/glib/muse102.pdf)
/onesword (http://www.tinaja.com/text/onesword.html)
/emergop2 (http://www.tinaja.com/glib/emergop2.pdf)
/wave01 (http://www.tinaja.com/wave01.asp)
/chaincode (http://www.tinaja.com/text/chain01.html)
/muse152 (http://www.tinaja.com/glib/muse152.pdf)
/atg1 (http://www.tinaja.com/glib/atg1.pdf)
/hack62 (http://www.tinaja.com/glib/hack62.pdf)
/psinscrt (http://www.tinaja.com/glib/psinscrt.pdf)
/fern2img (http://www.tinaja.com/psutils/fern2img.psl)
/thefern (http://www.tinaja.com/psutils/fern2img.pdf)

/cmoscb (http://www.amazon.com/exec/obidos/ISBN%3D0750699434/donlancastersgurA/002-0496817-3688016)

/activecb (http://www.amazon.com/exec/obidos/ISBN%3D075062986X/donlancastersgurA/002-0496817-3688016)
/hack64 (http://www.tinaja.com/glib/hack64.pdf)
/nss (http://www.caves.org)
/sinquest (http://www.tinaja.com/glib/sinquest.pdf)
/askguru  (http://www.tinaja.com/glair01.asp)

/assycb (http://www.amazon.com/exec/obidos/ISBN%3D0672223317/donlancastersgurA/002-3338585-9572047)
/muse105 (http://www.tinaja.com/glib/muse105.pdf)
/muse107 (http://www.tinaja.com/glib/muse107.pdf)
/resbn90 (http://www.tinaja.com/glib/resbn90.pdf)
/hackar3 (http://www.tinaja.com/glib/hackar3.pdf) 
/testdemo (http://www.tinaja.com/glib/FULL60-1.ASC)

/mschips (http://www.tinaja.com/glib/mschips.pdf)
/sigview (http://www.sigview.com)
/ggsigview (http://www.tinaja.com/glib/sigview.pdf)
/mock (http://www.technicalworks.com)
/xtronics (http://www.xtronics.com/)
/oshen (http://www.oshonsoft.com/pic.html)

/heapps01 (http://www.tinaja.com/psutils/heapps01.psl)
/distlangpdf (http://www.tinaja.com/glib/distlang.pdf)
/strconv (http://www.tinaja.com/glib/strconv.pdf)
/fancysort (http://linux.wku.edu/~lamonml/algor/sort)
/presort (http://www.tinaja.com/psutils/presort1.psl)
/psnt (http://www.tinaja.com/glib/psnt.pdf) 
/insort (http://www.tinaja.com/psutils/insort.ps)
/bublsort (http://www.tinaja.com/psutils/bublsort.ps)
/oldstrconv (http://www.tinaja.com/psutils/strconv.html) 

/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)
/vismagsn.pdf (http://www.tinaja.com/glib/vismagsn.pdf)
/msquant (http://www.tinaja.com/glib/msquant.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/psutils/deltapat.pdf)
/deltapat.pdf (http://www.tinaja.com/psutils/deltapat.pdf)
/deltapat.psl (http://www.tinaja.com/psutils/deltapat.psl)

/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/blat01.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)
/oldfuzzybez (http://www.tinaja.com/text/fuzzybez.html)

/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)
/expbmp.pdf (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)



% dead /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)

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

{

/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

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% page manager


/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 [7 20] store








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

 % //// REVISED DIPDRAW PROC /////
electronics begin       
% dipdraw - draws a dip integrated circuit.  (old code to be improved)

% Enter with currentpoint set to pin 1 and scale
% set so that 1.0 = distance between pins.  Then
% do a numpins-(name)-(hipins)-(lopins) dipdraw
% Pin callouts preceeded by / will be complemented.
    
% main dipdraw entry:
/dipdraw { save /dipsnap exch def /hipins exch def /lopins
exch def /chipname exch def /numpins exch def

mark 0 0 0 0 0 0 0 0 0 0 0 0 % temp patch

/howlong
{numpins 2 div cvi 1 add} def /howhigh {4 numpins 36 ge
{1 add} if} def /stub {howhigh 1.4 sub 2 div} def

% internal service subs start here:

/pinproc {numpins 2 div cvi{newpath 0 cpos 0.37 0 360 arc
gsave 1 setgray fill grestore 0.067 setlinewidth stroke 
pin# 5 string cvs dup stringwidth pop 2 div neg cpos
0.2 sub moveto show 1 0 translate /pin# pin# dir add
def} repeat } def

/stretchprint { dup stringwidth pop 2 div neg exch length
1 sub stretch mul 2 div sub  0 moveto callout (/)
anchorsearch true eq {currentpoint exch stretch add exch
moveto pop dup /callout exch def stringwidth
pop callout length 1 sub stretch mul add /barwide exch def
0.033 setlinewidth gsave currentpoint 0.55 add moveto
barwide 0 rlineto stroke grestore} if stretch 0 callout
ashow pop} def

/pincallouts{0 vpos translate {workstring ( ) search true
eq {/callout exch def pop /workstring exch def callout
stretchprint 1 0 translate}{dup /callout exch def
stretchprint exit } ifelse}loop} def

% actual dipdraw process starts here:

% ........ the outline:

gsave 1 setlinecap 1 setlinejoin
currentpoint translate


newpath -1 howhigh 2 div 0.7 -90 90  arc 0 stub
rlineto howlong 0 rlineto 0 howhigh neg rlineto howlong
neg 0 rlineto closepath 

gsave grayshade setgray fill grestore
  grayshade dup 1 ne {0.33}{0} ifelse setgray 
0.36 setlinewidth stroke   


 newpath -.55 .45 0.15 0 360
arc fill 
black
% ........ pin circles and numbers:

/Helvetica-Bold findfont [0.4 0 0 0.55 0 0] makefont
setfont gsave /pin# 1 def  /dir 1 def /cpos 0 def pinproc
grestore gsave /pin# numpins def  /dir -1 def /cpos howhigh
def pinproc grestore


%  pin callouts:

/Helvetica findfont [0.35 0 0 0.6 0 0] makefont setfont
/stretch 0.033 def gsave /workstring hipins def /vpos
0.6 def  pincallouts grestore gsave /workstring
lopins def /vpos howhigh 1.05 sub def pincallouts
grestore

%  device number:
grayshade 1 ne {0.33}{0} ifelse setgray
/Helvetica-Bold findfont [1.4 0 0 1 0 0] makefont setfont
/stretch 0.05 def gsave numpins 2 div 1 sub 2 div howhigh
2 div 0.33 sub translate chipname dup /callout exch def
stretchprint grestore
black
%  end cleanup:

grestore grestore
cleartomark dipsnap restore} def
end  % get out of electronics? 



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% Burplebox routines


/burpwide 29.5 store

/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


{
/burplebox1 {1.5 burpcom} store
/burplebox1.5 {2 burpcom} store
/burplebox2 {2.5 burpcom} store
/burplebox2.5 {3 burpcom} store
/burplebox3 {3.5 burpcom} store
/burplebox3.5 {4 burpcom} store
/burplebox4 {4.5 burpcom} store
/burplebox4.5 {5 burpcom} store
/burplebox5 {5.5 burpcom} store
/burplebox5.5 {6 burpcom} store
/burplebox6 {6.5 burpcom} store
/burplebox6.5 {7 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
/burplebox10.5 {11 burpcom} store
/burplebox11 {11.5 burpcom} store
/burplebox11.5 {12 burpcom} store
/burplebox12 {12.5 burpcom} store
/burplebox11w {11.5 burpcomw} 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
/burplebox16 {16.5 burpcom} store
/burplebox16.5 {17 burpcom} store
/burplebox17 {17.5 burpcom} store
/burplebox17.5 {18 burpcom} store
/burplebox18 {18.5 burpcom} store
/burplebox18.5 {19 burpcom} store
/burplebox19 {19.5 burpcom} store
/burplebox19.5 {20 burpcom} store
/burplebox20 {20.5 burpcom} store
/burplebox21.5 {22 burpcom} store
/burplebox22{22.5 burpcom} store
/burplebox22.5 {23 burpcom} store
/burplebox23 {23.5 burpcom} store
/burplebox23.5 {24 burpcom} store
/burplebox24{24.5 burpcom} store
/burplebox25{25.5 burpcom} store
/burplebox25.5{26 burpcom} store
/burplebox27{27.5 burpcom} store
/burplebox28 {28.5 burpcom} store
/burplebox28.5 {29 burpcom} store
/burplebox30 {30.5 burpcom} store
/burplebox31 {31.5 burpcom} store
/burplebox31.5 {32 burpcom} store
/burplebox33.5 {34 burpcom} store
/burplebox34 {34.5 burpcom} store
/burplebox38 {38.5 burpcom} store
/burplebox38.5{39 burpcom} store
/burplebox40{40.5 burpcom} store
/burplebox40.5{41 burpcom} store
/burplebox41.5{42 burpcom} store 
/burplebox42 {42.5 burpcom} store 
/burplebox42.5{43 burpcom} store  % nearly a full page
/burplebox43 {43.5 burpcom} store 
} pop


1 1 50 {cvi /size exch store   % make all the burpleboxes
(burplebox)  size 20 string cvs mergestr cvn
mark 
size 0.5 add /burpcom cvx  ] cvx  store

(burplebox) size 0.5 add 20 string cvs mergestr cvn
mark size 1 add /burpcom cvx ] cvx store
} for








/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



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

% New sequence of auto positioning figures...

% combined autopos jpeg conversion and hotlink:

/autoimageandlink1 {save /af1 exch store  xpos ypos yinc add translate
              6.3 -14.1  -1.75 add  684 435 .033      % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/semiscr3.jpg)  % url first

          %     (http://www.tinaja.com/images/bargs/semiscr3.jpg)   % url first



              (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\91_persletbm\\semiscr3.jpg)
              jpegimageprocwithlink
              af1 restore} store

/autoimageandlink2 {save /af2 exch store  xpos ypos yinc add translate
              18 -11.8 684 487  .022    % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/ce47u25v.jpg)   % url first
              (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\70_ebayskill_iv\\ce47u25v.jpg)
              jpegimageprocwithlink
              af2 restore} store




/autoimageandlink3 {save /af1 exch store  xpos ypos yinc add translate
              1 -12 684 487 .022      % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/pwrssrx3x.bmp)  % url first
              (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\70_ebayskill_iv\\origpwri.jpg)
              jpegimageprocwithlink
              af1 restore} store

/autoimageandlink4 {save /af2 exch store  xpos ypos yinc add translate
              18 -12 -1.5 add 684 487  .022    % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/pwrssrx3.bmp)   % url first
              (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\70_ebayskill_iv\\finpwri.jpg)
              jpegimageprocwithlink
              af2 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


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

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

/autofig1 {

    /figadvance 10 store

   save /snap1 exch store 
   xpos 2 add ypos figadvance sub translate
   figure1
   snap1 restore 

   /ypos ypos figadvance sub yinc sub store 
   
   } store



/autofig2 {   

    /figadvance 13 store

   save /snap2 exch store 
   xpos 2 add ypos figadvance sub translate
   figure2
   snap2 restore 

   /ypos ypos figadvance sub yinc sub store 
   
   } store


/autofig3 {      

    /figadvance 13 store

   save /snap22 exch store 
   xpos 2 add ypos figadvance sub translate
   figure3
   snap22 restore 

   /ypos ypos figadvance sub yinc sub store 
   
   } store


/autofig4 {   

    /figadvance 13 store

   save /snap2 exch store 
   xpos 2 add ypos figadvance sub translate
   figure4
   snap2 restore 

   /ypos ypos figadvance sub yinc sub store 
   
   } store






%%%%%%%%%%%%%%% fixed position figures here %%%%%%%%%%%%%%%










%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% begin current gg figures   removed many previous

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






% figure2 for gg91 perspective pastein

/figure2 { save /snap3 exch store


4 -2.2 translate  % move on page
1 1 scale


mark 1 2 3 4 



/art1 {0 0 mt 5 pu 20 pr 5 pd closepath



0 1 1 setrgbcolor 

 fill  
newpath


/sstretch 0.015 store
/cstretch 0.015 store
/font1  /StoneSans-Bold [2.0 0 0 3.5 0 0 ] gonzofont

font1

0 0.5 0.5  setrgbcolor 

10 1.3 (ORIGINAL IMAGE) cc

  } store




/art2 {0 0 mt 5 pu 20 pr 5 pd closepath



0 1 1 setrgbcolor 

% fill


/sstretch 0.015 store
/cstretch 0.015 store
/font1  /StoneSans-Bold [2.1 0 0 3.5 0 0 ] gonzofont

font1

0 0.5 0.5  setrgbcolor 

1.0 1.3 moveto (INSERTED IMAGE) false charpath

{movetoproc}{linetoproc}{curvetoproc}{closepathproc} pathforall

% fill

newpath

  } store


/nltpathstring (/nltpath ) store

/movetoproc {ycen sub /y0 exch store   xcen sub /x0 exch store 

       /fr zzz zzz x0 add div  store

        x0 fr mul   xcen add            xscale mul   %  pop x0
        y0 fr mul   ycen add

2 copy   exch 10 string cvs  ( ) mergestr exch 10 string cvs mergestr ( moveto \n) mergestr nltpathstring exch mergestr 
/nltpathstring exch store
  
        moveto   
            } store

/linetoproc {ycen sub /y0 exch store xcen sub /x0 exch store

       /fr zzz zzz x0 add div  store

        x0 fr mul   xcen add xscale mul   % pop x0
        y0 fr mul   ycen add  


2 copy   exch 10 string cvs  ( ) mergestr exch 10 string cvs mergestr ( lineto \n) mergestr nltpathstring exch mergestr
/nltpathstring exch store
        lineto   
            } store


/curvetoproc {ycen sub /y3 exch store xcen sub /x3 exch store
              ycen sub /y2 exch store xcen sub /x2 exch store
              ycen sub /y1 exch store xcen sub /x1 exch store    

       /fr1 zzz zzz x1 add div store
       /fr2 zzz zzz x2 add div store
       /fr3 zzz zzz x3 add div store

        x1 fr1 mul xcen add xscale mul  % pop x1
        y1 fr1 mul ycen add

2 copy   
exch 10 string cvs  ( ) mergestr exch 10 string cvs mergestr ( ) mergestr
nltpathstring exch mergestr
/nltpathstring exch store   

        x2 fr2 mul xcen add xscale mul   % pop x2
        y2 fr2 mul ycen add

2 copy   
exch 10 string cvs  ( ) mergestr exch 10 string cvs mergestr ( ) mergestr
nltpathstring exch mergestr
/nltpathstring exch store           
        x3 fr3 mul xcen add xscale mul  % pop x3
        y3 fr3 mul ycen add

2 copy   
exch 10 string cvs  ( ) mergestr exch 10 string cvs mergestr ( curveto\n) mergestr
nltpathstring exch mergestr
/nltpathstring exch store


        curveto   
            } store



/closepathproc {closepath} store




% 150 150 10 setgrid
% 20 20 showgrid


-6.7 -1.8 mt 34 pr 17 pu 34 pl closepath

0.9 0.9 0.7 setrgbcolor
fill

art1

%%%%%%%%%%% just did the original %%%%%%%%





/art3 {0 0 mt 5 pu 4 pr 4 pr 4 pr 4 pr 4 pr 5 pd 

4 pl 4 pl 4 pl 4 pl 4 pl 
closepath

 
0 0.5 0.5  setrgbcolor 
{movetoproc}{linetoproc}{curvetoproc}{closepathproc} pathforall

% fill
newpath

  } store







newpath

/zzz 30 store
/xcen 0 store
/ycen 9 store
/width 20 store

/xscale 1 zzz zzz width add div    div store



gsave
0 7 translate
art3 
nltpathstring (/ store) mergestr
dup nltpathstring ==
cvx exec

0 0.5 0.5 setrgbcolor
fill
grestore

newpath


/nltpathstring (/nltpath ) store

gsave
0 7 translate
art2
nltpathstring (/ store) mergestr
dup nltpathstring ==
cvx exec

0 1 1 setrgbcolor 


fill
grestore


black  line1

0.3 0.3 0.3 setrgbcolor


-0.3  0 mt   0.3 l
-0.3  5 mt   0.3 l
-0.3  7 mt   0.3 l
-0.3 12 mt   0.3 l

20.3 0 mt   0.3 r
20.3 5 mt   0.3 r
20.3 7 mt   0.3 r
20.3 13.65 mt   0.3 r
20.3 10.8 mt   0.3 r

/font1 /Helvetica-Bold 0.85 gonzofont

font1

line1 8 6 mt 8 l larrow
12 6 mt 8 r rarrow


0 5.2 mt 1.6 u
20 5.2 mt 5.2 u

0.6 7 mt 20 r 

gsave 0 -0.3 translate
21  0 (0) cc
21  7 (0) cc

10 6 (x width) cc


-1 5 (yleftheight) cr
-1 12 (yleftheight) cr

21 13.65 (yrightheight) cl
21 10.8 (yrightclimb) cl

21 5 ((= yleftheight)) cl

-1 0 (0) cr
-1 7 (0) cr


grestore

cleartomark

snap3 restore } store   % end figure 2





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

/figure3 { save /snap33 exch store   % box for gg90



   -4 -17.3 translate  % position in box
   0.95 dup scale


10 10 translate

0 0 mt 20 pu 20 pr 20 pd closepath
0.5 1 1 setrgbcolor fill

20 20 showgrid


line3 0 0 1 setrgbcolor

{
6 3 mt 
-2 10 rlineto
5 4 3 rlineto
4 -3 rlineto
-2 -8 rlineto
-2 -4 rlineto
closepath stroke} pop


line1
black -1 10 mt 22 r

1 0 0 setrgbcolor
-1 15.5 mt 22 r   % ycorrheight
2 2 mt 16.5 u      % oldxleft
3 2 mt 15.5 u      % newxleft position


16.4 2 mt 15.5 u      % newxright
16.9 2 mt 15.5 u      % oldxright position


newpath

black 

12 -1 mt 22 u




% by the panel

3.8 5.5 mt 2 15.5 lineto
11 14 lineto
11 3.5 lineto
closepath
0.8 0.8 1 setrgbcolor fill


11 3.5 mt 
11 14 lineto
17 16.5 lineto 
16 5.5 lineto
closepath
0.65 0.65 1 setrgbcolor fill


2 15.5 mt   % top panel
8 17 lineto
17 16.5 lineto
11 14 lineto 
closepath
0.53 0.53 1 setrgbcolor fill



black

/cstretch 0 store
/sstretch 0 store
/font1 /StoneSans 0.9 gonzofont
font1

/yinc 1 store

-2.5 9.7 (ycen) cc

-3.7 15.2 (ycorrheight) cc

-3.2 2.75 (leftxshift) cc


17.7 0.7 (image) cc

7.3 7.5(subject) cc


21.3 2.75 (rightxshift) cl

7 2.75 (xcorrwidth) cc


12 21.5 (xcen) cc

%% bottom arrows

black
-1 3 mt 3 r rarrow
4.5 3 mt 1.5 l larrow

21 3 mt 4.1 l larrow
14 3 mt 2.4 r rarrow


14 3 mt 4.5 l

2 18.7 (oldxleft) cc



snap33 restore } store   % end figure 3





%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% end current figures









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

% Specific file info here



/font; /Helvetica [0.7 0 0 0.7 0 0.4] gonzofont
font1

/font- /Symbol 0.85 gonzofont


aqua 0.33 setgray
font0

/narrowx {/txtwide txtwide 8.5 sub store} store
/widenx {/txtwide txtwide 8.5 add store} store


/burpon {mark /burple cvx 0.33 /setgray cvx  ] cvx                  % additional internal gonzo
        printlist exch 3 index exch put exch 1 add exch} def

/burpoff {mark /aqua cvx 0  /setgray cvx ] cvx
        printlist exch 3 index exch put exch 1 add exch} def
 
/darkenheader {save /headsnap exch store
xpos 1 sub ypos 0.2 add translate
0.3 1 1 setrgbcolor
0 0 mt 3.2 pd burpwide pr 3.2 pu closepath fill
headsnap restore} store



% sssssssssssssssssssss  % start marker


% Bitmap Perspective Artwork Algorithms and Utilities
% ===================================================
% by  Don Lancaster   GG #91 BMPERLET.PSL


/ggnum 91 store

20 48.3      0.7  add                          %    1 sub  
(|0Some |jBitmap |jPerspective |jLettering)cc

20 46.3     0.7  add           % 1 sub  
 (Algorithms |jand |jUtilities) cc



black
font2
textleft 43  0.3 add % this one only  need |h below 
(|h|/aqua |/staytint1 |3Don Lancaster      
Synergetics, Box 809, Thatcher, AZ 85552
copyright c2008 pub 6/08 as |/surl |6GuruGram|1|/gurgrm01  |/tinton1 |6#91
|/surl http://www.tinaja.com|/tinaja 
|/surl don@tinaja.com|/maildon 
(928) 428-4073
|/aqua |/black  
|a|0T|b|1here are times and places where you might like to add perspective lettering or artwork to an existing .BMP image\274
|/autoimageandlink1 


   










For instance, on an |/su eBay|1|/ebay  product image, you could combine |/to both|/tx  your digital camera |/to and|/tx  a scanner. The camera to give you an attractive 3-D view. And the scanner to give you sharp accurate lettering |/to with an infinite depth of field|/tx . Per the details in our |/su Image Post Processing Tools|1|/postproc.pdf  tutorial of |/su GuruGram #88|1 . 
|h
The general problem is then to |/to distort|/tx  your flat or "detail" image so it can get positioned on the "main" image in a realistic and believable perspective manner. With its lettering or whatever getting smaller in the distance. And rising or falling as needed to fit properly. Perhaps aided by our |/su Bitmap Typewriter|1|/bmfauto1.pdf .
|h
Some nonobvious variations of our earlier |/su Architect's Perspective|1|/archpers.pdf  of |/su GuruGram|/gurgrm01        |/su #90|1|/gurgrm01  can give us perspective pasteins. A new |/su BMPERLT1|1|/bmperlt1.psl  utility can create the distorted images for you. Which can be transferred by the usual cut and paste.
|h
Your perspective pasteins can be "right handed" or "left handed" ones, viewable either from "below" or "above". A different (|jand more complex|j) algorithm is required for "on the top" pasteins and is |/to not|/tx  provided for here.

) cl

startnewpage

(|1|/su BMPERLT1|1|/bmperlt1.psl  is an ordinary textfile that executes by |/su Using Acrobat Distiller as a|/distlang.pdf         |/su PostScript Computer|1|/distlang.pdf .
|h
While the utility is written in |/su PostScript|1|/post01  and optionally uses my |/su Gonzo Utilities|1|/gonzotut.pdf , no knowledge of PostScript programming is required for routine use. 
|h
One Gotcha:
|6|/shiftin |/aqua |/staytint1 |/burplebox7  
|h
          Acrobat Distiller versions newer than 8.1 
          default to preventing diskfile access. 
|h
          The workaround from Windows is to run 
          "Acrodist -F" from the command line
|h 
          Solutions for other systems are found |/su here|1|/distbug |/to .
|h
|1|/shiftout |/aqua |/black 
|h
|c
Some |j Geometry
|d
We will assume your "detail" bitmap is the correct height and correct width needed for pastein\274
|/autofig2 



Note that we do not normally want to just "shift up". For true perspective, lettering or artwork near the left end should end up |/to wider|/tx  than lettering or artwork near the right end. Proportional to the distance from the viewer.
|h
Note further that all of the image is "squashed" somewhat. More so progressively to the right. Since the left margin tends to be "magnified", |/to the active image area        |/to should start very near the left image margin.|/tx 
|h
We will define |/to yleftclimb|/tx  to always be zero. Regardless of whether the actual image is left or right handed, rising or falling.

) cl

startnewpage

(|1The width and height of the original image will already be known. All you need to input are two new variables of |/to yrightheight|/tx  and |/to yrightclimb|/tx . 
|h
As we'll shortly see, these will get related to two internal variables of |/to zzz|/tx  which is       |/to the distance from the right image margin to the vanishing point|/tx . And |/to ycen|/tx , which |/to proportions the top and bottom image climb|/tx  as needed.
|h
It turns out that |/to the locus of all possible vanishing points is a vertical line.|/tx  And all that |/to ycen|/tx  does is slide you up or down that line. For an "above", "below", or "centered" viewing. 
|h
Our |/to forward|/tx  |/su nonlinear transforms|1|/nonlingr.pdf  will be\274
|6|/shiftin |/aqua |/staytint1 |/burplebox3  
|h  
  xnew = xold * [|jzzz|j/|j(|jzzz + xold - xwide|j)|j]  
  ynew = (yold - ycen)|j*|j[|jzzz|j/|j(zzz + xold|j)] + ycen 
|h
|1|/shiftout |/aqua |/black 
|h
This form of |/to xnew|/tx  includes an automatic scaling factor that keeps the original and the inserted images the same width.
|h
Forward transforms are a "goes to" sort of function. Per |/su these details|1|/invegraf.pdf , we will also need the reverse or "comes from" nonlinear transforms\274
|6|/shiftin |/aqua |/staytint1 |/burplebox4  
|h  
  xold = xnew|j*|j[|jzzz|j/|j(|jzzz + xwidth - xnew|j)]
  hhh = [|jzzz|j/|j(zzz + xold|j)]
  yold = [|jynew + ycen*(|jhhh-1|j)]|j/|jhhh
|h 
|1|/shiftout |/aqua |/black 
|h 
Two convenience operators can be derived from |/to yleftheight|/tx , |/to yrightheight|/tx ,           |/to yrightclimb|/tx , and |/to xwidth|/tx . As before, |/to yleftclimb|/tx  will always be defined and held at zero. Our first operator is |/to zzz|/tx , which is the horizontal distance from the right side of the image to the vanishing point\274
|6|/shiftin |/aqua |/staytint1 |/burplebox3  
|h  
    lrratio = (|jyrightheight - yrightclimb|j)|j/|jyleftheight     
    zzz = xwidth|j*|j[lrratio|j/|j(|j1 - lrratio|j)]
|h
|1|/shiftout |/aqua |/black 
|h
This fundamental perspective equation is based on proportional triangles. Curiously, it also happens to be very similar to the voltage out expression of a potentiometer. 
|h
Our second convenience operator is |/to ycen|/tx . This decides how far the right end of the image will be slid up or down. |/to ycen|/tx  can be found by calculating its value at either |/to yrightheight|/tx  or |/to yrightclimb|/tx . The latter is slightly easier\274
) cl

startnewpage

(|6|/shiftin |/aqua |/staytint1 |/burplebox2  
|h  
     ycen = yrightclimb|j*|j[|j1 - zzz|j/(|jzzz+xwidth|j)] 
|h
|1|/shiftout |/aqua |/black
|h
|c
Getting |jFancy
|d
If we were only interested in the most common "climbs and gets smaller to the right" pastein, our output pastin bitmap would start at y=0 and have a height of      |/to yrightheight|/tx . If, instead, we want to handle all four cases of right side versus
left side and climbing versus falling, we have to slightly modify the size and positioning of our output pastein bitmap\274
|6|/shiftin |/aqua |/staytint1 |/burplebox4.5  
|h  
 pastetop = the greater of yleftheight and yrightheight
 pastebot = the lesser of zero and yrightclimb
|h
 pasteheight = pastetop - pastebot 
|h
|1|/shiftout |/aqua |/black 
|h
Since negative values are not allowed in an image's final x-y positioning, should          |/to pastebot|/tx  be negative, a |/to pasteshift|/tx  value of |/to minus pastebot|/tx  will be needed to keep your pixels in bounds. This |/to only|/tx  applies to your final out-the-door bitmap and does not affect any earlier calculations.
|h
There will typically be three areas to your final pastein bitmap: The useful stuff in the middle, typically a climbing or falling parallelogram; an upper out-of-bounds wedge, and a lower out-of-bounds wedge. |/to Most often, you will want your out-       |/to of-bounds wedges to be a pure white.|/tx  Allowing them to become transparent with a Paint or other copy.
|h
Variables of |/to backgroundred|/tx , |/to backgroundgreen|/tx , and |/to backgroundblue|/tx  are optionally provided. Should you want your wedges to be visible for a special effect, rather than transparent for the usual pastein. 
|h
|c
A |jWorking |jUtility
|d
You can explore the above perspective lettering and artwork equations by using our |/su BMPERLT1.PSL|1|/archper1.psl  utility. What follows here can be better understood by having              |/su BMPERLT1.PSL|1|/archper1.psl  up in a separate textfile window.
|h
Much of the program style and coding follows the techniques we looked at earlier in our |/su Architect's Perspective|1|/archpers.pdf  tutorial.
|h
Our new utility needs only an input bitmap and five pieces of information: The names and locations of the original image bitmap and the new inserted image to be created;. Plus |/to yleftheight|/tx , |/to yrightheight|/tx , and |/to yrightclimb|/tx .  
|h
A reminder again that |/to yleftclimb|/tx  is always held at zero. And that an |/to Acrodist-F|/tx  command line is needed to activate disk access on newer Acrobat releases.
) cl

startnewpage

(As usual, our utility is altered in a standard ASCII textfile and then sent to Acrobat Distiller. By |/su Using Distiller as a General Purpose PostScript Computer|1|/distlang.pdf . Distiller will then read the original bitmap, make the necessary distortion calculations, and then write a new pastein bitmap for you. 
|h
Your original bitmap sets the |/to width|/tx  and the |/to left height|/tx  of the inserted image. The other two variables of |/to yrightheight|/tx  and |/to yrightclimb|/tx  decide whether you'll end up left or right-handed or above or below in your final image. 
|h
With the present code, |/to yleftheight|/tx  and |/to xwidth|/tx  pixel counts must be manually redefined and must match the vertical and horizontal size of your original bitmap. I'm not yet convinced these values should be auto captured.
|h
As with earlier examples, our utility is arranged in four parts: The |/su Gonzo|1|/gonzoutils  core utilities and array-of-strings generic code; exportable lesser utilities; the specific perspective lettering routines; and an ending example. Only the example code portion normally needs modified for each new project. 
|h
Our main proc is called |/to makeperspaste|/tx . It first converts the input bitmap into the usual |/su PostScript|1|/post01  array-of-strings for manipulation. The needed output bitmap pastin size is then calculated, followed by a new triad of arrays-of-strings for the output. Called |/to redAOS2|/tx , |/to greenAOS2|/tx , and |/to blueAOS2|/tx .
|h
The actual work is done by a |/to procperspaste|/tx  subproc, followed by moving and rewriting the newly created array-of-strings to an output .BMP bitmap disk file.
|h
|/to procperspaste|/tx  is basically a loop within a loop that exercises each and every pixel. The x pixel position is done as the outer loop since this can have speed advantages. The loops find the needed |/to zzz|/tx , |/to ycen|/tx , |/to hhh|/tx  (|jan intermediate work variable|j), |/to oldx|/tx , and |/to oldy|/tx . These are passed to yet another subproc we call             |/to remappixels|/tx  to do the actual pixel-by-pixel perspective transforms.
|h
|/to remappixels |/tx  first does a limit check to find out whether "live" or "background" pixels are to be mapped. The usual background will be white for copy-and-paste transparency, but other colors can be chosen for debug or special effects. 
|h
The live pixels undergo a |/su bilineal interpolation|1|/pixintpl.pdf  to find the best approximation to their values on the original bitmap. Speed modified interpolators are used for the red, green, and pixel planes. The results are converted to integer 0-255 values and written to the array-of-strings that become your output perspective bitmap.  
|h
|c
Some |jFurther |jComments
|d
Any attempt to resize a bitmap to less than half its height can introduce dropouts or Moire effects. These have |/to not|/tx  been compensated in this code and, in general, can be rather difficult to handle gracefully. |/to BMPERLT1.PSL is best used with your         |/to right side height at least one half of the left side height.|/tx  
|h
There are no dropout issues on magnification.

) cl

startnewpage

(|1Speed has not yet been optimized. Especially the need to test each individual pixel for in or out of bounds. But since most pasteins are rather small, the present code should be acceptable. Taking a few seconds at most on faster machines.
|h
|c
For |jMore |jHelp
|d
A sample input file is available as |/su FLATART1.BMP|1|/flatart1.bmp .
|h
The basic full two dimensional |/su .BMP bitmap to PS Array of Strings|1|/bmp2psa.pdf  tutorial appears as |/su BMP2PSA.PDF|1|/bmp2psa.pdf   with its actual PS utility at |/su PIXINTP1.PSL|1|/pixintp1.psl . Two recent additions were |/su AIRBRUSH.PDF|1|/airbrush.pdf  and |/su ARCHPERS.PDF|1|/archpers.pdf . Additional .BMP manipulation enhancements and expansions are planned.
|h
News about the latest updates and addons should first appear in |/su WHTNU08.ASP|1|/whtnu08  or later blog entries. Other bitmap manipulation and posptroc files are reviewed in |/su POSTPROC.PDF|1|/postproc.pdf .  
|h
Similar tutorials and additional support materials are found on our |/su PostScript|1|/post01  and our |/su GuruGram|1|/gurgrm01  library pages. As always, |/su Custom Consulting|1|/info01  is available on a cash and carry or contract basis. As are seminars and workshops. For details, you can email |/su don@tinaja.com|1|/maildon . Or call |/to (928) 428-4073|/tx .

) cl

startnewpage 


% EOF