%!PS

% Some More Energy Fundamentals
% ================================
% by  Don Lancaster   GG #86 MORENRGF.PSL


/ggnum 86 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

% zzz  keep for search marker

% dictionary method

<<   

% 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/swingt01.pdf)
/swingt01.psl (http://www.tinaja.com/glib/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 684 384 .033      % xpos ypos xres yres pixscale
              (http://www.tinaja.com/images/bargs/cabsvid1.jpg)  % url first

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



              (C:\\Documents and Settings\\don\\Desktop\\gurugrams\\78_ebayskill_VI\\cabsvid1.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

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



% figure1 for gg85

/figure1 { save /snap3 exch store

   2.5 -9 translate  % position in box
   1.2 dup scale

%% vector rotated image size


/plotold {gsave  rot rotate 



   0 height 2 div neg mt 
   width 2 div pr height pu width pl height pd closepath
   1 0.7 0 setrgbcolor fill      

grestore} store

/findsize { /diag width dup mul height dup mul add sqrt store

    /laglead height width atan store

  /newwide 
  rot laglead add cos abs
  rot laglead sub cos abs  
  2 copy le{exch} if pop diag mul store

  /newhigh 
  rot laglead add sin abs
  rot laglead sub sin abs  
  2 copy le{exch} if pop diag mul store


           } store

/plotnew {gsave  black

0 newhigh 2 div neg mt
newwide 2 div pr
newhigh pu
newwide pl
newhigh pd closepath

gsave clip -10 -10 translate 20 20 showgrid grestore

0.5 0.3 0 setrgbcolor
line1 stroke
         grestore} store


/width 10 store
/height 6 store
/rot 36 store


10 10 translate
plotold findsize plotnew plotold 


0.5 0.3 0 setrgbcolor

/diag2  width dup mul height dup mul add sqrt 2 div store

line1
gsave rot rotate  0 0 mt diag2 r rarrow grestore

gsave rot laglead add rotate  0 0 mt diag2 r rarrow grestore
gsave rot laglead sub rotate  0 0 mt diag2 r rarrow grestore

0 0 mt dot

[0.25 0.15] 0.07 setdash
0.5 0.3 0.3  setrgbcolor

0 0 diag2 0 360 arc stroke






















          snap3 restore } store   % end figure 3


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

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


% figure2 for gg83

/figure2 { save /snap3 exch store

   -4 -19.5 translate  % position in box
   0.8 dup scale





/nicerainbowdatapatchedx [

[0.0 0.71 1.0]

[0.002668 0.712655 1.0]
[0.006003 0.715973 1.0]
[0.00867101 0.718628 1.0]
[0.012006 0.721946 1.0]
     [0.015341 0.725265 1.0]
[0.018009 0.727919 1.0]
[0.021344 0.731238 1.0]
[0.024012 0.733893 1.0]
[0.027347 0.737211 1.0]

[0.030015 0.739866 1.0]  % color 10
[0.03335 0.743184 1.0]
[0.036018 0.745839 1.0]
[0.039353 0.749157 1.0]
      [0.042021 0.751812 1.0]
[0.045356 0.75513 1.0]
[0.048024 0.757785 1.0]
[0.050692 0.76044 1.0]
[0.054027 0.763758 1.0]

[0.056695 0.766413 1.0]  % color 20
[0.06003 0.769731 1.0]
[0.062698 0.772386 1.0]
[0.066033 0.775705 1.0]
[0.068701 0.778359 1.0]
[0.072036 0.781678 1.0]
[0.074704 0.784332 1.0]
[0.078039 0.787651 1.0]
[0.080707 0.790305 1.0]
[0.084042 0.793624 1.0]
[0.08671 0.796279 1.0]
[0.090045 0.799597 1.0]
[0.09338 0.802915 1.0]
[0.096048 0.80557 1.0]
[0.099383 0.808889 1.0]
[0.102051 0.811543 1.0]
[0.105386 0.814862 1.0]
[0.107387 0.816853 1.0]
[0.110722 0.820171 1.0]
[0.112056 0.821498 1.0]
[0.115391 0.824817 1.0]
[0.116058 0.825481 1.0]
[0.119393 0.828799 1.0]
[0.119393 0.828799 1.0]
[0.122728 0.832117 1.0]
[0.122061 0.831454 1.0]
[0.125396 0.834772 1.0]
[0.124062 0.833445 1.0]
[0.127397 0.836763 1.0]
[0.125396 0.834772 1.0]
[0.128731 0.83809 1.0]
[0.12673 0.836099 1.0]
[0.130065 0.839418 1.0]
[0.128064 0.837427 1.0]
[0.131399 0.840745 1.0]
[0.129398 0.838754 1.0]
[0.132733 0.842073 1.0]
[0.131113 0.840461 1.0]
[0.134448 0.843779 1.0]
[0.133209 0.842547 1.0]
[0.136544 0.845865 1.0]
[0.135687 0.845012 1.0]
[0.139022 0.84833 1.0]
[0.138545 0.847856 1.0]
[0.14188 0.851174 1.0]
[0.141785 0.85108 1.0]
[0.14512 0.854398 1.0]
[0.145406 0.854682 1.0]
[0.148741 0.858001 1.0]
[0.149408 0.858665 1.0]
[0.152743 0.861983 1.0]
[0.15341 0.862647 1.0]
[0.156745 0.865965 1.0]
[0.157412 0.866629 1.0]
[0.160747 0.869947 1.0]
[0.161414 0.870611 1.0]
[0.164749 0.873929 1.0]
[0.165416 0.874593 1.0]
[0.168751 0.877911 1.0]
[0.169418 0.878575 1.0]
[0.172753 0.881893 1.0]
[0.17342 0.882557 1.0]
[0.176755 0.885875 1.0]
[0.177422 0.886539 1.0]
[0.180757 0.889858 1.0]
[0.181424 0.890521 1.0]
[0.184759 0.89384 1.0]
[0.185426 0.894503 1.0]
[0.188761 0.897822 1.0]
[0.189428 0.898485 1.0]
[0.192763 0.901804 1.0]
[0.193239 0.902278 1.0]
[0.196574 0.905596 1.0]
[0.197241 0.90626 1.0]
[0.200576 0.909578 1.0]
[0.201243 0.910242 1.0]
[0.204578 0.91356 1.0]
[0.206579 0.915551 1.0]
[0.209914 0.91887 1.0]
[0.214678 0.92361 1.0]
[0.218013 0.926929 1.0]
[0.225541 0.995372 1.0]
[0.228876 0.991897 1.0]
[0.238691 0.98167 1.0]
[0.242026 0.978194 1.0]
[0.254317 0.965385 1.0]
[0.257652 1.0 1.0]
[0.271183 1.0 1.0]
[0.274518 1.0 1.0]
[0.289478 0.928746 1.0]
[0.292813 0.925271 1.0]
[0.307868 0.909582 1.0]
[0.311203 0.906107 1.0]
[0.324924 0.891809 1.0]
[0.328259 0.888334 1.0]
[0.340551 0.875525 1.0]
[0.343886 0.872049 1.0]
[0.35452 0.860968 1.0]
[0.357855 0.857493 1.0]
[0.366831 0.84814 1.0]
[0.370166 0.844664 1.0]
[0.378341 0.836145 1.0]
[0.381676 0.83267 1.0]
[0.389051 0.824984 1.0]
[0.392386 0.821509 1.0]
[0.398961 0.814658 1.0]
[0.402296 0.811182 1.0]
[0.40807 0.805165 1.0]
[0.411405 0.80169 1.0]
[0.416474 0.796408 1.0]
[0.419809 0.792932 1.0]
[0.424879 0.78765 1.0]
[0.428214 0.784175 1.0]
[0.433283 0.778892 1.0]
[0.436618 0.775417 1.0   0.01 sub ]
[0.441782 0.770035 1.0   0.02 sub ]
[0.445117 0.76656 1.0      0.03 sub ]
[0.450187 0.761278 1.0     0.04 sub ]
[0.453522 0.757802 1.0     0.05 sub ]
[0.458591 0.75252 1.0      0.06 sub ]
[0.461926 0.749045 1.0     0.07 sub ]
[0.466995 0.743762 1.0     0.08 sub ]
[0.47033 0.740287 1.0     0.09 sub ]
[0.475552 0.734846 1.0    0.10 sub   ]
[0.478887 0.73137 1.0     0.11 sub        ]
[0.484061 0.725979 1.0    0.12 sub       ]
[0.487396 0.722503 1.0    0.125 sub       ]
[0.492589 0.717092 1.0    0.13 sub       ]
[0.495924 0.713617 1.0    0.125 sub       ]
[0.501041 0.708285 1.0    0.12 sub       ]
[0.504376 0.704809 1.0   0.11 sub ]
[0.509511 0.699457 1.0    0.10 sub ]
[0.512846 0.695982 1.0    0.09 sub]
[0.518001 0.69061 1.0     0.08 sub ]
[0.521336 0.687135 1.0    0.07 sub ]
[0.526606 0.681644 1.0    0.06 sub ]
[0.529941 0.678169 1.0    0.05 sub ]
[0.534591 0.673323 1.0    0.04 sub ]
[0.537926 0.669848 1.0   0.02 sub ]
[0.542252 0.66534 1.0       0.01 sub ]
[0.545587 0.661865 1.0    0.00 sub ]
[0.549522 0.657764 1.0     0.00 sub ]
[0.552857 0.654289 1.0]
[0.556401 0.650595 1.0]
[0.559736 0.64712 1.0]
[0.562986 0.643734 1.0]
[0.566321 0.640259 1.0]
[0.56916 0.6373 1.0]
[0.572495 0.633824 1.0]
[0.574839 0.631382 1.0]
[0.578174 0.627906 1.0]
[0.580604 0.625374 1.0]
[0.583939 0.621899 1.0]
[0.586359 0.619377 1.0]
[0.589694 0.615902 1.0]
[0.592153 0.61334 1.0]
[0.595488 0.609865 1.0]
[0.597936 0.607313  1.0]
[0.601271 0.603838 1.0]
[0.603711 0.601296 1.0]
[0.607046 0.59782 1.0]
[0.609495 0.595269 1.0]
[0.61283 0.591793 1.0]
[0.615278 0.589242 1.0]
[0.618613 0.585766 1.0]
[0.621062 0.583214 1.0]
[0.624397 0.579739 1.0]
[0.626846 0.577187 1.0]
[0.630181 0.573712 1.0]
[0.632582 0.57121 1.0]
[0.635917 0.567735 1.0]
[0.638319 0.565232 1.0]
[0.641654 0.561757 1.0]
[0.644055 0.559255 1.0]
[0.64739 0.55578 1.0]
[0.649791 0.553277 1.0]
[0.653126 0.549802 1.0]
[0.655527 0.5473 1.0]
[0.658862 0.543825 1.0]
[0.661263 0.541322 1.0]
[0.664598 0.537847 1.0]
[0.667 0.535345 1.0]

         ] store



/data           [ [0.60 0.60 0.48 0.24 0.60 0.60] 
                  [0.60 0.60 0.48 0.24 0.60 0.60] 
                  [0.00 0.00 0.36 0.12 0.48 0.48] 
                  [0.24 0.24 0.48 0.60 0.12 0.12] 
                  [0.12 0.12 0.24 0.48 0.36 0.36] 
                  [0.12 0.12 0.24 0.48 0.36 0.36] ] store

/xbox 0 def   % temporary before loop 
/ybox 2 def

1 1 3 {/xbox exch store
1 1 3 {/ybox exch store





0 0.1 1 { /xres exch store 


0 0.1 1 {/yres exch store 

xres round yres round 2 mul add cvi

[ 
      {data ybox get          xbox get}          % lower left
      {data ybox get          xbox 1 add get}    % lower right
      {data ybox 1 add get    xbox get}          % upper left
      {data ybox 1 add get    xbox 1 add get}    % upper right

 ] exch get exec

200 mul .667 div floor cvi nicerainbowdatapatchedx exch get
aload pop


 sethsbcolor


xres 10 mul  xbox 10 mul add    yres 10 mul   ybox 10 mul add mt
1 pr 1 pu 1 pl closepath fill


} for
} for



} for
} for

black

40 40 mt dot
40 10 mt dot
40 20 mt dot
40 30 mt dot

10 40 mt dot
10 10 mt dot
10 20 mt dot
10 30 mt dot

20 40 mt dot
20 10 mt dot
20 20 mt dot
20 30 mt dot

30 40 mt dot
30 10 mt dot
30 20 mt dot
30 30 mt dot






          snap3 restore } store   % end figure 2


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

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


% figure3 for gg83

/figure3 { save /snap3 exch store

   -5.5 -19.3 translate  % position in box
   0.8 dup scale



/nicerainbowdatapatchedx [

[0.0 0.71 1.0]

[0.002668 0.712655 1.0]
[0.006003 0.715973 1.0]
[0.00867101 0.718628 1.0]
[0.012006 0.721946 1.0]
     [0.015341 0.725265 1.0]
[0.018009 0.727919 1.0]
[0.021344 0.731238 1.0]
[0.024012 0.733893 1.0]
[0.027347 0.737211 1.0]

[0.030015 0.739866 1.0]  % color 10
[0.03335 0.743184 1.0]
[0.036018 0.745839 1.0]
[0.039353 0.749157 1.0]
      [0.042021 0.751812 1.0]
[0.045356 0.75513 1.0]
[0.048024 0.757785 1.0]
[0.050692 0.76044 1.0]
[0.054027 0.763758 1.0]

[0.056695 0.766413 1.0]  % color 20
[0.06003 0.769731 1.0]
[0.062698 0.772386 1.0]
[0.066033 0.775705 1.0]
[0.068701 0.778359 1.0]
[0.072036 0.781678 1.0]
[0.074704 0.784332 1.0]
[0.078039 0.787651 1.0]
[0.080707 0.790305 1.0]
[0.084042 0.793624 1.0]
[0.08671 0.796279 1.0]
[0.090045 0.799597 1.0]
[0.09338 0.802915 1.0]
[0.096048 0.80557 1.0]
[0.099383 0.808889 1.0]
[0.102051 0.811543 1.0]
[0.105386 0.814862 1.0]
[0.107387 0.816853 1.0]
[0.110722 0.820171 1.0]
[0.112056 0.821498 1.0]
[0.115391 0.824817 1.0]
[0.116058 0.825481 1.0]
[0.119393 0.828799 1.0]
[0.119393 0.828799 1.0]
[0.122728 0.832117 1.0]
[0.122061 0.831454 1.0]
[0.125396 0.834772 1.0]
[0.124062 0.833445 1.0]
[0.127397 0.836763 1.0]
[0.125396 0.834772 1.0]
[0.128731 0.83809 1.0]
[0.12673 0.836099 1.0]
[0.130065 0.839418 1.0]
[0.128064 0.837427 1.0]
[0.131399 0.840745 1.0]
[0.129398 0.838754 1.0]
[0.132733 0.842073 1.0]
[0.131113 0.840461 1.0]
[0.134448 0.843779 1.0]
[0.133209 0.842547 1.0]
[0.136544 0.845865 1.0]
[0.135687 0.845012 1.0]
[0.139022 0.84833 1.0]
[0.138545 0.847856 1.0]
[0.14188 0.851174 1.0]
[0.141785 0.85108 1.0]
[0.14512 0.854398 1.0]
[0.145406 0.854682 1.0]
[0.148741 0.858001 1.0]
[0.149408 0.858665 1.0]
[0.152743 0.861983 1.0]
[0.15341 0.862647 1.0]
[0.156745 0.865965 1.0]
[0.157412 0.866629 1.0]
[0.160747 0.869947 1.0]
[0.161414 0.870611 1.0]
[0.164749 0.873929 1.0]
[0.165416 0.874593 1.0]
[0.168751 0.877911 1.0]
[0.169418 0.878575 1.0]
[0.172753 0.881893 1.0]
[0.17342 0.882557 1.0]
[0.176755 0.885875 1.0]
[0.177422 0.886539 1.0]
[0.180757 0.889858 1.0]
[0.181424 0.890521 1.0]
[0.184759 0.89384 1.0]
[0.185426 0.894503 1.0]
[0.188761 0.897822 1.0]
[0.189428 0.898485 1.0]
[0.192763 0.901804 1.0]
[0.193239 0.902278 1.0]
[0.196574 0.905596 1.0]
[0.197241 0.90626 1.0]
[0.200576 0.909578 1.0]
[0.201243 0.910242 1.0]
[0.204578 0.91356 1.0]
[0.206579 0.915551 1.0]
[0.209914 0.91887 1.0]
[0.214678 0.92361 1.0]
[0.218013 0.926929 1.0]
[0.225541 0.995372 1.0]
[0.228876 0.991897 1.0]
[0.238691 0.98167 1.0]
[0.242026 0.978194 1.0]
[0.254317 0.965385 1.0]
[0.257652 1.0 1.0]
[0.271183 1.0 1.0]
[0.274518 1.0 1.0]
[0.289478 0.928746 1.0]
[0.292813 0.925271 1.0]
[0.307868 0.909582 1.0]
[0.311203 0.906107 1.0]
[0.324924 0.891809 1.0]
[0.328259 0.888334 1.0]
[0.340551 0.875525 1.0]
[0.343886 0.872049 1.0]
[0.35452 0.860968 1.0]
[0.357855 0.857493 1.0]
[0.366831 0.84814 1.0]
[0.370166 0.844664 1.0]
[0.378341 0.836145 1.0]
[0.381676 0.83267 1.0]
[0.389051 0.824984 1.0]
[0.392386 0.821509 1.0]
[0.398961 0.814658 1.0]
[0.402296 0.811182 1.0]
[0.40807 0.805165 1.0]
[0.411405 0.80169 1.0]
[0.416474 0.796408 1.0]
[0.419809 0.792932 1.0]
[0.424879 0.78765 1.0]
[0.428214 0.784175 1.0]
[0.433283 0.778892 1.0]
[0.436618 0.775417 1.0   0.01 sub ]
[0.441782 0.770035 1.0   0.02 sub ]
[0.445117 0.76656 1.0      0.03 sub ]
[0.450187 0.761278 1.0     0.04 sub ]
[0.453522 0.757802 1.0     0.05 sub ]
[0.458591 0.75252 1.0      0.06 sub ]
[0.461926 0.749045 1.0     0.07 sub ]
[0.466995 0.743762 1.0     0.08 sub ]
[0.47033 0.740287 1.0     0.09 sub ]
[0.475552 0.734846 1.0    0.10 sub   ]
[0.478887 0.73137 1.0     0.11 sub        ]
[0.484061 0.725979 1.0    0.12 sub       ]
[0.487396 0.722503 1.0    0.125 sub       ]
[0.492589 0.717092 1.0    0.13 sub       ]
[0.495924 0.713617 1.0    0.125 sub       ]
[0.501041 0.708285 1.0    0.12 sub       ]
[0.504376 0.704809 1.0   0.11 sub ]
[0.509511 0.699457 1.0    0.10 sub ]
[0.512846 0.695982 1.0    0.09 sub]
[0.518001 0.69061 1.0     0.08 sub ]
[0.521336 0.687135 1.0    0.07 sub ]
[0.526606 0.681644 1.0    0.06 sub ]
[0.529941 0.678169 1.0    0.05 sub ]
[0.534591 0.673323 1.0    0.04 sub ]
[0.537926 0.669848 1.0   0.02 sub ]
[0.542252 0.66534 1.0       0.01 sub ]
[0.545587 0.661865 1.0    0.00 sub ]
[0.549522 0.657764 1.0     0.00 sub ]
[0.552857 0.654289 1.0]
[0.556401 0.650595 1.0]
[0.559736 0.64712 1.0]
[0.562986 0.643734 1.0]
[0.566321 0.640259 1.0]
[0.56916 0.6373 1.0]
[0.572495 0.633824 1.0]
[0.574839 0.631382 1.0]
[0.578174 0.627906 1.0]
[0.580604 0.625374 1.0]
[0.583939 0.621899 1.0]
[0.586359 0.619377 1.0]
[0.589694 0.615902 1.0]
[0.592153 0.61334 1.0]
[0.595488 0.609865 1.0]
[0.597936 0.607313  1.0]
[0.601271 0.603838 1.0]
[0.603711 0.601296 1.0]
[0.607046 0.59782 1.0]
[0.609495 0.595269 1.0]
[0.61283 0.591793 1.0]
[0.615278 0.589242 1.0]
[0.618613 0.585766 1.0]
[0.621062 0.583214 1.0]
[0.624397 0.579739 1.0]
[0.626846 0.577187 1.0]
[0.630181 0.573712 1.0]
[0.632582 0.57121 1.0]
[0.635917 0.567735 1.0]
[0.638319 0.565232 1.0]
[0.641654 0.561757 1.0]
[0.644055 0.559255 1.0]
[0.64739 0.55578 1.0]
[0.649791 0.553277 1.0]
[0.653126 0.549802 1.0]
[0.655527 0.5473 1.0]
[0.658862 0.543825 1.0]
[0.661263 0.541322 1.0]
[0.664598 0.537847 1.0]
[0.667 0.535345 1.0]

         ] store



/data           [ [0.60 0.60 0.48 0.24 0.60 0.60] 
                  [0.60 0.60 0.48 0.24 0.60 0.60] 
                  [0.00 0.00 0.36 0.12 0.48 0.48] 
                  [0.24 0.24 0.48 0.60 0.12 0.12] 
                  [0.12 0.12 0.24 0.48 0.36 0.36] 
                  [0.12 0.12 0.24 0.48 0.36 0.36] ] store

%% hundred step bilineal






/hundredsq {

1 1 3  {/xbox exch store
1 1 3  {/ybox exch store   

0 0.03 1 {/xx exch store   
0 0.03 1 {/yy exch store

         data ybox get xbox get                            % lower left
         1 xx sub 1 yy sub mul mul

         data ybox get xbox 1 add get                      % lower right
         1 yy sub xx mul mul



         data ybox 1 add get xbox get                      % upper left
         1 xx sub yy mul mul 
         data ybox 1 add get xbox 1 add get                % upper right
         xx mul yy mul



         add add add



         200 mul .667 div floor cvi nicerainbowdatapatchedx exch get
         aload pop sethsbcolor

        xbox xx add 10 mul ybox yy add 10 mul mt
        .3 pu .3 pr .3 pd closepath fill

         }for }for } for } for } store 


hundredsq



black

40 40 mt dot
40 10 mt dot
40 20 mt dot
40 30 mt dot

10 40 mt dot
10 10 mt dot
10 20 mt dot
10 30 mt dot

20 40 mt dot
20 10 mt dot
20 20 mt dot
20 30 mt dot

30 40 mt dot
30 10 mt dot
30 20 mt dot
30 30 mt dot











          snap3 restore } store   % end figure 3


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

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


% figure4 for gg83

/figure4 { save /snap3 exch store



   -5.5 -19.3 translate  % position in box
   0.8 dup scale



/nicerainbowdatapatchedx [

[0.0 0.71 1.0]

[0.002668 0.712655 1.0]
[0.006003 0.715973 1.0]
[0.00867101 0.718628 1.0]
[0.012006 0.721946 1.0]
     [0.015341 0.725265 1.0]
[0.018009 0.727919 1.0]
[0.021344 0.731238 1.0]
[0.024012 0.733893 1.0]
[0.027347 0.737211 1.0]

[0.030015 0.739866 1.0]  % color 10
[0.03335 0.743184 1.0]
[0.036018 0.745839 1.0]
[0.039353 0.749157 1.0]
      [0.042021 0.751812 1.0]
[0.045356 0.75513 1.0]
[0.048024 0.757785 1.0]
[0.050692 0.76044 1.0]
[0.054027 0.763758 1.0]

[0.056695 0.766413 1.0]  % color 20
[0.06003 0.769731 1.0]
[0.062698 0.772386 1.0]
[0.066033 0.775705 1.0]
[0.068701 0.778359 1.0]
[0.072036 0.781678 1.0]
[0.074704 0.784332 1.0]
[0.078039 0.787651 1.0]
[0.080707 0.790305 1.0]
[0.084042 0.793624 1.0]
[0.08671 0.796279 1.0]
[0.090045 0.799597 1.0]
[0.09338 0.802915 1.0]
[0.096048 0.80557 1.0]
[0.099383 0.808889 1.0]
[0.102051 0.811543 1.0]
[0.105386 0.814862 1.0]
[0.107387 0.816853 1.0]
[0.110722 0.820171 1.0]
[0.112056 0.821498 1.0]
[0.115391 0.824817 1.0]
[0.116058 0.825481 1.0]
[0.119393 0.828799 1.0]
[0.119393 0.828799 1.0]
[0.122728 0.832117 1.0]
[0.122061 0.831454 1.0]
[0.125396 0.834772 1.0]
[0.124062 0.833445 1.0]
[0.127397 0.836763 1.0]
[0.125396 0.834772 1.0]
[0.128731 0.83809 1.0]
[0.12673 0.836099 1.0]
[0.130065 0.839418 1.0]
[0.128064 0.837427 1.0]
[0.131399 0.840745 1.0]
[0.129398 0.838754 1.0]
[0.132733 0.842073 1.0]
[0.131113 0.840461 1.0]
[0.134448 0.843779 1.0]
[0.133209 0.842547 1.0]
[0.136544 0.845865 1.0]
[0.135687 0.845012 1.0]
[0.139022 0.84833 1.0]
[0.138545 0.847856 1.0]
[0.14188 0.851174 1.0]
[0.141785 0.85108 1.0]
[0.14512 0.854398 1.0]
[0.145406 0.854682 1.0]
[0.148741 0.858001 1.0]
[0.149408 0.858665 1.0]
[0.152743 0.861983 1.0]
[0.15341 0.862647 1.0]
[0.156745 0.865965 1.0]
[0.157412 0.866629 1.0]
[0.160747 0.869947 1.0]
[0.161414 0.870611 1.0]
[0.164749 0.873929 1.0]
[0.165416 0.874593 1.0]
[0.168751 0.877911 1.0]
[0.169418 0.878575 1.0]
[0.172753 0.881893 1.0]
[0.17342 0.882557 1.0]
[0.176755 0.885875 1.0]
[0.177422 0.886539 1.0]
[0.180757 0.889858 1.0]
[0.181424 0.890521 1.0]
[0.184759 0.89384 1.0]
[0.185426 0.894503 1.0]
[0.188761 0.897822 1.0]
[0.189428 0.898485 1.0]
[0.192763 0.901804 1.0]
[0.193239 0.902278 1.0]
[0.196574 0.905596 1.0]
[0.197241 0.90626 1.0]
[0.200576 0.909578 1.0]
[0.201243 0.910242 1.0]
[0.204578 0.91356 1.0]
[0.206579 0.915551 1.0]
[0.209914 0.91887 1.0]
[0.214678 0.92361 1.0]
[0.218013 0.926929 1.0]
[0.225541 0.995372 1.0]
[0.228876 0.991897 1.0]
[0.238691 0.98167 1.0]
[0.242026 0.978194 1.0]
[0.254317 0.965385 1.0]
[0.257652 1.0 1.0]
[0.271183 1.0 1.0]
[0.274518 1.0 1.0]
[0.289478 0.928746 1.0]
[0.292813 0.925271 1.0]
[0.307868 0.909582 1.0]
[0.311203 0.906107 1.0]
[0.324924 0.891809 1.0]
[0.328259 0.888334 1.0]
[0.340551 0.875525 1.0]
[0.343886 0.872049 1.0]
[0.35452 0.860968 1.0]
[0.357855 0.857493 1.0]
[0.366831 0.84814 1.0]
[0.370166 0.844664 1.0]
[0.378341 0.836145 1.0]
[0.381676 0.83267 1.0]
[0.389051 0.824984 1.0]
[0.392386 0.821509 1.0]
[0.398961 0.814658 1.0]
[0.402296 0.811182 1.0]
[0.40807 0.805165 1.0]
[0.411405 0.80169 1.0]
[0.416474 0.796408 1.0]
[0.419809 0.792932 1.0]
[0.424879 0.78765 1.0]
[0.428214 0.784175 1.0]
[0.433283 0.778892 1.0]
[0.436618 0.775417 1.0   0.01 sub ]
[0.441782 0.770035 1.0   0.02 sub ]
[0.445117 0.76656 1.0      0.03 sub ]
[0.450187 0.761278 1.0     0.04 sub ]
[0.453522 0.757802 1.0     0.05 sub ]
[0.458591 0.75252 1.0      0.06 sub ]
[0.461926 0.749045 1.0     0.07 sub ]
[0.466995 0.743762 1.0     0.08 sub ]
[0.47033 0.740287 1.0     0.09 sub ]
[0.475552 0.734846 1.0    0.10 sub   ]
[0.478887 0.73137 1.0     0.11 sub        ]
[0.484061 0.725979 1.0    0.12 sub       ]
[0.487396 0.722503 1.0    0.125 sub       ]
[0.492589 0.717092 1.0    0.13 sub       ]
[0.495924 0.713617 1.0    0.125 sub       ]
[0.501041 0.708285 1.0    0.12 sub       ]
[0.504376 0.704809 1.0   0.11 sub ]
[0.509511 0.699457 1.0    0.10 sub ]
[0.512846 0.695982 1.0    0.09 sub]
[0.518001 0.69061 1.0     0.08 sub ]
[0.521336 0.687135 1.0    0.07 sub ]
[0.526606 0.681644 1.0    0.06 sub ]
[0.529941 0.678169 1.0    0.05 sub ]
[0.534591 0.673323 1.0    0.04 sub ]
[0.537926 0.669848 1.0   0.02 sub ]
[0.542252 0.66534 1.0       0.01 sub ]
[0.545587 0.661865 1.0    0.00 sub ]
[0.549522 0.657764 1.0     0.00 sub ]
[0.552857 0.654289 1.0]
[0.556401 0.650595 1.0]
[0.559736 0.64712 1.0]
[0.562986 0.643734 1.0]
[0.566321 0.640259 1.0]
[0.56916 0.6373 1.0]
[0.572495 0.633824 1.0]
[0.574839 0.631382 1.0]
[0.578174 0.627906 1.0]
[0.580604 0.625374 1.0]
[0.583939 0.621899 1.0]
[0.586359 0.619377 1.0]
[0.589694 0.615902 1.0]
[0.592153 0.61334 1.0]
[0.595488 0.609865 1.0]
[0.597936 0.607313  1.0]
[0.601271 0.603838 1.0]
[0.603711 0.601296 1.0]
[0.607046 0.59782 1.0]
[0.609495 0.595269 1.0]
[0.61283 0.591793 1.0]
[0.615278 0.589242 1.0]
[0.618613 0.585766 1.0]
[0.621062 0.583214 1.0]
[0.624397 0.579739 1.0]
[0.626846 0.577187 1.0]
[0.630181 0.573712 1.0]
[0.632582 0.57121 1.0]
[0.635917 0.567735 1.0]
[0.638319 0.565232 1.0]
[0.641654 0.561757 1.0]
[0.644055 0.559255 1.0]
[0.64739 0.55578 1.0]
[0.649791 0.553277 1.0]
[0.653126 0.549802 1.0]
[0.655527 0.5473 1.0]
[0.658862 0.543825 1.0]
[0.661263 0.541322 1.0]
[0.664598 0.537847 1.0]
[0.667 0.535345 1.0]

         ] store




/datax          [ [0.60 0.60 0.48 0.24 0.60 0.60] 
                  [0.60 0.60 0.48 0.24 0.60 0.60] 
                  [0.00 0.00 0.36 0.12 0.48 0.48] 
                  [0.24 0.24 0.48 0.60 0.12 0.12] 
                  [0.12 0.12 0.24 0.48 0.36 0.36] 
                  [0.12 0.12 0.24 0.48 0.36 0.36] ] store




% data grabbing routines

/grabdata {   % preget gets are probably faster

 /w0  datax yi       get     xi       get    store            % these evaluate data
 /w1  datax yi       get     xi 1 add get    store
 /w2  datax yi 1 add get     xi       get    store
 /w3  datax yi 1 add get     xi 1 add get    store 

 /x0  datax yi       get    xi 1 add get   
      datax yi       get    xi 1 sub get      sub 2 div store

 /x1  datax yi       get    xi 2 add get   
      datax yi       get    xi       get      sub 2 div store

 /x2  datax yi 1 add get    xi 1 add get
      datax yi       get    xi 1 add get      sub 2 div store

 /x3  datax yi 2 add get    xi       get   
      datax yi 1 add get    xi       get      sub 2 div store


 /y0  datax yi 1 add get xi       get  
      datax yi 1 sub get xi       get     sub 2 div store 

  
 /y1  datax yi 1 add get xi 1 add get  
      datax yi 1 sub get xi 1 add get     sub 2 div store 

 /y2  datax yi 2 add get xi       get  
      datax yi       get xi       get     sub 2 div store 


 /y3  datax yi 2 add get xi 1 add get  
      datax yi       get xi 1 add get     sub 2 div store 

 /z0 x0 y0 mul store   % this may be wrong.
 /z1 x1 y1 mul store
 /z2 x2 y2 mul store
 /z3 x3 y3 mul store


false
{/z0 0 store  % temp defeat
/z1 0 store
/z2 0 store
/z3 0 store
} if 

           } bind store

% try fewer gets...

/grabdata {   % preget gets are probably faster

 /w0  datax yi       get     xi       get    store            % these evaluate data
 /w1  datax yi       get     xi 1 add get    store
 /w2  datax yi 1 add get     xi       get    store
 /w3  datax yi 1 add get     xi 1 add get    store 

 /x0 % datax yi       get    xi 1 add get 
       w1  
       datax yi       get    xi 1 sub get 
                                               sub 2 div store

 /x1   datax yi       get    xi 2 add get   
    %  datax yi       get    xi       get     
       w0                 
                                               sub 2 div store

 /x2  % datax yi 1 add get    xi 1 add get
      w3
      datax yi 1 add get    xi 1 sub get
       

                                               sub 2 div store

 /x3  datax yi 1 add get    xi 2 add      get   
      % datax yi 1 add    get    xi       get 
      w2
                                              sub 2 div store


 /y0  % datax yi 1 add get xi       get 
      w2 
      datax yi 1 sub get xi       get     sub 2 div store 

  
 /y1  % datax yi 1 add get xi 1 add get 
      w3
      datax yi 1 sub get xi 1 add get 
                                          sub 2 div store 

 /y2  datax yi 2 add get xi       get  
     %  datax yi       get xi       get     
       w0
                                          sub 2 div store 


 /y3  datax yi 2 add get   xi 1 add get  
      % datax yi       get xi 1 add get     
       w1
                                        sub 2 div store 



 /z0 x0 y0 mul store   % this may be wrong.
 /z1 x1 y1 mul store
 /z2 x2 y2 mul store
 /z3 x3 y3 mul store


false
{/z0 0 store  % temp defeat
/z1 0 store
/z2 0 store
/z3 0 store
} if 

           } bind store








% coefficient def routines

/findacoeffs {

  /a00 w0 store
  /a01 y0 store
  /a02 w0 -3 mul   w2  3 mul add    y0 -2 mul add  y2 sub store
  /a03 w0  2 mul   w2 -2 mul add    y0        add  y2 add store

  /a10 x0 store
  /a11 z0 store
  /a12 x0 -3 mul   x2  3 mul add    z0 -2 mul add  z2 sub store
  /a13 x0 2 mul    x2 -2 mul add    z0        add  z2 add store

  /a20 w0 -3 mul   w1  3 mul add    x0 -2 mul add  x1 sub store
  /a21 y0 -3 mul   y1  3 mul add    z0 -2 mul add  z1 sub store

  /a22 w0  9 mul      w1 -9 mul add    w2 -9 mul add  w3  9 mul add
       x0  6 mul add  x1  3 mul add    x2 -6 mul add  x3 -3 mul add
       y0  6 mul add  y1 -6 mul add    y2  3 mul add  y3 -3 mul add
       z0  4 mul add  z1  2 mul add    z2  2 mul add  z3        add   store

  /a23 w0 -6 mul       w1  6 mul add    w2  6 mul add  w3 -6 mul add
       x0 -4 mul add   x1 -2 mul add    x2  4 mul add  x3  2 mul add
       y0 -3 mul add   y1  3 mul add    y2 -3 mul add  y3  3 mul add
       z0 -2 mul add   z1  neg   add    z2 -2 mul add  z3  neg   add   store 

  /a30  w0 2 mul   w1 -2 mul add    x0        add  x1        add   store  
  /a31  y0 2 mul   y1 -2 mul add    z0        add  z1        add   store

  /a32 w0 -6 mul      w1  6 mul add    w2  6 mul add  w3 -6 mul add
       x0 -3 mul add  x1 -3 mul add    x2  3 mul add  x3  3 mul add
       y0 -4 mul add  y1  4 mul add    y2 -2 mul add  y3  2 mul add
       z0 -2 mul add  z1 -2 mul add    z2  neg   add  z3  neg   add   store

  /a33 w0  4 mul      w1 -4 mul add    w2 -4 mul add  w3  4 mul add
       x0  2 mul add  x1  2 mul add    x2 -2 mul add  x3 -2 mul add
       y0  2 mul add  y1 -2 mul add    y2  2 mul add  y3 -2 mul add
       z0        add  z1        add    z2        add  z3        add   store

             } bind store


% actual bicubic calc


/bicubiccalc {   % creates a surface from sixteen cubic equations

       a00
       a01                    yr       mul    add
       a02                    yr 2 exp mul    add
       a03                    yr 3 exp mul    add
           
       a10 xr       mul                       add
       a11 xr       mul       yr       mul    add
       a12 xr       mul       yr 2 exp mul    add
       a13 xr       mul       yr 3 exp mul    add

       a20 xr 2 exp mul                       add
       a21 xr 2 exp mul       yr       mul    add
       a22 xr 2 exp mul       yr 2 exp mul    add
       a23 xr 2 exp mul       yr 3 exp mul    add

       a30 xr 3 exp mul                       add
       a31 xr 3 exp mul       yr       mul    add
       a32 xr 3 exp mul       yr 2 exp mul    add
       a33 xr 3 exp mul       yr 3 exp mul    add

             } bind store

% try to reduce exps?


/bicubiccalc {   % creates a surface from sixteen cubic equations


/xx2 xr 2 exp store
/xx3 xr 3 exp store
/yy2 yr 2 exp store
/yy3 yr 3 exp store

{
/xx2 xr dup mul store   % avoid exp?  slight penalty
/xx3 xx2 xr mul store
/yy2 yr dup mul store
/yy3 yy2 yr mul store
} pop 

       a00
       a01               yr  mul    add
       a02               yy2 mul    add
       a03               yy3 mul    add
           
       a10 xr  mul                  add
       a11 xr  mul       yr  mul    add
       a12 xr  mul       yy2 mul    add
       a13 xr  mul       yy3 mul    add

       a20 xx2 mul                  add
       a21 xx2 mul       yr  mul    add
       a22 xx2 mul       yy2 mul    add
       a23 xx2 mul       yy3 mul    add

       a30 xx3 mul                  add
       a31 xx3 mul       yr  mul    add
       a32 xx3 mul       yy2 mul    add
       a33 xx3 mul       yy3 mul    add

             } bind store




% possibly can create an a00 through a33 array and forall , eliminating
% sixteen defs and sixteen variables. Also combines two procs

% better yet, combine procs directly   30 on stack becomes  seed for asfdasdf add



% main controller code

% enter dobicubic with position inside four dots as xx yy. Returns interpolated value

/dobicubic {

         dup floor cvi dup /yi exch store sub /yr exch store  % integer and residue
         dup floor cvi dup /xi exch store sub /xr exch store

         grabdata

         findacoeffs

         bicubiccalc

            } bind store

%  ///////////


% there is NO WAY IN HELL this can be done sanely in postscript!
% but timing returns TOO GOOD TO BE TRUE fraction of a millisecond!

% WrONG!!! We are just barely doabe.
% problems remain. Especially version 8 run???



%   [ [0.60 0.60 0.48 0.24 0.60 0.60] 
%     [0.60 0.60 0.48 0.24 0.60 0.60] 
%     [0.00 0.00 0.36 0.12 0.48 0.48] 
%     [0.24 0.24 0.48 0.60 0.12 0.12] 
%     [0.12 0.12 0.24 0.48 0.36 0.36] 
%     [0.12 0.12 0.24 0.48 0.36 0.36]  ]

%% 2,2 data is 0.48  3,3 data is 0.12


1 1 3 {/xbox exch store
1 1 3 {/ybox exch store




0 0.02 pop 0.02  0.99  {/xxx exch store
0 0.02 pop 0.02 0.99 {/yyy exch store

xbox xxx add ybox yyy add  dobicubic

200 mul  0.67 div        0.96 mul                    cvi    % temp deglitcher

dup 0 lt {pop 0} if  % got a minus one?
dup 200 gt {pop 200} if

nicerainbowdatapatchedx exch get
aload pop sethsbcolor


xbox xxx add  10 mul
ybox yyy add  10 mul           mt 

0.2 pop 0.2  pu 0.2 pop 0.2  pr 0.2 pop 0.2 pd closepath fill


} for
} for


} for
} for



black

40 40 mt dot
40 10 mt dot
40 20 mt dot
40 30 mt dot

10 40 mt dot
10 10 mt dot
10 20 mt dot
10 30 mt dot

20 40 mt dot
20 10 mt dot
20 20 mt dot
20 30 mt dot

30 40 mt dot
30 10 mt dot
30 20 mt dot
30 30 mt dot






   

          snap3 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




% Some More Energy Fundamentals
% ================================
% by  Don Lancaster   GG #86 MORENRGF.PSL



/ggnum 86 store



/tabs [14] store

20 48.3      0.7  add                             1 sub  
(Some |jMore |jEnergy |jFundamentals |j\320 |jI)cc

% 20 46.3     0.7  add           % 1 sub  
%  (Postscript |jArrays|j-|jof|j-|jStrings |jand|j Images) 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 2/08 as |/surl |6GuruGram|1|/gurgrm01  |/tinton1 |6#86
|/surl http://www.tinaja.com|/tinaja 
|/surl don@tinaja.com|/maildon 
(928) 428-4073
|/aqua |/black  
|a|0B|b|1ack in October of 2002, I published |/su |6Some Energy Fundamentals|1|/energfun.pdf  over in our       |/su Blatant Opportunist|1|/blat01  library. Shortly after publication, the paper was informally peer reviewed and generally lavishly praised by recognized industry insiders. 
|h
Some minor adjustments and corrections were made at that time. Ongoing updates continued largely in our |/su What's New|1|/whtnu08  and earlier ongoing blog posts.
|h
This established paper appears to continue to generate controversy. Primarily from individuals who will do anything to save the environment. |/to Except take a        |/to science course|/tx . What I thought I would do in this |/su GuruGram|1|/gurgrm01  is expand upon, attempt to clarify, and update some of the earlier concepts\274
|h
|c
When |jand |jWhere |jDimes |jEqual |jKilowatt |jHours
|d
|/su Thermodynamic fundamentals|1|/hack64.pdf  absolutely guarantee that |/to any economy will be        |/to ultimately driven by its energy inputs|/tx . For obviously, no energy = no economy.
|h
Thus, |/to every economic transaction has an energy cost associated with it|/tx . 
|h
Sometimes these costs are fixed and obvious. Such as paying your power bill. Or that |/to "Unleaded $2.94"|/tx  sign down the street. Other times, the energy cost of a transaction may be obscure or loosely coupled. At first glance |/to "Avocados 89 cents    |/to each"|/tx  seems unrelated. But at least in California agriculture, avocados are largely manufactured from diesel fuel.
|h
Yes, energy costs of a transaction may vary with time, subsidies, demand, tariffs, arbitrage, taxes, popularity, and a number of other factors. But long term, they simply |/to must|/tx  average out to a dollar and energy equivalence.
|h
The situation dramatically simplifies when you enter into a buyback agreement with your power utility. |/to You contractually obligate yourself to equating, say,           |/to present dimes and present kilowatt hours|/tx . Thus, the dimes and kilowatt hours become |/su fungible|1|/wikifungible  and interchangeable commodities. 
|h
You can keep score equally well with one or the other.
|h 
 
) cl 

startnewpage 

(So, should you have a home pv solar system that generates two cents a day in electricity but |/su amortizes|1|/loanamort  out at a fully burdened total system cost of three cents per day, |/to you clearly have a net energy sink|/tx . The longer you run it, the more conventional energy you are consuming and thus destroying. Or glibly, the longer you run it, the more gasoline (|jand its equivalents|j) you are destroying.
|h
But what about the incoming solar energy? It turns out there is a two position switch on your above solar panel. In position |/to "A"|/tx , you destroy a lot of gasoline. In position |/to "B"|/tx , you destroy even more. All the sun can do is |/to reduce your losses|/tx .
|h
|c
Why |jExergy |jis |jImportant
|d 
I am bemused by the "ostrich" approach to exergy. It goes something like this: |/to "I     |/to have never heard of exergy; therefore, it simply does not exist and could not     |/to possibly apply to me."|/tx  
|h
Sorry, but exergy is very real. You can start with this |/su Wikipedia|1|/wickexergy  definition. |/su Google|1|/googleexergy  alone will give you nearly 100,000 hits. At least some of which are bibliographies with thousands or more entries.
|h
One more time:
|h
|/to Exergy is a measure of the quality and thus the value of energy in its present    |/to form|/tx . It is basically entropy with an economic value focus. You have this three legged stool of energy, exergy, and entropy. |/to All three must be considered for       |/to any economic and competitive viability|/tx .
|h
Exergy answers the economic question: "How much is this stuff worth in its present form?" Or more specifically: |/to "What is the reversibly recoverable energy       |/to fraction of the original energy remaining?"|/tx 
|h
An unstruck match has very high exergy; a slightly warmer room has very little. Electricity is just about the highest exergy stuff around. But unstored |/su hydrogen|/h2gas01          |/su gas|1|/h2gas01  is among the lowest. Gasoline typically has one third the exergy of electricity. Because it is difficult to build a gas generator exceeding 33 percent efficiency.
|h
|/to One effective way to measure exergy is to convert the energy to some different         |/to form and convert it back|/tx . Then see how much you have left. A classic example of wasted exergy is electric room heat. Go from the electricity to the room and back, and only the tiniest fraction of the original value remains. Because of the inherent      |/su Carnot Inefficiency|1|/hack64.pdf  of any low temperature heat engine.
|h
|/to Large drops in exergy are irreversible and irrecoverable|/tx . Economically, they are comparable to, say, stupidly |/to 1:1 exchanging US Dollars for Mexican Pesos|/tx .
|h
Any time there is a major loss of exergy, there might be |/to competitive alternatives|/tx  that destroy less value. These can make more economic sense. For room heat, you can dramatically reduce your exergy losses by about three times with gas heat or five times with a heat pump. 
|h
) cl 





startnewpage 

(In the case of |/su electrolysis|1|/muse153.pdf  from high value sources (|jsuch as grid, wind, or pv|j) even smelting aluminum or refining copper can often end up a higher and better use of the electricity. As is pumped storage. Exergy is the key and crucial reason that |/to guarantees|/tx  that hydrogen from high source value electrolysis flat out ain't gonna happen.
|h
|c
Why |jTrue |jNet |jEnergy |jis |jImportant
|d
Here's a recent third party newsgroup post that I feel is an excellent summary of the present status of net energy pv\274
|6|/shiftin |/beige |/staytint1 |/burplebox20 
|h  
"There can only be one logical explanation for solar PV 
amounting to an insignificant portion of the energy supply."
|h
"It's not that there isn't enough sand for terawatts of solar 
PV. It's not that everyone just loves to burn hydrocarbons.  
It's not because government regulations prohibit building
solar PV (|jin fact, quite the opposite is true \320 government 
subsidies abound.|j) It's not because solar PV is politically 
unpopular."
|h 
"It IS because building and installing enough solar PV to 
make even a minor contribution to the energy supply is 
a foolish allocation of resources."
|h 
"Plain and simple: If it was otherwise, solar PV would be 
a real contributor and it isn't."  
|h
"No matter how you do the  accounting to come up with 
'net payback', the present 'net payback' of hydrocarbon 
generation plants must be better because solar PV is not
over-taking hydrocarbon generation."
|h
|1|/shiftout |/aqua |/black 
|h
A proof of the above statement is that |/to not one public utility anywhere ever is       |/to presently using solar pv for fully burdened avoided cost peaking|/tx  that is free of subsidies, R&D writeoffs, or greenie PR. Very simply\274 
|6|/shiftin |/aqua |/staytint1 |/burplebox3.5 
|h
             To date, solar pv costs way too much.
|h
             Causing it to remain a net energy sink.
|h
|1|/shiftout |/aqua |/black 
At present, gasoline is a true net energy source in that |/to it takes approximately          |/to one quart of old gasoline to deliver one gallon of new|/tx . Conversely, it takes many conventionally generated kilowatt hours of energy to presently pay for a newly delivered solar pv kilowatt hour.
|h
) cl 


startnewpage 

(Subsidies, of course, do not help in the least. First, |/to most subsidy money is simply      |/to stolen|/tx . Second, alternate energy subsidies have a long and rich history of being outrageous fiascos. Third, the true cost of a subsidy (|jincluding collection and admin costs|j) will at least |/to triple|/tx  its face value. Sort of an "iceberg effect"\274 
|6|/shiftin |/aqua |/staytint1 |/burplebox5 
|h
        It makes no economic or environmental sense
        whatsoever for subsidies that pay people to put
        obsolete and known defective gasoline destroying 
        net energy sinks on inappropriate rooftops. 
|h
|1|/shiftout |/aqua |/black 
|h
A case can be made that |/to the present California pv subsidy fiasco might end up        |/to setting back net energy pv by over five decades|/tx . Per |/su this analysis|1|/califsetback .
|h
Curiously, net energy sinking has to get a lot |/to worse|/tx  before it can ever hope to get better. The zillions of new investment dollars now being thrown at the emerging pv technologies that might someday provide energy breakeven represent a rather huge additional energy sink and drain on the economy. 
|h
Regardless of ultimate success, |/to net energy is the key.|/tx 
|h
|c
Why |jAmortization |jis |jImportant
|d
Many economic activities require a large upfront investment to provide a smaller but steadier return over a much longer period of time. In the case of an alternate (|jor conventional|j) energy system, old dollars are invested ahead of time so they produce daily average returns of kilowatt hours that equate to new dollars.
|h
The process of spreading out an investment over a long time period is known as          |/to amortization|/tx . One very useful amortization calculator |/su appears here|1|/loanamort . 
|6|/shiftin |/aqua |/staytint1 |/burplebox5.5 
|h
     If the daily energy income exceeds the amortized
     investment cost, you have a net energy source.
|h
     If the daily energy income is less than the amortized
     investment cost, you have a net energy sink.
|h
|1|/shiftout |/aqua |/black 
|h
Note that |/to paying cash up front does not change anything|/tx . Because of an economic |/to excluded opportunity cost|/tx  that usually ends up largely equivalent to finance amortization. 
|h
Note also that having "paid off" an investment before it wears out is simply an       |/to accelerated depreciation|/tx .
|h
Let's look at a curious amortization example\274
) cl 


startnewpage 

/specialtan {gsave xpos ypos translate 
              -1 0.2 mt 8.3 pd 29.5 pr 8.3 pu closepath
              0.9 0.78 0.62 setrgbcolor fill grestore} store


(|6|/shiftin |/beige |/staytint1 |/burplebox19.5 |/specialtan 
|h
  A small scale pv system owner pays $2500 retail
  for a synchronous inverter and its installation on
  a system that averages 1500 peak watts.
|h
  What percentage of the value of the electricity
  generated is consumed by the cost of the inverter?

  Assume that the utility buyback is ten cents per
  kilowatt hour. About 7.5 kilowatt hours per day
  will be generated from a 1500 peak watt panel,
  for a net energy income of 75 cents per day. Or
  $22.50 per month
|h
  Assume the financing is ten years at ten percent. 
  The daily interest and principle payment on the
  inverter amortizes out to $33.04 per month.
|h
  Their inverter will then consume approximately
  150 PERCENT of the value of ALL the electricity
  that is sent through it.
|1|/shiftout |/aqua |/black 
|h
Thus, in this example, the owner clearly has created a net energy sink even if their pv panel costs are |/to zero|/tx .
|h 
Fortunately, high volume production, standardization, and panel internalizing of inverter circuitry should eventually reduce the ultimate costs of synchronous inversion down into the nine dollar range. This is an easily solvable problem.
|h
|c
Some |jpv |jSolar |jMath
|d
At noon on a clear summer day in Arizona, the incoming solar energy will often be around 1000 watts per square meter on a properly oriented surface\274
|6|/shiftin |/aqua |/staytint1 |/burplebox3 
|h  
           At its very best, incoming solar energy will 
           be about 1000 watts per square meter.
|h
|1|/shiftout |/aqua |/black 
|h
This incidence must first be derated for any angular mismatch. Optimum panel orientation depends on your latitude, the time of day, and the time of year. |/su Here|1|/solarcalc1  and |/su here|1|/solarcalc2  are two useful sources of panel orientation info. Many more can be found through the usual |/su Google|1|/googlesolarcalc  searches. 
|h
While a tracking panel can obviously gather in more energy than a stationary one, a tracking system will usually be more costly, more complex, less sturdy, require more attention, and will likely be more sensitive to wind or snow loading. 
|h
) cl 





startnewpage 

(|1The difference between optimal tracking and fixed seasonal orientation is typically only |/su fifty percent|1|/trackingcalc  or so. Which can present severe limits to tracking economics and overall system desirability. 
|h
One useful source for tracking devices and info is |/su Zomeworks|1|/zomeworks . 
|h
This incidence must secondly be derated for such things as days of available sunshine, cloud cover, effective area versus total area, aging effects, surface grime, air pollution, shading, demand, downtime, and system lifetimes\274   
|6|/shiftin |/aqua |/staytint1 |/burplebox5.5 
|h  
           Solar energy is an extremely diffuse resource.
|h
           The total energy density and the real-world
           time availability of pv recoverable solar energy 
           can easily end up disappointingly low.
|h
|1|/shiftout |/aqua |/black 
|h
As we saw in |/su Energy Fundamentals|1|/energfun.pdf , all recent photovoltaic devices are severely limited in their conversion efficiencies. Ten percent conversion at the output of the synchronous inverter terminals is exceptionally good present technology\274
|6|/shiftin |/aqua |/staytint1 |/burplebox4 
|h  
           The best available pv system conversion
           efficiency at its synchronously converted
           grid output terminals is about ten percent.
|h
|1|/shiftout |/aqua |/black 
|h
With a thousand watts of incoming solar energy on a well oriented one meter panel, you will be lucky to get one hundred peak watts of useful electricity. 
|h
There are fundamental physical and thermodynamic limits that restrict increasing panel efficiency significantly on a cost effective basis\274
|6|/shiftin |/aqua |/staytint1 |/burplebox3 
|h
       A kilowatt of peak pv electrical power will demand 
       at least ten square meters of active panel.
|h
|1|/shiftout |/aqua |/black 
|h
Typically, a solar facility will need a lot more space than the active panel areas. In this industry defining |/su Springerville|1|/springervillepv  example, the actual land area ends up more than |/to four times|/tx  the effective panel area. Approximately |/to 23|/tx  watts per square meter of land and an area conversion efficiency of just over |/to two percent|/tx .
|h
Obviously, a pv solar system will not work at night. The pv system downtime is inherently high. Perhaps 80 percent when normalized to noon output.
|h
A useful rule of thumb is that you get five kilowatt hours of energy per good day per peak panel kilowatt\274 
) cl 





startnewpage 

(|6|/shiftin |/aqua |/staytint1 |/burplebox4 
|h  
           A panel that might produce 1 kilowatt of power 
           at noon is likely to produce only 5 kilowatt
           hours of energy during a full day.
|h
|1|/shiftout |/aqua |/black 
|h
Thus, solar peak power capacity has to be about |/to four or five times higher than              |/to conventional coal or nuclear|/tx  for equivalent long term energy sustained output.
|h
A utility's |/to avoided cost peaking|/tx  charges can be taken as a maximum reasonable price to pay for any new alternative net energy system. 
|h
This forms a "parity point" at which pv solar can at least hope to begin to seriously displace conventional energy sources. What is the maximum installed and fully burdened system cost that can approach this "breakeven" value?
|h
Assume that present peaking costs are one dime per kilowatt hour. Assume a one kilowatt peak power panel that in fact can produce five kilowatt hours of grid returnable and salable energy per day. The total production will be fifty cents per day. Or fifteen dollars per month. 
|h
Assume ten percent financing and a ten year amortization. |/su this site|1|/loanamort  tells us that an investment of $1135 will have a monthly payment of $15. Thus $1.14 appears to be the breakeven costs for pv solar to at least threaten to eventually become a viable alternate net energy source\274 
|6|/shiftin |/aqua |/staytint1 |/burplebox9 
|h  
        About ONE DOLLAR PER PEAK WATT can be the magic 
        number for serious net energy pv production.
|h
        That is the TOTAL SYSTEM cost, including the
        synchronous inverter, all labor and shipping,
        amortization, and all related lifecyle expenses.
|h
        Panel costs would have to approach FIFTY CENTS
        per peak watt to support such a system.
|h
|1|/shiftout |/aqua |/black 
|h
Unfortunately, there is a key point that many pv solar proponents seem to avoid addressing entirely\274
|6|/shiftin |/aqua |/staytint1 |/burplebox5 
|h
        It makes no economic or environmental sense to
        sell a dime's worth of conventionally generated
        peaking energy and then use that dime to buy the
        same amount of solar pv generated energy.
|h
|1|/shiftout |/aqua |/black 
|h
) cl 





startnewpage 


/shiftin {/txtwidehold txtwide store /txtwide txtwide 4 sub store
          /xpos xpos 2 add store } store

/shiftout {/txtwide txtwidehold store /xpos xpos  2 sub store } store

(|6|/shiftin |/aqua |/staytint1 |/burplebox9 
|h
        All you have is some "paint it green" nuclear or
        oil or coal equivalent TRANSFER payments.
|h
        To DISPLACE traditional sources, solar pv simply
        has to provide NEW NET ENERGY.
|h
        Thus TWENTY FIVE CENTS per peak watt panel cost 
        in today's dollars is a much more likely threshold 
        for long term pv solar net energy viability.
|h
|1|/shiftout |/aqua |/black 
|h
While the argument can be made that conventional power costs are likely to sharply increase in the future, the costs of creating, delivering, and maintaining panels are likely to disproportionately increase as fast or faster.
|h
Fortunately, we now have some\274
|h
|c
New |jdevelopments |jthat |jMAY |jlead |jto |jnet |jpv |jsolar |jenergy
|d
Contrary to popular belief, most technologies do |/to not|/tx  keep improving forever. Eventually their fundamental limitations catch up with them and they hit the wall. And then they get blown out of the saddle by newer and better replacements.
|h
|/to Conventional silicon pv is an absolutely terrible way to produce electricity|/tx . The material is intractable to work with, it has lousy optical properties, has no hope of large area processing, requires thick sections for conversion, is costly to process, is extremely fragile, has high waste, demands excessive energy, and has recently become scarce and expensive. 
|h
The only tiny thing going for it is that |/to it was by far the best we had|/tx .
|h
As we saw in |/su Energy Fundamentals|1|/energfun.pdf , not one net watthour of conventional silicon pv energy has ever been produced. And I strongly feel it is unlikely that it |/to ever|/tx  will. It seems to me that |/to today's old technology panels are largely a sucker bet|/tx .
|h
Fortunately, we have some new brand new genuine breakthrough technologies that appear to have the capability to approach a quarter per peak watt. And can ultimately deliver net new energy. The three close in biggies are\274
|/shiftin |h
|/su CIGS Sheets|1|/googlecigs |j\320 |1This new acronym stands for |/to Copper - Indium - Gallium -    |/to Diselenide|/tx . A new photovoltaic material that can easily be processed by the roll in mile long flexible sheets using economic and low energy inkjet and similar technologies common to the printing trades. Less than one percent of the comparable silicon thickness is needed for conversion. While efficiencies and reliability appear comparable. Although still on a steep learning curve, the materials are now shipping in near production quantities. |/su Nanosolar|1|/nanosolar  is one leading proponent. 
|h
|/shiftout 
) cl 





startnewpage 

/shiftin {/txtwidehold txtwide store /txtwide txtwide 4 sub store
          /xpos xpos 2 add store } store

/shiftout {/txtwide txtwidehold store /xpos xpos  2 sub store } store

(|y |/shiftin 
|/su Quantum Dots|1|/googlequantum |j\320 |1In a normal large size pv cell, any energy below the workfunction threshold is lost as waste heat. Energy at the workfunction threshold knocks loose an electron. Any "spare change" energy above the workfunction threshold is also lost as waste heat. But by going to new nanoscale quantum dots, the above workfunction energy can instead be used to knock loose one or more additional electrons. Thus dramatically improving pv efficiency for shorter light wavelengths and uv. An early development was covered |/su here|1|/sciencenewsquantumdot .

|/su Tetrapods|1|/googletetrapods |j\320 |1 A tetrapod is a unique nanoscale four legged structure. Over a reasonable range, it allows its work function to be tuned more or less independently from its semiconductor makeup. Which can move a maximum efficiency point into the visible spectrum from silicon's fixed infrared. Or allow several different tetrapods to be tuned to several different optimums for improved efficiency. A recent major development       |/su appears here|1|/ricetetrapod .
|/shiftout 
|1What is unique about these three new approaches is that |/to they are not in any        |/to manner exclusive|/tx . Synergy can be used in second generation devices to mix and match their best traits.
|h
The companies involved in active pursuit of these new technologies newly include      |/su NanoSolar|1|/nanosolar , |/su First Solar|1|/firstsolar , |/su Global Solar|1|/globalsolar , |/su Daystar|1|/daystar , |/su HelioVolt|1|/heliovolt , |/su Miasole|1|/miasole , |/su Solyndra|1|/solyndra , and      |/su International Solar Electric Technology|1|/iset .
|h
We also have these three dark horse candidates not quite as far along that may prove of extreme value\274
|/shiftin 
|/su Metalloradicals|1|/googlemetalloradical |j\320 |1Plants have long been good at using sunlight to knock electrons loose through photosynthesis. The basic underlying method was discovered only a decade back and was found to center on         |/to metalloradicals|/tx . Per this |/su original paper|1|/sciencemetalloradical . There are four or five closely interlinked processes that involve a special form of a manganese cluster and an organic radical. Variations on the process could produce liquid fuels, electricity, and carbon capture. One example of current research appears |/su here|1|/currentmetalloradical . Future developments appear extremely promising.

|/su Nanoantennas|1|/googlenanoantenna |j\320 Building "solar crystal sets" that directly pick up light with antenna structures and then rectifying the energy could in theory bypass and dramatically exceed present pv efficiency limits. One pioneer in this field was Alvin Marks. Some |/su Recent Research|1|/newnano  seems to have now solved the antenna and energy gathering half of the problem by using ultra miniature antennas formed from low cost common conductors. Unfortunately, the rectification problem remains. But might possibly be addressed with metalloradicals or dye molecules. 

|/shiftout


) cl 

startnewpage 

/shiftin {/txtwidehold txtwide store /txtwide txtwide 4 sub store
          /xpos xpos 2 add store } store

/shiftout {/txtwide txtwidehold store /xpos xpos  2 sub store } store


(|1 |/shiftin |y
|/su Improved Thermoelectrics|1|/wikithermoelectric |j\320 |1Any heat or light to electricity converter is inherently limited to a |/su Carnot Efficiency|1|/hack64.pdf . Which is not all that bad when very high temperature differentials are involved. Unfortunately, most older thermoelectric converters do not even remotely approach decent efficiency. And remain fairly useless except for a few arcane apps. A brand new solid state device approximates a nearly ideal |/su Ericsson Cycle|1|/wikiericsson   and shows some promise. Some recent info is found |/su here|1|/newthermo .
|/shiftout |h
|c
Why |jEconomy |jof |jScale |jis |jStill |jImportant
|d
Very few individuals will go out and build their own nuclear power plant. Or a combined coal mine and thermal generator. The obvious reason being that traditional power plants are ridiculously more cost effective when built in very large sizes. Which has created the |/to myth|/tx  that pv solar has no economies of scale. And that home built individual stand-alone systems should reign supreme.
|h
In reality, |/to economics of scale remain very real and very compelling|/tx . The power utilities today are the primary market for new net energy pv panels. They have incredible buying power combined with being able to guarantee production quotas for new ventures. More importantly, they have the ability to |/to standardize|/tx  a product that can be drop-in |/to leased|/tx  to the end user. 
|h
Without any installation or finance or maintenance or compliance hassles.
|h
Obviously, smaller stuff sold retail to individuals in small quantities will end up inherently more costly than larger stuff sold wholesale to large corporations. Enough to tilt lease versus buy in favor of most end users leasing.
|h
A present proof that economies of scale still matter is that |/to virtually all of the new        |/to current CIGS production is going to major power utilities|/tx . And will continue to do so at least for the next few years.
|h
An interesting point not often discussed\274
|6|/shiftin |/aqua |/staytint1 |/burplebox5.5 
|h
           A pv energy farm requires very little water.
|h
           Which makes larger ones a perfect match for
           Government and Indian lands in the arid and
           largely cloud free American West.
|h
|1|/shiftout |/aqua |/black 
|h
|c
Why |jthe |jGrid |jWill |jRemain |jSupreme
|d
Yet another solar pv myth is that everybody will soon be able to go offgrid with their own stand alone independent systems. In reality, |/to the existing power grid       |/to is the essential core to new net energy pv solar|/tx .
|h
First because\274
) cl 





startnewpage 

(|6|/shiftin |/aqua |/staytint1 |/burplebox6 
|h
         No known means of pv solar electricity storage 
         is remotely as cheap, as simple, as effective, as 
         efficient, as low in equipment demands, as safe,
         or as reliable as synchronous inversion to the
         public power utility grid.
|h
|1|/shiftout |/aqua |/black 
|h
And secondly because\274
|6|/shiftin |/aqua |/staytint1 |/burplebox6.5 
|h
        The peak afternoon pv solar generation is often
        a good match to the peak power demands of the
        public power utility grid.
|h
        While replacing by far the most expensive of 
        conventional peaking power resources.
|h
|1|/shiftout |/aqua |/black 
|h
Another obvious benefit of the grid is its ability to |/to average out|/tx  local or regional shading on a partially cloudy day.
|h
Yes, an argument can be made that the power grid cannot really store anything. Instead, you have |/to interchangeable and |/su fungible|6|/wikifungible  |/to commodities|/tx . |1If you put some nickels in a piggy bank, it usually does not matter if you remove a |/to different|/tx  set of nickels later on.
|h
One way to look at power grid "storage" is as a super efficient |/to electricity to coal        |/to converter|/tx . When pv solar is synchronously returned to the grid, the pile of coal sitting outside the baseline power plant does not diminish nearly as fast.
|h
The role of power utilities may change somewhat as net energy pv solar becomes significant. Utilities are more likely to focus on |/to brokering|/tx  of power and |/to leasing|/tx  of panels and such rather than on primary energy production.
|h
So long as pv solar remains a smaller fraction of the total generated electrical output, the grid will remain an outstanding means of converting solar to 24/7 availability. Offgrid uses of pv solar electricity are now and likely will always remain an uneconomic and tiny fraction of the total.  
|h
|c
For |jMore |jHelp
|d
The original |/to Energy Fundamentals|/tx  paper appears |/su here|1|/energfun.pdf . Related materials can be found in our |/su GuruGram|1|/gurgrm01  and |/su Blatant Opportunist|1|/blat01  library pages. As well as in our      |/su What's New|1|/whtnu08  and earlier series of blogs. 
|h
My personal research into alternative energy solutions lies in the realm of |/su Magic|/magsn01          |/su Sinewaves|1|/magsn01 . These are some newly discovered mathematical sequences that can
|h
) cl 





startnewpage 

(|1promise to significantly improve both the efficiency and quality of most power conversion electronics. An intro tutorial appears |/su here|1|/msintro1 , a development proposal      |/su here|1|/msinprop , and an executive summary |/su here|1|/msinexec.pdf .
|h
|/su Consulting services|1|/info01  seminars, and development services on these and related topics are available. You can email |/su don@tinaja.com|1|/maildon . Or call |/to (928) 428-4073|/tx .


) cl 

startnewpage 

 


% EOF