%!PS
% Website Wipes, Fades, and Dissolves GG21
% ============================================
% by Don Lancaster
% Copyright c 2002 by Don Lancaster & Synergetics, Box 809, Thatcher, AZ, 85552
% (928) 428-4073 Email: don@tinaja.com Website: http://www.tinaja.com
% Consulting services available http://www.tinaja.com/info01.html
% Linking welcome. Reposting expressly forbidden.
% All commercial rights and all electronic media rights ~fully~ reserved.
% Linking usually welcome. Reposting expressly forbidden. Version 1.1
% Tutorial shows simple method of adding wipes, fades, and dissolves to any
% website by using Windows RevealTrans techniques.
% 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:\\windows\\desktop\\gonzo\\gonzo.ps) run % use internal gonzo
% (A:\\gonzo.ps) run % use external gonzo
% NOTE THAT ALL PS FILENAME STRINGS !!!DEMAND!!! DOUBLE REVERSE SLASHES.
% GONZO20A Guru Gonzo PostScript power tools (Interim release)
% Includes gonzo justification and layout utilities.
% Copyright c 1990, 1996, 2001 by Don Lancaster and Synergetics, Box 809,
% Thatcher Arizona, 5552 (928) 428-4073 don@tinaja.com support
% via http://www.tinaja.com All commercial rights and all electronic
% media rights **FULLY** reserved. Reposting is expressly forbidden.
%%%%%%%%%%% links menu directory %%%%%%%%%%%%
% This code locks pdfmark commands out of a PostScript printer.
/pdfmark where {pop}{userdict /pdfmark /cleartomark load put} ifelse
% /surl "start url" marks the beginning of a text sequence to be urled.
% It also paints the text blue...
/surl {mark /blue cvx 0.33 /setgray cvx % change text to blue
/currentpoint cvx % remember box start
/urly /exch cvx /store cvx
/urlx /exch cvx /store cvx
] cvx % complete deferred command
printlist exch 3 index exch put % stuff into gonzo printlist
exch 1 add exch % increment gonzo list count
} def
% /eurl "end url" unmarks the end of a text sequence and sets up
% the pdfmark needed to define the Acrobat web link.
/eurl {mark % start deferred proc
exch % position url string
% /black cvx 0 /setgray cvx % turn blue marker off
% maintextcolor /setrgbcolor cvx % reset to main text color???
/aqua cvx /black cvx
/makeurl cvx % defer call of url builder
] cvx % complete deferred proc
printlist exch 3 index exch % stuff into gonzo printlist
put exch 1 add exch % increment gonzo list count
} def
% /makeurl generates the pdfmark, receiving a {(urlstring) makeurl}.
% Note that it is not called until formatted printlist time...
/urlover 0.2 def % fraction of hot area over bounds
/makeurl { /cururlname exch store % save the url string
mark % start pdfmark
currentfont /ScaleMatrix get 3 get /fsize exch store % guess height
/Rect [ urlx fsize urlover mul sub % set box left x
urly fsize urlover mul sub % set box left y
currentpoint
exch fsize urlover mul add exch
fsize add
]
/Border [ 0 0 0] % [0 0 0 ] = none; [0 0 2] = debug
/Color [ .7 0 0 ]
/Action <>
/Subtype /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 /Link
/ANN % annotation type
pdfmark % call pdf operators
} def
/maintextcolor {0 0 0 } def
% text link specific data -- use dictionary instead below
{
/cubic01 {(http://www.tinaja.com/cubic01.asp) eurl} def
/hack62 {(http://www.tinaja.com/glib/hack62.pdf) eurl} def
/increment {(http://www.tinaja.com/text/bezgen3.html) eurl} def
/interpolate {(http://members.bellatlantic.net/~vze2vrva/design.html) eurl } def
/bezmath {(http://www.tinaja.com/text/bezmath.html) eurl } def
/table {(http://www.tinaja.com/psutils/imtable.psl) eurl } def
} pop
% dictionary method
<< %zzzzz
%%%% unused links have been commented for gg9a simplicity
/weblib01 (http://www.tinaja.com/weblib01.asp)
/govliq (https://www.govliquidation.com/login?page=/account/main)
/revealdemo (http://www.influentialcomputers.co.uk/meta-reveal-demo.asp)
/bouncy (http://www.tinaja.com/glib/bouncy.pdf)
/friedeggs (http://www.htmlgoodies.com/beyond/revealTransFilter.html)
/sierra (http://www.sierraauction.com)
/autourl (http://www.tinaja.com/glib/autourl.pdf)
/msintro1 (http://www.tinaja.com/glib/msintro1.pdf)
/msintrosource (http://www.tinaja.com/glib/msintro1.psl)
/knockout (http://www.tinaja.com/glib/knockout.bmp)
/stepsynt (http://www.tinaja.com/glib/stepsynt.pdf)
/msintro1 (http://www.tinaja.com/glib/msintro1.pdf)
/msinprop (http://www.tinaja.com/glib/msinprop.pdf)
/muse106 (http://www.tinaja.com/glib/muse106.pdf)
/muse142 (http://www.tinaja.com/glib/muse142.pdf)
/math01 (http://www.tinaja.com/math01.asp)
/cubic01 (http://www.tinaja.com/cubic01.asp)
/bez4pts (http://www.tinaja.com/glib/bez4pts.pdf)
/muse145 (http://www.tinaja.com/glib/muse145.pdf)
/muse148 (http://www.tinaja.com/glib/muse148.pdf)
/curveft3 (http://www.tinaja.com/psutils/curveft3.psl)
/fuzzybez (http://www.tinaja.com/glib/fuzzybez.pdf)
/bmprpt01 (http://www.tinaja.com/psutils/bmprpt01.psl)
/nowhit01 (http://www.tinaja.com/psutils/nowhit01.psl)
/blender (http://www.tinaja.com/psutils/blender.psl)
/speedup2 (http://www.tinaja.com/glib/speedup2.pdf)
/histog01 (http://www.tinaja.com/psutils/histog01.psl)
/imgviewer32 (http://www.arcatapet.net/imgv32.cfm)
/basis (http://www.tinaja.com/glib/basis.pdf)
/expbmp (http://www.tinaja.com/glib/expbmp.pdf)
/dodbur01 (http://www.tinaja.com/psutils/dodbur01.psl)
/dodgebur (http://www.tinaja.com/glib/dodgebur.pdf)
/magfill1 (http://www.tinaja.com/psutils/magfill1.psl)
/swingt01 (http://www.tinaja.com/psutils/swingt01.psl)
/before01 (http://www.tinaja.com/images/bargs/marcon01.jpg)
/during01 (http://www.tinaja.com/images/bargs/marcon01.bmp)
/after01 (http://www.tinaja.com/images/bargs/marconz1.jpg)
/repobmp (http://www.tinaja.com/glib/repobmp.pdf)
/basis01 (http://www.tinaja.com/glib/basis.pdf)
/arcata (http://www.arcatapet.net/imgv32.cfm)
/comparebmp (http://www.designer-info.com/Writing/bmp_tiff_jpeg_gif.htm)
/imagimag (http://www.tinaja.com/glib/imagimag.pdf)
/myebays (http://www.tinaja.com/glib/myebays.pdf)
/stepprep (http://www.tinaja.com/glib/stepprep.pdf)
/aafont01 (http://www.tinaja.com/aafont01.asp)
/here1 (http://village.infoweb.ne.jp/~fwhw1257/study/bmpform.htm)
/here2 (http://www.daubnet.com/formats/BMP.html)
/bittype (http://www.tinaja.com/psutils/pdf2bmp.psl)
/photocombine (http://www.tinaja.com/psutils/blender.psl)
/psl (http://www.tinaja.com/psutils/) % dummy temp
/psl1 (http://www.tinaja.com/psutils/pdf2bmp.psl)
/psl2 (http://www.tinaja.com/psutils/acatdata.psl)
/psl3 (http://www.tinaja.com/psutils/catwords.psl)
/psl4 (http://www.tinaja.com/psutils/graburls.psl)
/psl5 (http://www.tinaja.com/psutils/blender.psl)
/psl6 (http://www.tinaja.com/psutils/catools1.psl)
/psl7 (http://www.tinaja.com/psutils/strconv.html)
/psl8 (http://www.tinaja.com/psutils/bodcat.psl)
/psl9 (http://www.tinaja.com/psutils/flatvue1.psl)
/psl10 (http://www.tinaja.com/psutils/fern2img.psl)
/psl11 (http://www.tinaja.com/psutils/flutools.psl)
/psl12 (http://www.tinaja.com/psutils/mscal156q.psl)
/psl13 (http://www.tinaja.com/psutils/weblogu2.psl)
/psl14 (http://www.tinaja.com/psutils/pfa2pfb.psl)
/psl15 (http://www.tinaja.com/psutils/pfb2pfa.psl)
/psl16 (http://www.tinaja.com/glib/psdisk03.psl)
/psl17 (http://www.tinaja.com/psutils/disktool.psl)
/psl18 (http://www.tinaja.com/glib/psinscrt.psl)
/psl19 (http://www.tinaja.com/glib/pssearch.psl)
/psl20 (http://www.tinaja.com/text/refsum1.html)
/psl21 (http://www.tinaja.com/text/reflog1.html)
/psl22 (http://www.tinaja.com/psutils/reflog1.psl)
/psl23 (http://www.tinaja.com/psutils/refsum1.psl)
/psl24 (http://www.tinaja.com/psutils/searepl.psl)
/psl25 (http://www.tinaja.com/psutils/weberru2.psl)
/psl26 (http://www.tinaja.com/psutils/grabsrch.psl)
/psl27 (http://www.tinaja.com/psutils/grabrefs.psl)
/magsn01 (http://www.tinaja.com/magsn01.asp)
/gonzoutils (http://www.tinaja.com/post01.asp#gonzo)
/disktool (http://www.tinaja.com/psutils/disktool.ps)
/elesimp (http://www.tinaja.com/glib/elesimp.pdf)
/tn5603 (http://partners.adobe.com/asn/developer/pdfs/tn/TN5603.Filters.pdf)
/fern2img (http://www.tinaja.com/psutils/fern2img.psl)
/fern (http://www.tinaja.com/psutils/fern2img.pdf)
/oldfern (http://www.tinaja.com/psutils/fernx1.pdf)
/acrosdk (http://partners.adobe.com/asn/developer/acrosdk/main.html)
/refman2 (http://partners.adobe.com/asn/developer/pdfs/tn/psrefman.pdf)
/refman3 (http://partners.adobe.com/asn/developer/pdfs/tn/PLRM.pdf)
/s3011 (http://partners.adobe.com/asn/developer/pdfs/tn/PS3010and3011.Supplement.pdf)
/s2011 (http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2011.supplement.pdf)
/s2012
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2012.supplement.pdf)
/s2013
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2013.supplement.pdf)
/s2014
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2014.supplement.pdf)
/s2015
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2015.supplement.pdf)
/s2016
(http://ftp.ktug.or.kr/obsolete/info/adobe/devtechnotes/pdffiles/ps2016.supplement.pdf)
/ghost (http://www.cs.wisc.edu/~ghost/)
/distlang (http://www.tinaja.com/psutils/distlang.html)
/adobepst (http://partners.adobe.com/asn/developer/technotes/)
/maildon (mailto:don@tinaja.com)
/tinaja (http://www.tinaja.com)
/adobe (http://www.adobe.com)
/adobesdk (http://partners.adobe.com/asn/developer/acrosdk/main.html)
/pstrans (http://www.tinaja.com/glib/pstrans.pdf)
/borland (http://www.borland.com/products/downloads/download_cbuilder.html)
/ebay
(http://cgi6.ebay.com/ws/eBayISAPI.dll?ViewSellersOtherItems&userid=abeja&completed=0&sort=2&since=-1&include=0&page=1&rows=100)
/searepl (http://www.tinaja.com/psutils/searepl.psl)
/aasdk (http://www.tinaja.com/plugins/AboutAcrobatSDK.api)
/uncomp (http://www.tinaja.com/plugins/UncompressPDF.api)
/addimage (http://www.tinaja.com/plugins/AddImage.api)
/samplejpg (http://www.tinaja.com/plugins/sample.jpg)
/transparency (http://www.tinaja.com/plugins/Transparency.api)
/threerects (http://www.tinaja.com/plugins/threerects.pdf)
/watermark (http://www.tinaja.com/plugins/Watermark.api)
/verifyurls (http://www.tinaja.com/plugins/VerifyURLS.api)
/flate (http://www.tinaja.com/glib/flatvue.pdf)
/pstrans (http://www.tinaja.com/glib/pstrans.pdf)
/advt01 (http://www.tinaja.com/advt01.asp)
/amlink01 (http://www.tinaja.com/amlink01.asp)
/ng1 (news:///comp.text.pdf)
/ng2 (news:///comp.lang.postscript)
/msc++ (http://msdn.microsoft.com/visualc/productinfo/default.asp)
/degub (http://www.tinaja.com/glib/degub.pdf)
/ghostscript (http://www.artifex.com/pressreleases/GS70.htm)
/demox.psl (http://www.tinaja.com/glib/g9demox.psl)
/demox.pdf (http://www.tinaja.com/glib/g9demox.pdf)
/demo.pdf (http://www.tinaja.com/glib/g9demo.pdf)
/flatvue (http://www.tinaja.com/glib/flatvue.psl)
/pdfrefman (http://partners.adobe.com/asn/developer/acrosdk/docs.html)
/psrefman
(http://partners.adobe.com/asn/developer/technotes/postscript.html)
/pdfmrm
(http://partners.adobe.com/asn/developer/acrosdk/docs.html)
/tipdf
(http://partners.adobe.com/asn/developer/acrosdk/docs.html)
/asdk
(http://partners.adobe.com/asn/developer/acrosdk)
/mtcr (http://support.adobe.com/devsup/devsup.nsf/docs/51864.htm)
/flatvue1 (http://www.tinaja.com/psutils/flatvue1.psl)
/acrob01 (http://www.tinaja.com/acrob01.asp)
/post01 (http://www.tinaja.com/post01.asp)
/info01 (http://www.tinaja.com/info01.asp)
/gurgrm01 (http://www.tinaja.com/gurgrm01.asp)
{
/tilley (http://www.tilleyfoundation.com)
/mnglobal (http://www.mnglobal.com/energy/pg2.htm)
/keely (http://www.keelynet.com)
/evolve (http://www.evolvedtechnology.com)
/hack64 (http://www.tinaja.com/glib/hack64.pdf)
/hackar3 (http://www.tinaja.com/glib/hackar3.pdf)
/resbn58 (http://www.tinaja.com/glib/resbn58.pdf)
/bppt (http://www.batterypoweronline.com)
/muse112 (http://www.tinaja.com/glib/muse112.pdf)
/muse113 (http://www.tinaja.com/glib/muse113.pdf)
/energfun (http://www.tinaja.com/glib/energfun.pdf)
/bashpseu (http://www.tinaja.com/glib/bashpseu.pdf)
/adobe (http://www.adobe.com)
/netscape (http://www.netscape.com)
/gallypsl (http://www.tinaja.com/galley1.psl)
/gallypdf (http://www.tinaja.com/galley1.pdf)
/atn5150 (http://partners.adobe.com/asn/developer/acrosdk/docs/createpdfapi/pdfmarkReference.pdf)
/nutour (http://www.tinaja.com/bargains/nutour02.pdf)
/nutoursource (http://www.tinaja.com/bargains/nutour02.psl)
/bwhistle (http://www.tinaja.com/glib/bwhistle.pdf)
/gonzo1 (http://www.tinaja.com/post01.asp#gonzo)
/barg01 (http://www.tinaja.com/barg01.asp)
/weblib01 (http://www.tinaja.com/weblib01.asp)
/gurgrm01 (http://www.tinaja.com/gurgrm01.asp)
/z1 (http://www.tinaja.com/bargains/thumb/albradz2.jpg)
/z2 (http://www.tinaja.com/bargains/sbtesteq.asp)
/z3 (http://www.tinaja.com/images/bargs/albrad02.jpg)
/z4 (http://www.tinaja.com/bargains/thumb/tutenaz2.jpg)
/z5 (http://www.tinaja.com/bargains/sbphone.asp)
/z6 (http://www.tinaja.com/images/bargs/tutena02.jpg)
/sourceme (http://www.tinaja.com/glib/gallery.psl)
/sourceme2 (http://www.tinaja.com/glib/autourl.psl)
} pop
>> {mark exch /eurl cvx ] cvx def} forall
%%%%%%%%%%%%%%%% New colorizer patches %%%%%%%%%%%%%%%%%%
/boxgrays 0.899 def
/grayshade boxgrays def
/mastergray boxgrays def
/staytint {0.33 setgray} def
/staytint1 {0.25 setgray} def
/showadgrays true def
/red {0 settint} def
/Zmacro {staytint /ypos ypos 2 add def 72 300 div setlinewidth xpos
ypos moveto
txtwide 0 rlineto stroke /ypos ypos -2 add def tintoff} def % hair rule
/amacro {(zy0) stringmacro /ypos
ypos ypara add def 0.33 setgray } def % start drop cap
/bmacro {(iFy1) stringmacro /ypos
ypos ypara add def black} def % finish drop cap
% Gonzo character colorizer
/blueon {mark /blue cvx 0.33 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/blueoff {mark /beige cvx 0 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton {mark 0.33 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1 {mark 0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1b {mark beige cvx % try for aqua after url???
0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1a {mark /aqua cvx % try for aqua after url???
0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1p {mark /burple cvx % try for aqua after url???
0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1r {mark /red cvx % try for aqua after url???
0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1a {mark /aqua cvx % try for aqua after url???
0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tinton1b {mark /beige cvx % try for beige after url???
0.25 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
/tintoff {mark 0 /setgray cvx] cvx
printlist exch 3 index exch put exch 1 add exch} def
%%%%%%%%%%%%%% COMPACT VERSION OF COLORIZER II %%%%%%%%%%%%%%%%%%%%%%
/settint {dup /currenttint exch store 5.999 mul dup floor cvi /&cbar
exch store dup floor sub /&cwt exch store [
{/setgray [ /dup cvx 0.3 &cwt 0.59 mul add /ge cvx
[1 /exch cvx &cwt 0.59 mul 0.30 add /sub cvx 1 &cwt sub
0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul cvx
&cwt /add cvx /exch cvx ] cvx [ &cwt 0.59 mul 0.3 add /div
cvx /dup cvx &cwt /mul cvx 0] cvx /ifelse cvx /setrgbcolor
cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub 0.3 mul add /ge cvx
[1 &cwt sub 0.3 mul 0.59 add /sub cvx &cwt 0.3 mul 0.11 add
/div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx /exch cvx
1 /exch cvx] cvx [1 &cwt sub 0.3 mul 0.59 add /div cvx /dup
cvx 1 &cwt sub /mul cvx /exch cvx 0] cvx /ifelse cvx
/setrgbcolor cvx] cvx /def cvx}
{/setgray [/dup cvx 0.59 &cwt 0.11 mul add /ge cvx [&cwt
0.11 mul 0.59 add /sub cvx 1 &cwt sub 0.11 mul 0.30 add
/div cvx /dup cvx 1 &cwt sub /mul cvx &cwt /add cvx 1 /exch
cvx] cvx [0 /exch cvx &cwt 0.11 mul 0.59 add /div cvx /dup cvx
&cwt /mul cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
/def cvx}
{/setgray [/dup cvx 0.59 1 &cwt sub mul 0.11 add /ge cvx [1 &cwt
sub 0.59 mul 0.11 add /sub cvx &cwt 0.59 mul 0.30 add /div cvx
/dup cvx &cwt /mul cvx 1 &cwt sub /add cvx 1] cvx [0 /exch cvx
1 &cwt sub 0.59 mul 0.11 add /div cvx /dup cvx 1 &cwt sub /mul
cvx /exch cvx] cvx /ifelse cvx /setrgbcolor cvx] cvx
/def cvx}
{/setgray [/dup cvx 0.11 &cwt 0.30 mul add /ge cvx[&cwt 0.30 mul
0.11 add /sub cvx 1 &cwt sub 0.30 mul 0.59 add /div cvx /dup
cvx 1 &cwt sub /mul cvx &cwt /add cvx /exch cvx 1] cvx [ &cwt
0.30 mul 0.11 add /div cvx /dup cvx &cwt /mul cvx /exch cvx 0
/exch cvx ] cvx /ifelse cvx /setrgbcolor cvx ] cvx /def cvx}
{/setgray [ /dup cvx 0.30 1 &cwt sub 0.11 mul add /ge cvx[ 1
/exch cvx 1 &cwt sub 0.11 mul 0.30 add /sub cvx &cwt 0.11 mul
0.59 add /div cvx /dup cvx &cwt /mul cvx 1 &cwt sub /add cvx
] cvx [ 1 &cwt sub 0.11 mul 0.30 add /div cvx /dup cvx
1 &cwt sub /mul cvx 0 /exch cvx] cvx /ifelse cvx /setrgbcolor
cvx ] cvx /def cvx}
] &cbar get exec exec} bind def
/beige {0.10 settint} def % examples of convenience operators
/aqua {0.52 settint} def
/blue {0.67 settint} def
/lime {0.44 settint} def
/burple {0.75 settint} def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/guru { gonzo begin
ps.util.1 begin printerror nuisance begin} def %
guru % activate gonzo utilities
50 50 10 setgrid % create grid
% 56 61 showgrid
/setpagefonts {
/cstretch 0.015 def
/sstretch 0.015 def
/font0 /StoneSans-Bold 1.6 gonzofont
/font1 /StoneSans 0.95 gonzofont
/font2 /StoneSans [0.95 0 0.25 0.95 0 0 ] gonzofont
/font4 /StoneSans 0.85 gonzofont
/font3 /StoneSans-Bold 0.85 gonzofont
/font6 /StoneSans-Bold 0.85 gonzofont
/font7 /StoneSans-Bold 1.05 gonzofont % subheaders
/font8 /StoneSans-Bold [0.65 0 0 0.65 0 0.4] gonzofont
/txtwide 36 store
/yinc 1.2 store
/kern 0.1 store
/pm 1.5 store
aqua 0.33 setgray
font1
black
/amacro { mark /aqua cvx 0.33 /setgray cvx ] cvx
printlist exch 3 index exch % stuff into gonzo printlist
put exch 1 add exch } def
/bmacro { mark /black cvx ] cvx
printlist exch 3 index exch % stuff into gonzo printlist
put exch 1 add exch } def
/shiftin {xpos /xposhold exch store /xpos xpos 3 add store} def
/shiftinx {xpos /xposhold exch store /xpos xpos 9 add store} def
/shiftout {/xpos xposhold store} def
/texttop 51 store
/textleft 3 store
/cmacro {aqua 0.25 setgray (znhL7) stringmacro
/xpos xpos 1.7 sub store
/ypos ypos .1 sub def
} def % left title
/dmacro {black (pL1hz) stringmacro
/xpos xpos 1.7 add store
/ypos ypos .1 add def} def % normal text after centered title
/fmacro % try and fake |
{mark /gsave cvx
/currentpoint cvx
/moveto cvx
0.1 /setlinewidth cvx
0 0.65 /rlineto cvx /stroke cvx
/grestore cvx
] cvx
printlist exch 3 index exch put % stuff into gonzo printlist
exch 1 add exch % increment gonzo list count
} def
} def
setpagefonts
% -2 50.5 (optional header here \274) cl
%% Set document opening conventions. Note DOCVIEW limited.
[/CropBox [0 0 520 620] % set the wierd size
/PAGES pdfmark
[ {Catalog} <<
/ViewerPreferences << /FitWindow true /CenterWindow true >>
/PageLayout /OneColumn % continous
/Pagemode /UseNone % no thumbs
/View [/XYZ null null 1 ] % force 100%
>>
/PUT pdfmark
%%%%%%%%%%%%%%%%% START DEMO ART (not in use) %%%%%%%%%%%%%%%%
%%% Hand patching Info:
% next available variable is /GS3
% transparency gstate is object 2
% contents stream is object 18 gets q /GS3 gs (xstuff) Q
% be sure to q Q bracket to localize
% resources stream is object 19 gets /GS3 2 0 R
/transoverlay {
% make a new graphics state
[ /_objdef {newgsstate} /type /dict /OBJ pdfmark
% fill the new overlay graphics state - See PDF manual for details
[ {newgsstate}
<<
/Type /ExtGState
/ca 0.5 % fill transparency is 0.5
/CA 0.5 % stroke transparency is 0.5
/BM /Normal
/AIS false
/OP false
/OPM 1
/op true
>> /PUT
pdfmark
% start a Begin Picture graphics overlay subroutine...
[ /BBox [0 0 1000 1000 ] /_objdef {overlaypix} /BP pdfmark
% fill the Begin Picture graphics overlay Xobject subroutine...
0 0.5 1 setrgbcolor % on the aqua side of blue
4 4 6 6 rectfill
% complete the Begin Picture graphics overlay Xobject...
[ /EP pdfmark
} def
% Write a two squares program...
/twosquares { gsave translate
1 0.5 0 setrgbcolor % red side of orange
2 2 6 6 rectfill % do background opaque box
[ {overlaypix} /SP pdfmark % show foreground transparent box
grestore} def
% Distill the two squares program. Initially use a BARE Distiller Job
% Options that has no compression, no embedded fonts, and little else
save /snap1 exch store
%%% transoverlay % create new objects
%%% 14 17.5 twosquares
snap1 restore
%%%%%%%%%%%% END DEMO %%%%%%%
%%%%%%%%%%%% PHOTO INSERTS %%%%%%%%%%
% When photos are needed, they are inserted here. Comment out otherwise.
%%%%%%%%% photo links %%%%%%%%%
/pixfilename1 (C:\\windows\\desktop\\aaraw_pix\\flashfix.jpg) def
/figure1 {12.5 37 200 200 pixfilename1 jpegimageproc} def % image link
/pixfilename4 (C:\\windows\\desktop\\aaraw_pix\\dintcjx1.jpg) def
/figure4 {12.5 0 225 202 pixfilename3 jpegimageproc} def % image link
/hotspot1 { 0 0 20.5 14.3
(http://www.tinaja.com/images/bargs/marcon01.jpg) setareaurl} def
/hotspot3 { 12.5 0 30 15.5
(http://www.tinaja.com/images/bargs/dintcj01.jpg) setareaurl} def
/photoscale 0.075 store
/jpegimageproc { % hoffset voffset hres vres
save /snap2 exch def
/infilename exch store % grab passed pix file
/vpixels exch store
/hpixels exch store
translate % adjust position for final figure ???
electronics begin
/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
end
ypos snap2 restore /ypos exch def
} def
%%%%%%%%%%%%%%%%%%%%%% HOTSPOTS %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% manually positioned area url click..
/setareaurl { /cururlname exch store % save the url string
/ury exch store
/urx exch store
/lly exch store
/llx exch store
mark % start pdfmark
/Rect [ llx lly urx ury]
/Border [ 0 0 0] % [0 0 0 ] = none; [0 0 2] = debug
/Color [ .7 0 0 ]
/Action <>
/Subtype /Link
/ANN % annotation type
pdfmark % call pdf operators
} def
%%%%%%%%%%%%%
/burpwide 29.5 store
/burplebox3 {save /burp1 exch store
xpos ypos translate -1 .2 mt 3.5 yinc mul .4 add pd burpwide pr 3.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox2 {save /burp1 exch store
xpos ypos translate -1 .2 mt 2.5 yinc mul .4 add pd burpwide pr 2.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox2.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 3 yinc mul .4 add pd burpwide pr 3 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox4 {save /burp1 exch store
xpos ypos translate -1 .2 mt 4.5 yinc mul .4 add pd burpwide pr 4.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox4.5 {save /burp1 exch store
xpos ypos translate
-1 .2 mt 5 yinc mul .4 add pd burpwide pr 5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox5 {save /burp1 exch store
xpos ypos translate
-1 .2 mt 5.5 yinc mul .4 add pd burpwide pr 5.5 yinc mul .4 add pu closepath
0.9 setgray fill
true {special5 } if
burp1 restore
} def
/burplebox6 {
save /burp1 exch store
xpos ypos translate -1 .2 mt 6.5 yinc mul .4 add pd burpwide pr 6.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox7.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 8 yinc mul .4 add pd burpwide pr 8 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox8 {save /burp1 exch store
xpos ypos translate -1 .2 mt 8.5 yinc mul .4 add pd burpwide pr 8.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox9 {save /burp1 exch store
xpos ypos translate -1 .2 mt 9.5 yinc mul .4 add pd burpwide pr 9.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox10 {save /burp1 exch store
xpos ypos translate -1 .2 mt 10.5 yinc mul .4 add pd burpwide pr 10.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox11 {save /burp1 exch store
xpos ypos translate -1 .2 mt 11.5 yinc mul .4 add pd burpwide pr 11.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox12 {save /burp1 exch store
xpos ypos translate -1 .2 mt 12.5 yinc mul .4 add pd burpwide pr 12.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox12.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 12.5 yinc mul .4 add pd burpwide pr 12.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burpcom {save /burpx exch store /bht exch store
save /burp1 exch store
xpos ypos translate -1 .2 mt bht yinc mul .4 add pd burpwide pr bht yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore} store
/burplebox5.5 {6 burpcom} store
/burplebox7 {7.5 burpcom} store
/burplebox13 {13.5 burpcom} store
/burplebox13.5 {14 burpcom} store
/burplebox14 {14.5 burpcom} store
/burplebox14.5 {15 burpcom} store
/burplebox26 {26.5 burpcom} store
/burplebox26h {gsave /bht 26.5 store bht burpcom
/bwd 3.25 store % vertical highlight column?
xpos ypos translate -1 .2 mt bht yinc mul .4 add pd
bwd pr
bht yinc mul .4 add pu closepath
0.7 setgray fill grestore } store
/burplebox15.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 16 yinc mul .4 add pd burpwide pr 16 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox17 {save /burp1 exch store
xpos ypos translate -1 .2 mt 17.5 yinc mul .4 add pd burpwide pr 17.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox20 {save /burp1 exch store
xpos ypos translate -1 .2 mt 20.5 yinc mul .4 add pd burpwide pr 20.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox23 {save /burp1 exch store
xpos ypos translate -1 .2 mt 23.5 yinc mul .4 add pd burpwide pr 23.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox26.5 {save /burp1 exch store
xpos ypos translate -1 .2 mt 27 yinc mul .4 add pd burpwide pr 27 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox30 {save /burp1 exch store
xpos ypos translate -1 .2 mt 30.5 yinc mul .4 add pd burpwide pr 30.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
/burplebox36 {save /burp1 exch store
xpos ypos translate -1 .2 mt 36.5 yinc mul .4 add pd burpwide pr 36.5 yinc mul .4 add pu closepath
0.9 setgray fill burp1 restore
} def
%%%%%%%%%%% figure 1 routine
% autopositions on box6
%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%% TWO PATTERNS %%%%%%%%%%%%%%
/ivoryrndcolor [230 230 205 40] store % random pattern colors [red blue green variance ]
/magentarndcolor [230 100 230 120]store
/makepatternstrings {
[230 210 190 80] buildpixels
magentarndcolor /accentpatstring exch store
ivoryrndcolor buildpixels
makeimagestring /bodypatstring exch store
} store
/burppatstrings {
ivoryrndcolor buildpixels
makeimagestring /bodypatstring exch store
magentarndcolor buildpixels
makeimagestring /accentpatstring exch store
} store
/DeviceRGB setcolorspace % pick color model
/hpixels 50 store % size of pattern image
/vpixels 50 store
/issize hpixels vpixels mul store
% makestring converts a stack top array into a string...
/makestring {dup length string dup /NullEncode filter
3 -1 roll {1 index exch write} forall pop} def
% /buildpixels makes three nearby colors given [r b g texture] all 0-255 integers
/buildpixels {aload pop /texture exch store /b0 exch store /g0 exch store /r0 exch store 123 srand
/r1 r0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/g1 g0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/b1 b0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/r2 r0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/g2 g0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/b2 b0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/r3 r0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/g3 g0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
/b3 b0 texture random texture 2 div sub add cvi
dup 255 ge {pop 255}if dup 0 lt {pop 0} if store
} store
% /makeimagestring creates a sting usable for a pattern image
/makeimagestring { 12345 srand % make repeatable
/iarray mark issize { r1 g1 b1} repeat ] store % fill all with color 1
issize 2 div cvi { iarray issize % fill half with color 2
random 3 mul cvi [ r2 g2 b2 ]
putinterval} repeat
issize 2 div cvi { iarray issize % fill third with color 3
random 3 mul cvi [ r3 g3 b3 ]
putinterval} repeat
iarray makestring
} store
% /rndimage shows the random string as a patternable image
/bodyrandimage {
gsave 5 dup scale
<< % start image dicationary
/ImageType 1 % always one
/Width hpixels % width in pixels
/Height vpixels % height in pixels
/ImageMatrix [hpixels
0 0
vpixels neg
0
vpixels ]
/DataSource bodypatstring % proc to get string data
/BitsPerComponent 8 % color resolution
/Decode [0 1 0 1 0 1] % per red book 4.10
>>
image % call the image
grestore
} def
/accentrandimage {
gsave 5 dup scale
<< % start image dicationary
/ImageType 1 % always one
/Width hpixels % width in pixels
/Height vpixels % height in pixels
/ImageMatrix [hpixels
0 0
vpixels neg
0
vpixels ]
/DataSource accentpatstring % proc to get string data
/BitsPerComponent 8 % color resolution
/Decode [0 1 0 1 0 1] % per red book 4.10
>>
image % call the image
grestore
} def
% using a separate pattern dictionary for each pattern...
/bodypatdict
<< /PatternType 1 % Tiling pattern
/PaintType 1 % Colored
/TilingType 1
/BBox [0 0 50 50]
/XStep 5
/YStep 5
/PaintProc { begin bodyrandimage end}
>> store
/accentpatdict
<< /PatternType 1 % Tiling pattern
/PaintType 1 % Colored
/TilingType 1
/BBox [0 0 50 50]
/XStep 5
/YStep 5
/PaintProc { begin accentrandimage end}
>> store
/burpbackmain { save /snapbb exch store
save /snapb exch store % show the body background
bodypatdict
matrix % Identity matrix
makepattern % Instantiate the pattern
/bodypat exch def
4 0 % for the actual slide size
12 8
/Pattern setcolorspace
bodypat setcolor rectfill % Fill rectangle with pattern
snapb restore
4 0 12 8 line1 black rectstroke
save /snapy exch store % show the accent
accentpatdict
matrix % Identity matrix
makepattern % Instantiate the pattern
/accentpat exch def
18.5 0 12 8
4 copy
/Pattern setcolorspace
accentpat setcolor rectfill % Fill rectangle with pattern
snapy restore
18.5 0 12 8 line1 black rectstroke
snapbb restore } store
/figure3 {save /snap3 exch store
translate
% 34 8 showgrid
makepatternstrings
burppatstrings
% burpbackstrings
burpbackmain
snap3 restore } store
%%%%%%%%%%%%%%% end figure3
/special5 {gsave 4 -5.85 translate
line1 black
0.3 0 mt 0.3 l 5.2 u 0.3 r
13.2 0 mt 0.3 r 5.2 u 0.3 l
15.3 0 mt 0.3 l 5.2 u 0.3 r
18.3 0 mt 0.3 r 5.2 u 0.3 l grestore
} store
/xkernon {/kernsave kern store /kern 0.18 store } def
/xkernoff {/kern kernsave store} def
/pagenum 1 store
/startnewpage {
black beige 0.35 setgray
21 -2.5 (|3\320|j) pagenum 10 string cvs mergestr (|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 [11 15] store
% /font7 /helvetica [0.7 0 0 0.7 0 0.5] gonzofont
font1
aqua 0.33 setgray
font0
20 47.3 0.7 add 1 sub 1 add (Website |jVideo |jWipes |jand) cc
20 45.3 0.7 add (Fades |jand |jDissolves) cc
black
font2
textleft 43 0.3 add % this one only need |h below
(|/aqua |/staytint1 |3Don Lancaster
Synergetics, Box 809, Thatcher, AZ 85552
copyright c2003 as |/surl |6GuruGram|1|/gurgrm01 |/tinton1 |6#21
|/surl http://www.tinaja.com|/tinaja
|/surl don@tinaja.com|/maildon
(928) 428-4073
|/aqua |/black
|a|0M|b|1|jost of the more recent releases of the Windows operating system include a display |/to RevealTrans|/tx filter that allows on-screen video wipes, fades, and dissolves. Apparently an "old" and a "new" screen image are buffer held while selectively being mask-switched of mask-blended during a chosen time transition.
|h
The fade and wipe routines are easily accessed by JavaScript, Visual Basic, by the full screen mode in |/su Acrobat|1|/acrob01 , and elsewhere. By adding surprisingly short and simple code to your website HTML, you can also access these features for web page display. Access happens when you pass along two numeric |/to Duration|/tx and |/to Transition|/tx values and invoke the |/to RevealTrans|/tx filter.
|h
Per this easily included code\274
|6|/shiftin |/aqua |/burplebox4.5 |/staytint1
|h
|1|/shiftout |/aqua |/black
Either or both can be inserted at the beginning of your HTML code. The first produces transitions on page exit; the second on site exit. The |/to Duration|/tx value is the time delay in seconds. A duration of zero disables the effect.
|h
You can also do a blended transition between old and new screens by using the related |/to BlendTrans|/tx command\274
|6|/shiftin |/burplebox2 |/staytint1
|1|/shiftout |/aqua |/black
There apparently is only one obvious blending option, so no |/to Transition|/tx passthru variable is needed.
|h
The |/to Transition|/tx selects an effect from this available list\274
) cl
startnewpage
/tabs [0.2 3] store
/burpwide 16 store
/resetboxwidth {/burpwide 29.5 store} store
(|6|/shiftinx |/burplebox26h |/staytint1
|t 0 |tinward box
|t 1 |toutward box
|t 2 |tinward circle
|t 3 |toutward circle
|t 4 |tupward wipe
|h
|t 5 |tdownward wipe
|t 6 |twipe to right
|t 7 |twipe to left
|t 8 |tvertical blind
|t 9 |thorizontal blind
|h
|t10 |tcheckerboard across
|t11 |tcheckerboard down
|t12 |tdissolve randomly
|t13 |tinward vertical split
|t14 |toutward vertical split
|h
|t15 |tinward horiz split
|t16 |toutward horiz split
|t17 |tstri|jpes left downward
|t18 |tstri|jpes left upward
|t19 |tstri|jpes right downward
|h
|t20 |tstri|jpes right upward
|t21 |thorizontal random bars
|t22 |tvertical random bars
|t23 |trandom choice of 0-22
|1|/shiftout |/aqua |/black
A demo of the various effects can be |/su found here|1|/revealdemo . While a website that makes fairly good use of circular transitions |/su appears here|1|/sierra . (See viewing note below.)
|h
You can also limit the size of the |/to RevealTrans|/tx effects to specific screen areas. Such as this JavaScript |/su "disappearing fried eggs"|1|/friedeggs demo and sourcecode. Or these rather effective |/su "color fadein"|1|/govliq buttons.
|c
Some Cautions
|d
An important rule\274
|6|/shiftin |/resetboxwidth |/burplebox2 |/staytint1
|h
A little bit of "golly gee Mister Science" goes a long way!
|1|/shiftout |/aqua |/black
What can be cute or attractive at first glance can easily get old in a hurry. Viewing something |/to once|/tx can be attractive, yet quickly get annoying on repeats. While this may be just what you want on a presentation to keep people awake or announce a slide has changed, too much glitz can quickly become too much glitz.
) cl
startnewpage
/tabs [14.5] store
/burpwide 29.5 store
(Thus, you should\274
|6|/shiftin |/burplebox2 |/staytint1
|h
Carefully evaluate whether any effect is a genuine asset.
|1|/shiftout |/aqua |/black
|h
Several other restrictions: The method does |/to not|/tx work on Netscape 4.9 or lower. It also may have wildly different results on non-Windows platforms. Thus you may restrict your audience with these techniques.
|h
Further, these fades and wipes invariably |/to add|/tx to the display time. Your viewer |/to will|/tx be slowed down in their nav whenever they are used. Again, you will have to determine the tradeoff of whether the additional viewing time is worth the effect presence.
|h
Note that the time delays might appear even longer, for the old screen will be |/to held|/tx for the time it takes to get enough new screen for display. This additional delay depends on the page content and the data rate, but can be quite lenghty.
|h
Sadly, |/su Adobe|1|/adobe steadfastly refuses to let you run full screen .PDF or use these transitions from within a browser. Thus, you'll have to actually download any .PDF file before being able to use these fades and wipes.
|h
Also, please note that the above |/su wipe demo|1|/revealdemo link will |/to not|/tx work if called from within an Acrobat Reader. Instead, you'll have to manually enter the url into your |/to rebooted|/tx browser to view the desired effects. Same for the |/su Circular Demo|1|/sierra .
|h
Finally, if your web page backgrounds happen to be off by a pixel or two from each other, very disconcerting shifts may degrade the appearance. While these shifts are easily avoided by using |/su .ASP Files|1|/bouncy and especially their |/to include|/tx feature, problems easily can pile up on any complex or older websites.
|h
I've yet to decide what if any effects I want to add to my |/su Guru's Lair|1|/tinaja website. After experimenting for a while, I felt that these seem to just barely miss for me.
|h
But might be eminently appropriate elsewhere.
|h
|c
For More Help
|d
Additional background along with related utilities and tutorials appears on our |/su GuruGram|1|/gurgrm01 , |/su Webmastering|1|/weblib01 , |/su Acrobat|1|/acrob01 , and |/su Fonts & Bitmaps|1|/aafont01 library pages.
|h
Consulting assistance on any and all of these and related topics can be found at |/surl |6http://www.tinaja.com/info01.asp|1|/info01 . As can our web development services.
|h
Additional |/surl |6GuruGrams|1|/gurgrm01 await your ongoing support as a |/surl |6Synergetics Partner|1|/advt01 .
) cl
startnewpage
%%%%%%%%%%%%%%%%%%%%
% EOF