A perfect joke

A perfect joke

[Christopher Tipper]

[-- Attachment #1: Type: text/plain, Size: 262 bytes --]

Hi you guys,

Thanks for the help with this. Attached for your entertainment...

Enjoy!
Christopher
---------------------------------------------------------------------
   Nil Desperandum Illegitimi 
   -- Don't let the bastards get you down (~Ovid)


[-- Attachment #2: joke.tex --]
[-- Type: text/plain, Size: 4026 bytes --]

% The Perfect Man and The Perfect Woman
%               -- an open-source joke!
% Idea adopted from http://home.att.net/~viseguy/fun.html
%               created 28-October-2000

\setupoutput
  [pdftex]

\setuppapersize
  [S6][S6]

% \useJSscripts[fld]

\setupbodyfont
  [ber,pos,12pt]

\setuplayout
  [header=.5cm,
   topspace=1cm,
   leftmargin=.5cm,
   rightmargin=.5cm,
   width=fit,
   footer=1cm,
   height=middle]

\setupwhitespace[1ex]

\setupinterlinespace[line=2.9ex]

\setuppagenumbering
  [state=stop]

\definecolor [DarkGrey]   [s=.6]
\definecolor [MediumGrey] [s=.8]
\definecolor [LightGrey]  [s=.9]

\setupinteraction
  [state=start]

\setupinteractionscreen
  [option=max,
   width=fit,
   height=fit]

\setupcolors
  [state=start]

\setupinteraction
  [state=start,
   style=,
   color=DarkGrey,
   contrastcolor=,
   menu=on]

\setupitemize
  [color=DarkGrey]

\defineparagraphs
  [myoptions][n=2]

\setupparagraphs
  [myoptions][1][width=.4\textwidth]
\setupparagraphs
  [myoptions][2][width=.6\textwidth]

\starttext

\startbuffer[woman]
CORRECT!!

The perfect woman survived. She's the only one who really existed
in the first place. Everyone knows there is no Santa Claus and
there is no such thing as a perfect man.
\stopbuffer

\startbuffer[driving]
So, if there is no perfect man and no Santa Claus, the perfect
woman must have been driving. This explains why there was an
accident!
\stopbuffer

\startbuffer[instructions]
By the way, if you're a woman reading this, this illustrates
another point: Women never follow instructions!
\stopbuffer

\startbuffer[wish]
Send this joke to:

1 person---Your wish won't come true; but you will have good luck
for a year.

2 people---Your wish will come true in a year.

5 people---Your wish will come true in a month.

10 people---Your wish will come true in a week.

15 people---Your wish will come true tomorrow.

20 people---Your wish will come true within 2 hrs'
\stopbuffer

\pagereference[beginning]

\ss Once upon a time, a perfect man and a perfect woman met.
After a perfect courtship they had a perfect wedding. Their life
together was, of course, perfect.

One snowy, stormy Christmas Eve, this perfect couple was driving
their perfect car along a winding road when they noticed someone
up ahead in distress. Being the perfect couple, they stopped to
help. There stood Santa Claus with a huge bundle of toys. Not
wanting to disappoint children on the eve of Christmas, the
perfect couple loaded Santa and his toys into their car. Soon
they were driving along delivering toys.

Unfortunately, driving conditions deteriorated and the perfect
couple and Santa were in a terrible accident. Only one of the
three survived.

Who was the survivor?

Click on one of the following options:

\startmyoptions
% blank here
\myoptions
\startlines
\startitemize[n,broad]
\item \gotobox{The Man}[wrong]

\item \gotobox{The Woman}[page{nextpage}]

\item \gotobox{Santa Claus}[wrong]
\stopitemize
\stoplines
\stopmyoptions

\page

\startstandardmakeup
  \vfill
  \ssa\getbuffer[woman]
  \vfill
  \startnarrower
  If you are a woman, click \goto{here}[drivers]

  If you are a man, click \goto{here}[page{nextpage}]
  \stopnarrower
  \vfill
\stopstandardmakeup

\page
\startstandardmakeup
  \vfill
  \getbuffer[instructions]
  \vfill
  \midaligned{\goto{\ssb Finish}[theend]}
  \vfill
\stopstandardmakeup

\page\pagereference[drivers]
\startstandardmakeup
  \vfill
  \getbuffer[driving]
  \vfill
  \midaligned{\goto{\ssb Finish}[theend]}
  \vfill
\stopstandardmakeup

\page\pagereference[theend]
\startstandardmakeup
  \vfill
  \getbuffer[wish]
  \ssb\vfill
  \midaligned{\gotobox{\strut Return to the beginning}[beginning]}

  \midaligned{\goto{Exit}[ExitViewer]}
% \midaligned{\goto{Exit}[JS(Forget_Changes),CloseDocument]}
  \vfill
\stopstandardmakeup

\page\pagereference[wrong]
\startstandardmakeup
  \setupalign[middle]
  \ssc\vfill\midaligned{You're WRONG!!!}
  \vfill
  \midaligned{\gotobox{\strut Go Back}[beginning]}
  \vfill
\stopstandardmakeup

\stoptext

Re: A perfect joke

[Hans Hagen]

At 06:35 PM 10/28/00 +0100, Christopher Tipper wrote:
>Hi you guys,
>
>Thanks for the help with this. Attached for your entertainment...
>
>Enjoy!

Sure. Of course i guessed wrong -) 

This joke document also demonstrates the difference between goto and
gotobox, compare:

\goto{option one}[..]

\gotobox{option one}[..]

\goto{option~one}[..]

\goto{\box{option one}}[..]

\button{option one}[..]

and also: 

{\bfd \goto{option one}}

{\bfd \setstrut \goto{option one}}

watch the inverted area when you click. This is typically a field where tex
can beat acrobat: using \goto instead of \gotobox 

btw, to answer a previous question, 

  \setuplocation[split=no] 

will disable splitting and 

  \setuplocation[strut=no]

will disable the strut and optimization. 

BTW, splitting is not as ineffective as one may espect since context will
minimize pdf resoures as much as possible in the process of multiple same
refs and chained refs.  

Hans 

-------------------------------------------------------------------------
                                                  Hans Hagen | PRAGMA ADE
                      Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
 tel: +31 (0)38 477 53 69 | fax: +31 (0)38 477 53 74 | www.pragma-ade.com
-------------------------------------------------------------------------