From: fdaniel@laas.laas.fr (Canard)
Newsgroups: alt.drugs
Subject: Improved gravity bong
Date: 10 Jan 93 14:41:32 GMT

This is a postscript file

Any comment to fdaniel@laas.laas.fr
Flames to /dev/null

            Canard

(This is a 29500 Kbyte sig file)
----------- cut here -----------
%!
%%BoundingBox: (atend)
%%Pages: (atend)
%%DocumentFonts: (atend)
%%EndComments
%
% FrameMaker PostScript Prolog 2.0, for use with FrameMaker 2.0
% Copyright (c) 1986,87,89 by Frame Technology, Inc.  All rights reserved.
%
% Known Problems:
%	Due to bugs in Transcript, the 'PS-Adobe-' is omitted from line 1
/FMversion (2.0) def 
% Set up Color vs. Black-and-White
	/FMPrintInColor systemdict /colorimage known def
% Uncomment this line to force b&w on color printer
%   /FMPrintInColor false def
/FrameDict 190 dict def 
systemdict /errordict known not {/errordict 10 dict def
		errordict /rangecheck {stop} put} if
% The readline in 23.0 doesn't recognize cr's as nl's on AppleTalk
FrameDict /tmprangecheck errordict /rangecheck get put 
errordict /rangecheck {FrameDict /bug true put} put 
FrameDict /bug false put 
mark 
% Some PS machines read past the CR, so keep the following 3 lines together!
currentfile 5 string readline
00
0000000000
cleartomark 
errordict /rangecheck FrameDict /tmprangecheck get put 
FrameDict /bug get { 
	/readline {
		/gstring exch def
		/gfile exch def
		/gindex 0 def
		{
			gfile read pop 
			dup 10 eq {exit} if 
			dup 13 eq {exit} if 
			gstring exch gindex exch put 
			/gindex gindex 1 add def 
		} loop
		pop 
		gstring 0 gindex getinterval true 
		} def
	} if
/FMVERSION {
	FMversion ne {
		/Times-Roman findfont 18 scalefont setfont
		100 100 moveto
		(FrameMaker version does not match postscript_prolog!)
		dup =
		show showpage
		} if
	} def 
/FMLOCAL {
	FrameDict begin
	0 def 
	end 
	} def 
	/gstring FMLOCAL
	/gfile FMLOCAL
	/gindex FMLOCAL
	/orgxfer FMLOCAL
	/orgproc FMLOCAL
	/organgle FMLOCAL
	/orgfreq FMLOCAL
	/yscale FMLOCAL
	/xscale FMLOCAL
	/manualfeed FMLOCAL
	/paperheight FMLOCAL
	/paperwidth FMLOCAL
/FMDOCUMENT { 
	array /FMfonts exch def 
	/#copies exch def
	FrameDict begin
	0 ne dup {setmanualfeed} if
	/manualfeed exch def
	/paperheight exch def
	/paperwidth exch def
	setpapername
	manualfeed {true} {papersize} ifelse 
	{manualpapersize} {false} ifelse 
	{desperatepapersize} if
	/yscale exch def
	/xscale exch def
	currenttransfer cvlit /orgxfer exch def
	currentscreen cvlit /orgproc exch def
	/organgle exch def /orgfreq exch def
	end 
	} def 
	/pagesave FMLOCAL
	/orgmatrix FMLOCAL
	/landscape FMLOCAL
/FMBEGINPAGE { 
	FrameDict begin 
	/pagesave save def
	3.86 setmiterlimit
	/landscape exch 0 ne def
	landscape { 
		90 rotate 0 exch neg translate pop 
		}
		{pop pop}
		ifelse
	xscale yscale scale
	/orgmatrix matrix def
	gsave 
	} def 
/FMENDPAGE {
	grestore 
	pagesave restore
	end 
	showpage
	} def 
/FMDEFINEFONT { 
	FrameDict begin
	findfont 
	ReEncode 
	2 index exch 
	definefont exch 
	scalefont 
	FMfonts 3 1 roll 
	put
	end 
	} bind def
/FMNORMALIZEGRAPHICS { 
	newpath
	0.0 0.0 moveto
	1 setlinewidth
	0 setlinecap
	0 0 0 sethsbcolor
	0 setgray 
	} bind def
	/fx FMLOCAL
	/fy FMLOCAL
	/fh FMLOCAL
	/fw FMLOCAL
	/llx FMLOCAL
	/lly FMLOCAL
	/urx FMLOCAL
	/ury FMLOCAL
/FMBEGINEPSF { 
	end 
	/FMEPSF save def 
	/showpage {} def 
	FMNORMALIZEGRAPHICS 
	[/fy /fx /fh /fw /ury /urx /lly /llx] {exch def} forall 
	fx fy translate 
	rotate
	fw urx llx sub div fh ury lly sub div scale 
	llx neg lly neg translate 
	} bind def
/FMENDEPSF {
	FMEPSF restore
	FrameDict begin 
	} bind def
FrameDict begin 
/setmanualfeed {
%%BeginFeature *ManualFeed True
	 statusdict /manualfeed true put
%%EndFeature
	} def
/max {2 copy lt {exch} if pop} bind def
/min {2 copy gt {exch} if pop} bind def
/inch {72 mul} def
/pagedimen { 
	paperheight sub abs 16 lt exch 
	paperwidth sub abs 16 lt and
	{/papername exch def} {pop} ifelse
	} def
	/papersizedict FMLOCAL
/setpapername { 
	/papersizedict 14 dict def 
	papersizedict begin
	/papername /unknown def 
		/Letter 8.5 inch 11.0 inch pagedimen
		/LetterSmall 7.68 inch 10.16 inch pagedimen
		/Tabloid 11.0 inch 17.0 inch pagedimen
		/Ledger 17.0 inch 11.0 inch pagedimen
		/Legal 8.5 inch 14.0 inch pagedimen
		/Statement 5.5 inch 8.5 inch pagedimen
		/Executive 7.5 inch 10.0 inch pagedimen
		/A3 11.69 inch 16.5 inch pagedimen
		/A4 8.26 inch 11.69 inch pagedimen
		/A4Small 7.47 inch 10.85 inch pagedimen
		/B4 10.125 inch 14.33 inch pagedimen
		/B5 7.16 inch 10.125 inch pagedimen
	end
	} def
/papersize {
	papersizedict begin
		/Letter {lettertray} def
		/LetterSmall {lettertray lettersmall} def
		/Tabloid {11x17tray} def
		/Ledger {ledgertray} def
		/Legal {legaltray} def
		/Statement {statementtray} def
		/Executive {executivetray} def
		/A3 {a3tray} def
		/A4 {a4tray} def
		/A4Small {a4tray a4small} def
		/B4 {b4tray} def
		/B5 {b5tray} def
		/unknown {unknown} def
	papersizedict dup papername known {papername} {/unknown} ifelse get
	end
	/FMdicttop countdictstack 1 add def
	statusdict begin stopped end 
	countdictstack -1 FMdicttop {pop end} for
	} def
/manualpapersize {
	papersizedict begin
		/Letter {letter} def
		/LetterSmall {lettersmall} def
		/Tabloid {11x17} def
		/Ledger {ledger} def
		/Legal {legal} def
		/Statement {statement} def
		/Executive {executive} def
		/A3 {a3} def
		/A4 {a4} def
		/A4Small {a4small} def
		/B4 {b4} def
		/B5 {b5} def
		/unknown {unknown} def
	papersizedict dup papername known {papername} {/unknown} ifelse get
	end
	stopped 
	} def
/desperatepapersize {
	statusdict /setpageparams known
		{
		paperwidth paperheight 0 1 
		statusdict begin
		{setpageparams} stopped pop 
		end
		} if
	} def
/savematrix {
	orgmatrix currentmatrix pop
	} bind def
/restorematrix {
	orgmatrix setmatrix
	} bind def
/dmatrix matrix def
/dpi    72 0 dmatrix defaultmatrix dtransform
    dup mul exch   dup mul add   sqrt def
/freq dpi 18.75 div 8 div round dup 0 eq {pop 1} if 8 mul dpi exch div def
/sangle 1 0 dmatrix defaultmatrix dtransform exch atan def
/DiacriticEncoding [
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/.notdef /.notdef /.notdef /.notdef /space /exclam /quotedbl
/numbersign /dollar /percent /ampersand /quotesingle /parenleft
/parenright /asterisk /plus /comma /hyphen /period /slash /zero /one
/two /three /four /five /six /seven /eight /nine /colon /semicolon
/less /equal /greater /question /at /A /B /C /D /E /F /G /H /I /J /K
/L /M /N /O /P /Q /R /S /T /U /V /W /X /Y /Z /bracketleft /backslash
/bracketright /asciicircum /underscore /grave /a /b /c /d /e /f /g /h
/i /j /k /l /m /n /o /p /q /r /s /t /u /v /w /x /y /z /braceleft /bar
/braceright /asciitilde /.notdef /Adieresis /Aring /Ccedilla /Eacute
/Ntilde /Odieresis /Udieresis /aacute /agrave /acircumflex /adieresis
/atilde /aring /ccedilla /eacute /egrave /ecircumflex /edieresis
/iacute /igrave /icircumflex /idieresis /ntilde /oacute /ograve
/ocircumflex /odieresis /otilde /uacute /ugrave /ucircumflex
/udieresis /dagger /.notdef /cent /sterling /section /bullet
/paragraph /germandbls /registered /copyright /trademark /acute
/dieresis /.notdef /AE /Oslash /.notdef /.notdef /.notdef /.notdef
/yen /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
/ordfeminine /ordmasculine /.notdef /ae /oslash /questiondown
/exclamdown /logicalnot /.notdef /florin /.notdef /.notdef
/guillemotleft /guillemotright /ellipsis /.notdef /Agrave /Atilde
/Otilde /OE /oe /endash /emdash /quotedblleft /quotedblright
/quoteleft /quoteright /.notdef /.notdef /ydieresis /Ydieresis
/fraction /currency /guilsinglleft /guilsinglright /fi /fl /daggerdbl
/periodcentered /quotesinglbase /quotedblbase /perthousand
/Acircumflex /Ecircumflex /Aacute /Edieresis /Egrave /Iacute
/Icircumflex /Idieresis /Igrave /Oacute /Ocircumflex /.notdef /Ograve
/Uacute /Ucircumflex /Ugrave /dotlessi /circumflex /tilde /macron
/breve /dotaccent /ring /cedilla /hungarumlaut /ogonek /caron
] def
/ReEncode { 
	dup 
	length 
	dict begin 
	{
	1 index /FID ne 
		{def} 
		{pop pop} ifelse 
	} forall
	Encoding StandardEncoding eq 
	{
		/Encoding DiacriticEncoding def
	}if
	currentdict 
	end 
	} bind def
/graymode true def
	/bwidth FMLOCAL
	/bpside FMLOCAL
	/bstring FMLOCAL
	/onbits FMLOCAL
	/offbits FMLOCAL
	/xindex FMLOCAL
	/yindex FMLOCAL
	/x FMLOCAL
	/y FMLOCAL
/setpattern {
	 /bwidth  exch def
	 /bpside  exch def
	 /bstring exch def
	 /onbits 0 def  /offbits 0 def
	 freq sangle landscape {90 add} if 
		{/y exch def
		 /x exch def
		 /xindex x 1 add 2 div bpside mul cvi def
		 /yindex y 1 add 2 div bpside mul cvi def
		 bstring yindex bwidth mul xindex 8 idiv add get
		 1 7 xindex 8 mod sub bitshift and 0 ne
		 {/onbits  onbits  1 add def 1}
		 {/offbits offbits 1 add def 0}
		 ifelse
		}
		setscreen
	 {} settransfer
	 offbits offbits onbits add div FMsetgray
	/graymode false def
	} bind def
/grayness {
	FMsetgray
	graymode not {
		/graymode true def
		orgxfer cvx settransfer
		orgfreq organgle orgproc cvx setscreen
		} if
	} bind def
	/HUE FMLOCAL
	/SAT FMLOCAL
	/BRIGHT FMLOCAL
	/Colors FMLOCAL
FMPrintInColor 
	
	{
	/HUE 0 def
	/SAT 0 def
	/BRIGHT 0 def
	% array of arrays Hue and Sat values for the separations [HUE BRIGHT]
	/Colors   
	[[0    0  ]    % black
	 [0    0  ]    % white
	 [0.00 1.0]    % red
	 [0.37 1.0]    % green
	 [0.60 1.0]    % blue
	 [0.50 1.0]    % cyan
	 [0.83 1.0]    % magenta
	 [0.16 1.0]    % comment / yellow
	 ] def
      
	/BEGINBITMAPCOLOR { 
		BITMAPCOLOR} def
	/BEGINBITMAPCOLORc { 
		BITMAPCOLORc} def
	/K { 
		Colors exch get dup
		0 get /HUE exch store 
		1 get /BRIGHT exch store
		  HUE 0 eq BRIGHT 0 eq and
			{1.0 SAT sub setgray}
			{HUE SAT BRIGHT sethsbcolor} 
		  ifelse
		} def
	/FMsetgray { 
		/SAT exch 1.0 exch sub store 
		  HUE 0 eq BRIGHT 0 eq and
			{1.0 SAT sub setgray}
			{HUE SAT BRIGHT sethsbcolor} 
		  ifelse
		} bind def
	}
	
	{
	/BEGINBITMAPCOLOR { 
		BITMAPGRAY} def
	/BEGINBITMAPCOLORc { 
		BITMAPGRAYc} def
	/FMsetgray {setgray} bind def
	/K { 
		pop
		} def
	}
ifelse
/normalize {
	transform round exch round exch itransform
	} bind def
/dnormalize {
	dtransform round exch round exch idtransform
	} bind def
/lnormalize { 
	0 dtransform exch cvi 2 idiv 2 mul 1 add exch idtransform pop
	} bind def
/H { 
	lnormalize setlinewidth
	} bind def
/Z {
	setlinecap
	} bind def
/X { 
	fillprocs exch get exec
	} bind def
/V { 
	gsave eofill grestore
	} bind def
/N { 
	stroke
	} bind def
/M {newpath moveto} bind def
/E {lineto} bind def
/D {curveto} bind def
/O {closepath} bind def
	/n FMLOCAL
/L { 
 	/n exch def
	newpath
	normalize
	moveto 
	2 1 n {pop normalize lineto} for
	} bind def
/Y { 
	L 
	closepath
	} bind def
	/x1 FMLOCAL
	/x2 FMLOCAL
	/y1 FMLOCAL
	/y2 FMLOCAL
	/rad FMLOCAL
/R { 
	/y2 exch def
	/x2 exch def
	/y1 exch def
	/x1 exch def
	x1 y1
	x2 y1
	x2 y2
	x1 y2
	4 Y 
	} bind def
/RR { 
	/rad exch def
	normalize
	/y2 exch def
	/x2 exch def
	normalize
	/y1 exch def
	/x1 exch def
	newpath
	x1 y1 rad add moveto
	x1 y2 x2 y2 rad arcto
	x2 y2 x2 y1 rad arcto
	x2 y1 x1 y1 rad arcto
	x1 y1 x1 y2 rad arcto
	closepath
	16 {pop} repeat
	} bind def
/C { 
	grestore
	gsave
	R 
	clip
	} bind def
/U { 
	grestore
	gsave
	} bind def
/F { 
	FMfonts exch get
	setfont
	} bind def
/T { 
	moveto show
	} bind def
/RF { 
	rotate
	0 ne {-1 1 scale} if
	} bind def
/TF { 
	gsave
	moveto 
	RF
	show
	grestore
	} bind def
/P { 
	moveto
	0 32 3 2 roll widthshow
	} bind def
/PF { 
	gsave
	moveto 
	RF
	0 32 3 2 roll widthshow
	grestore
	} bind def
/S { 
	moveto
	0 exch ashow
	} bind def
/SF { 
	gsave
	moveto
	RF
	0 exch ashow
	grestore
	} bind def
/B { 
	moveto
	0 32 4 2 roll 0 exch awidthshow
	} bind def
/BF { 
	gsave
	moveto
	RF
	0 32 4 2 roll 0 exch awidthshow
	grestore
	} bind def
	/x FMLOCAL
	/y FMLOCAL
	/dx FMLOCAL
	/dy FMLOCAL
	/dl FMLOCAL
	/t FMLOCAL
	/t2 FMLOCAL
	/Cos FMLOCAL
	/Sin FMLOCAL
	/r FMLOCAL
/W { 
	dnormalize
	/dy exch def
	/dx exch def
	normalize
	/y  exch def
	/x  exch def
	/dl dx dx mul dy dy mul add sqrt def
	dl 0.0 gt {
		/t currentlinewidth def
		savematrix
		/Cos dx dl div def
		/Sin dy dl div def
		/r [Cos Sin Sin neg Cos 0.0 0.0] def
		/t2 t 2.5 mul 3.5 max def
		newpath
		x y translate
		r concat
		0.0 0.0 moveto
		dl t 2.7 mul sub 0.0 rlineto
		stroke
		restorematrix
		x dx add y dy add translate
		r concat
		t 0.67 mul setlinewidth
		t 1.61 mul neg  0.0 translate
		0.0 0.0 moveto
		t2 1.7 mul neg  t2 2.0 div     moveto
		0.0 0.0 lineto
		t2 1.7 mul neg  t2 2.0 div neg lineto
		stroke
		t setlinewidth
		restorematrix
		} if
	} bind def
/G { 
	gsave
	newpath
	normalize translate 0.0 0.0 moveto 
	dnormalize scale 
	0.0 0.0 1.0 5 3 roll arc 
	closepath fill
	grestore
	} bind def
/A { 
	gsave
	savematrix
	newpath
	2 index 2 div add exch 3 index 2 div sub exch 
	normalize 2 index 2 div sub exch 3 index 2 div add exch 
	translate 
	scale 
	0.0 0.0 1.0 5 3 roll arc 
	restorematrix
	stroke
	grestore
	} bind def
	/x FMLOCAL
	/y FMLOCAL
	/w FMLOCAL
	/h FMLOCAL
	/xx FMLOCAL
	/yy FMLOCAL
	/ww FMLOCAL
	/hh FMLOCAL
	/FMsaveobject FMLOCAL
	/FMoptop FMLOCAL
	/FMdicttop FMLOCAL
/BEGINPRINTCODE { 
	/FMdicttop countdictstack 1 add def 
	/FMoptop count 4 sub def 
	/FMsaveobject save def
	userdict begin 
	/showpage {} def 
	FMNORMALIZEGRAPHICS 
	3 index neg 3 index neg translate
	} bind def
/ENDPRINTCODE {
	count -1 FMoptop {pop pop} for 
	countdictstack -1 FMdicttop {pop end} for 
	FMsaveobject restore 
	} bind def
/gn { 
	0 
	{	46 mul 
		cf read pop 
		32 sub 
		dup 46 lt {exit} if 
		46 sub add 
		} loop
	add 
	} bind def
	/str FMLOCAL
/cfs { 
	/str sl string def 
	0 1 sl 1 sub {str exch val put} for 
	str def 
	} bind def
/ic [ 
	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
	0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0223
	0
	{0 hx} {1 hx} {2 hx} {3 hx} {4 hx} {5 hx} {6 hx} {7 hx} {8 hx} {9 hx}
	{10 hx} {11 hx} {12 hx} {13 hx} {14 hx} {15 hx} {16 hx} {17 hx} {18 hx}
	{19 hx} {gn hx} {0} {1} {2} {3} {4} {5} {6} {7} {8} {9} {10} {11} {12}
	{13} {14} {15} {16} {17} {18} {19} {gn} {0 wh} {1 wh} {2 wh} {3 wh}
	{4 wh} {5 wh} {6 wh} {7 wh} {8 wh} {9 wh} {10 wh} {11 wh} {12 wh}
	{13 wh} {14 wh} {gn wh} {0 bl} {1 bl} {2 bl} {3 bl} {4 bl} {5 bl} {6 bl}
	{7 bl} {8 bl} {9 bl} {10 bl} {11 bl} {12 bl} {13 bl} {14 bl} {gn bl}
	{0 fl} {1 fl} {2 fl} {3 fl} {4 fl} {5 fl} {6 fl} {7 fl} {8 fl} {9 fl}
	{10 fl} {11 fl} {12 fl} {13 fl} {14 fl} {gn fl}
	] def
	/sl FMLOCAL
	/val FMLOCAL
	/ws FMLOCAL
	/im FMLOCAL
	/bs FMLOCAL
	/cs FMLOCAL
	/len FMLOCAL
	/pos FMLOCAL
/ms { 
	/sl exch def 
	/val 255 def 
	/ws cfs 
	/im cfs 
	/val 0 def 
	/bs cfs 
	/cs cfs 
	} bind def
400 ms 
/ip { 
	is 
	0 
	cf cs readline pop 
	{	ic exch get exec 
		add 
		} forall 
	pop 
	
	} bind def
/wh { 
	/len exch def 
	/pos exch def 
	ws 0 len getinterval im pos len getinterval copy pop
	pos len 
	} bind def
/bl { 
	/len exch def 
	/pos exch def 
	bs 0 len getinterval im pos len getinterval copy pop
	pos len 
	} bind def
/s1 1 string def
/fl { 
	/len exch def 
	/pos exch def 
	/val cf s1 readhexstring pop 0 get def
	pos 1 pos len add 1 sub {im exch val put} for
	pos len 
	} bind def
/hx { 
	3 copy getinterval 
	cf exch readhexstring pop pop 
	} bind def
	/h FMLOCAL
	/w FMLOCAL
	/d FMLOCAL
	/lb FMLOCAL
	/bitmapsave FMLOCAL
	/is FMLOCAL
	/cf FMLOCAL
/wbytes { 
	dup 
	8 eq {pop} {1 eq {7 add 8 idiv} {3 add 4 idiv} ifelse} ifelse
	} bind def
/BEGINBITMAPBWc { 
	1 {} COMMONBITMAPc
	} bind def
/BEGINBITMAPGRAYc { 
	8 {} COMMONBITMAPc
	} bind def
/BEGINBITMAP2BITc { 
	2 {} COMMONBITMAPc
	} bind def
/COMMONBITMAPc { 
	/r exch def
	/d exch def
	gsave
	translate rotate scale /h exch def /w exch def
	/lb w d wbytes def 
	sl lb lt {lb ms} if 
	/bitmapsave save def 
	r                    
	/is im 0 lb getinterval def 
	ws 0 lb getinterval is copy pop 
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{ip} image 
	bitmapsave restore 
	grestore
	} bind def
/BEGINBITMAPBW { 
	1 {} COMMONBITMAP
	} bind def
/BEGINBITMAPGRAY { 
	8 {} COMMONBITMAP
	} bind def
/BEGINBITMAP2BIT { 
	2 {} COMMONBITMAP
	} bind def
/COMMONBITMAP { 
	/r exch def
	/d exch def
	gsave
	translate rotate scale /h exch def /w exch def
	/bitmapsave save def 
	r                    
	/is w d wbytes string def
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{cf is readhexstring pop} image
	bitmapsave restore 
	grestore
	} bind def
	/proc1 FMLOCAL
	/proc2 FMLOCAL
	/newproc FMLOCAL
/Fmcc {
    /proc2 exch cvlit def
    /proc1 exch cvlit def
    /newproc proc1 length proc2 length add array def
    newproc 0 proc1 putinterval
    newproc proc1 length proc2 putinterval
    newproc cvx
} bind def
/ngrayt 256 array def
/nredt 256 array def
/nbluet 256 array def
/ngreent 256 array def
	/gryt FMLOCAL
	/blut FMLOCAL
	/grnt FMLOCAL
	/redt FMLOCAL
	/indx FMLOCAL
	/cynu FMLOCAL
	/magu FMLOCAL
	/yelu FMLOCAL
	/k FMLOCAL
	/u FMLOCAL
/colorsetup {
	currentcolortransfer
	/gryt exch def
	/blut exch def
	/grnt exch def
	/redt exch def
	0 1 255 {
		/indx exch def
		/cynu 1 red indx get 255 div sub def
		/magu 1 green indx get 255 div sub def
		/yelu 1 blue indx get 255 div sub def
		/k cynu magu min yelu min def
		/u k currentundercolorremoval exec def
		nredt indx 1 0 cynu u sub max sub redt exec put
		ngreent indx 1 0 magu u sub max sub grnt exec put
		nbluet indx 1 0 yelu u sub max sub blut exec put
		ngrayt indx 1 k currentblackgeneration exec sub gryt exec put
	} for
	{255 mul cvi nredt exch get}
	{255 mul cvi ngreent exch get}
	{255 mul cvi nbluet exch get}
	{255 mul cvi ngrayt exch get}
	setcolortransfer
	{pop 0} setundercolorremoval
	{} setblackgeneration
	} bind def
	/tran FMLOCAL
/fakecolorsetup {
	/tran 256 string def
	0 1 255 {/indx exch def 
		tran indx
		red indx get 77 mul
		green indx get 151 mul
		blue indx get 28 mul
		add add 256 idiv put} for
	currenttransfer
	{255 mul cvi tran exch get 255.0 div}
	exch Fmcc settransfer
} bind def
/BITMAPCOLOR { 
	/d 8 def
	gsave
	translate rotate scale /h exch def /w exch def
	/bitmapsave save def 
	colorsetup
	/is w d wbytes string def
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{cf is readhexstring pop} {is} {is} true 3 colorimage 
	bitmapsave restore 
	grestore
	} bind def
/BITMAPCOLORc { 
	/d 8 def
	gsave
	translate rotate scale /h exch def /w exch def
	/lb w d wbytes def 
	sl lb lt {lb ms} if 
	/bitmapsave save def 
	colorsetup
	/is im 0 lb getinterval def 
	ws 0 lb getinterval is copy pop 
	/cf currentfile def 
	w h d [w 0 0 h neg 0 h] 
	{ip} {is} {is} true 3 colorimage
	bitmapsave restore 
	grestore
	} bind def
/BITMAPGRAY { 
	8 {fakecolorsetup} COMMONBITMAP
	} bind def
/BITMAPGRAYc { 
	8 {fakecolorsetup} COMMONBITMAPc
	} bind def
/ENDBITMAP {
	} bind def
end 
%%EndProlog
%%BeginSetup
(2.0) FMVERSION
1 1 595.3 841.9 0 1 7 FMDOCUMENT
/fillprocs 32 array def
fillprocs 0 { 0.000000 grayness } put
fillprocs 1 { 0.100000 grayness } put
fillprocs 2 { 0.300000 grayness } put
fillprocs 3 { 0.500000 grayness } put
fillprocs 4 { 0.700000 grayness } put
fillprocs 5 { 0.900000 grayness } put
fillprocs 6 { 0.970000 grayness } put
fillprocs 7 { 1.000000 grayness } put
fillprocs 8 {<0f87c3e1f0783c1e> 8 1 setpattern } put
fillprocs 9 {<0f1e3c78f0e1c387> 8 1 setpattern } put
fillprocs 10 {<cccccccccccccccc> 8 1 setpattern } put
fillprocs 11 {<ffff0000ffff0000> 8 1 setpattern } put
fillprocs 12 {<8142241818244281> 8 1 setpattern } put
fillprocs 13 {<8040201008040201> 8 1 setpattern } put
fillprocs 14 {<03060c183060c081> 8 1 setpattern } put
fillprocs 15 {} put
fillprocs 16 { 1.000000 grayness } put
fillprocs 17 { 0.900000 grayness } put
fillprocs 18 { 0.700000 grayness } put
fillprocs 19 { 0.500000 grayness } put
fillprocs 20 { 0.300000 grayness } put
fillprocs 21 { 0.100000 grayness } put
fillprocs 22 { 0.030000 grayness } put
fillprocs 23 { 0.000000 grayness } put
fillprocs 24 {<f0783c1e0f87c3e1> 8 1 setpattern } put
fillprocs 25 {<f0e1c3870f1e3c78> 8 1 setpattern } put
fillprocs 26 {<3333333333333333> 8 1 setpattern } put
fillprocs 27 {<0000ffff0000ffff> 8 1 setpattern } put
fillprocs 28 {<7ebddbe7e7dbbd7e> 8 1 setpattern } put
fillprocs 29 {<7fbfdfeff7fbfdfe> 8 1 setpattern } put
fillprocs 30 {<fcf9f3e7cf9f3f7e> 8 1 setpattern } put
fillprocs 31 {} put
%%EndSetup
0 14 /Times-Bold FMDEFINEFONT
1 36 /Times-Bold FMDEFINEFONT
2 30 /Times-Bold FMDEFINEFONT
3 12 /Times-Roman FMDEFINEFONT
4 24 /ZapfDingbats FMDEFINEFONT
5 12 /Symbol FMDEFINEFONT
6 12 /Helvetica FMDEFINEFONT
%%Page: "1" 1
%%BeginPaperSize: A4
%%EndPaperSize
595.3 841.9 1 FMBEGINPAGE
96.95 804.25 744.95 814.25 R
7 X
0 K
V
96.95 270.92 744.95 280.92 R
V
6 X
90 450 45 18 150.95 477.52 G
180 270 9 18 114.95 377.75 G
270 360 9 18 186.95 377.75 G
105.95 378.52 195.95 477.52 R
V
114.95 360.52 186.95 378.52 R
V
114.95 396.52 114.95 522.52 2 L
0.5 H
2 Z
0 X
N
186.95 396.52 186.95 522.52 2 L
N
114.95 522.52 M
 115.82 547.55 137.36 552.88 137.45 576.52 D
N
186.95 522.52 M
 186.07 547.55 164.53 552.88 164.45 576.52 D
N
180 270 36 13.5 150.95 396.52 A
270 360 36 13.5 150.95 396.52 A
90 180 36 13.5 150.95 396.52 A
0 90 36 13.5 150.95 396.52 A
7 X
180 270 17.82 5.94 150.72 577.96 G
0 X
180 270 17.82 5.94 150.72 577.96 A
7 X
270 360 17.82 5.94 150.72 577.96 G
0 X
270 360 17.82 5.94 150.72 577.96 A
7 X
90 180 17.82 5.94 150.72 589.84 G
0 X
90 180 17.82 5.94 150.72 589.84 A
7 X
0 90 17.82 5.94 150.72 589.84 G
0 X
0 90 17.82 5.94 150.72 589.84 A
132.9 589.84 132.9 577.96 2 L
7 X
V
0 X
N
168.54 589.84 168.54 577.96 2 L
7 X
V
0 X
N
134.39 586.87 M
 141.81 582.42 147.75 583.9 152.21 583.9 D
7 X
V
0 X
N
270 360 2.97 1.49 150.72 589.84 A
180 270 2.97 1.49 150.72 589.84 A
147.75 592.81 153.69 598.75 R
7 X
V
147.75 589.84 147.75 604.69 2 L
0 X
N
153.69 589.84 153.69 604.69 2 L
N
7 X
90 450 22.27 21.53 150.72 623.25 G
0 X
90 450 22.27 21.53 150.72 623.25 A
128.45 634.39 180.42 647.75 R
7 X
V
3 X
90 450 19.3 3.71 150.72 633.64 G
0 X
90 450 19.3 3.71 150.72 633.64 A
90 450 45 18 150.95 513.52 A
105.95 513.52 105.95 378.52 2 L
N
195.95 513.52 195.95 378.52 2 L
N
180 270 9 18 114.95 377.75 A
270 360 9 18 186.95 377.75 A
6 X
90 450 40.5 15.75 150.95 362 G
0 X
90 450 40.5 15.75 150.95 362 A
141.95 652.25 M
 121.38 674.54 160.12 672.74 165.29 683.25 D
 174.93 702.82 150.32 716.69 157.3 733.25 D
 163.38 747.69 134.76 748.84 141.38 763.25 D
 149.79 781.51 186.41 779.12 188.95 760.25 D
N
159.95 661.25 M
 172.9 687.94 201.93 656.63 210.3 687.25 D
 216.76 710.9 161.05 722.4 201.95 731.97 D
 209.49 733.74 220.18 731.09 228.95 732.59 D
 248.61 735.96 258.22 757.97 252.95 775.25 D
N
0 F
(Bowl) 213.95 610.19 T
(W) 204.95 547.19 T
(ater) 218.17 547.19 T
182.89 621.85 177.95 625.25 183.94 624.99 183.42 623.42 4 Y
V
204.95 616.25 182.47 623.74 2 L
N
162.03 496.79 159.95 490.26 158.26 496.9 160.14 496.84 4 Y
V
90 176 36 63 195.95 490.25 A
1 F
(Befor) 105.95 317.81 T
(e) 191.26 317.81 T
291.46 779.64 320.84 832.25 350.23 799.37 394.31 832.25 416.35 799.37 453.09 819.1 467.78 779.64
 519.21 799.37 519.21 759.91 555.95 733.6 519.21 713.87 526.55 680.99 489.82 700.72 460.43 667.83 431.05 694.14
 401.66 661.25 379.62 687.56 335.54 661.25 306.15 694.14 276.76 667.83 247.38 700.72 195.95 707.29 225.34 746.75
 195.95 786.21 247.38 779.64 262.07 819.1 291.46 779.64 27 L
7 X
V
0 X
N
2 F
(New impr) 227.06 743.47 T
(oved version) 353.99 743.47 T
(of the gravity bong) 249.7 717.16 T
0 F
(Inconveniences :) 222.95 450.19 T
(- the smoke is too harsh) 222.95 436.19 T
(- you have to put your) 222.95 422.19 T
(mouth on the bottleneck to) 222.95 408.19 T
(inhale) 222.95 394.19 T
6 X
90 450 45 18 474.95 477.52 G
180 270 9 18 438.95 377.75 G
270 360 9 18 510.95 377.75 G
429.95 378.52 519.95 477.52 R
V
438.95 360.52 510.95 378.52 R
V
438.95 396.52 438.95 522.52 2 L
0 X
N
510.95 396.52 510.95 522.52 2 L
N
438.95 522.52 M
 439.82 547.55 461.36 552.88 461.45 576.52 D
N
510.95 522.52 M
 510.07 547.55 488.53 552.88 488.45 576.52 D
N
180 270 36 13.5 474.95 396.52 A
270 360 36 13.5 474.95 396.52 A
90 180 36 13.5 474.95 396.52 A
0 90 36 13.5 474.95 396.52 A
90 450 45 18 474.95 513.52 A
429.95 513.52 429.95 378.52 2 L
N
519.95 513.52 519.95 378.52 2 L
N
180 270 9 18 438.95 377.75 A
270 360 9 18 510.95 377.75 A
6 X
90 450 40.5 15.75 474.95 362 G
0 X
90 450 40.5 15.75 474.95 362 A
1 F
(After) 436.66 317.81 T
471.56 574.75 M
 488.73 512.19 456.95 450.3 472.56 391.25 D
N
476.88 574.75 M
 494.06 512.19 462.27 450.3 477.88 391.25 D
N
7 X
180 270 17.82 5.94 474.72 577.96 G
0 X
180 270 17.82 5.94 474.72 577.96 A
7 X
270 360 17.82 5.94 474.72 577.96 G
0 X
270 360 17.82 5.94 474.72 577.96 A
7 X
90 180 17.82 5.94 474.72 589.84 G
0 X
90 180 17.82 5.94 474.72 589.84 A
7 X
0 90 17.82 5.94 474.72 589.84 G
0 X
0 90 17.82 5.94 474.72 589.84 A
456.9 589.84 456.9 577.96 2 L
7 X
V
0 X
N
492.54 589.84 492.54 577.96 2 L
7 X
V
0 X
N
458.39 586.87 M
 465.81 582.42 471.75 583.9 476.21 583.9 D
7 X
V
0 X
N
270 360 2.97 1.49 474.72 589.84 A
180 270 2.97 1.49 474.72 589.84 A
471.75 592.81 477.69 598.75 R
7 X
V
471.75 589.84 471.75 604.69 2 L
0 X
N
477.69 589.84 477.69 604.69 2 L
N
7 X
90 450 22.27 21.53 474.72 623.25 G
0 X
90 450 22.27 21.53 474.72 623.25 A
452.45 634.39 504.42 647.75 R
7 X
V
3 X
90 450 19.3 3.71 474.72 633.64 G
0 X
90 450 19.3 3.71 474.72 633.64 A
6 X
90 450 27 10.8 609.95 676.12 G
180 270 5.4 10.8 588.35 616.26 G
270 360 5.4 10.8 631.55 616.26 G
582.95 616.72 636.95 676.12 R
V
588.35 605.92 631.55 616.72 R
V
588.35 663.52 588.35 739.12 2 L
0 X
N
631.55 663.52 631.55 739.12 2 L
N
588.35 739.12 M
 588.87 754.13 601.8 757.33 601.85 771.52 D
N
631.55 739.12 M
 631.02 754.13 618.1 757.33 618.05 771.52 D
N
180 270 21.6 8.1 609.95 663.52 A
270 360 21.6 8.1 609.95 663.52 A
90 180 21.6 8.1 609.95 663.52 A
0 90 21.6 8.1 609.95 663.52 A
90 450 27 10.8 609.95 697.72 A
582.95 697.72 582.95 616.72 2 L
N
636.95 697.72 636.95 616.72 2 L
N
180 270 5.4 10.8 588.35 616.26 A
270 360 5.4 10.8 631.55 616.26 A
6 X
90 450 24.3 9.45 609.95 606.81 G
0 X
90 450 24.3 9.45 609.95 606.81 A
607.91 770.45 M
 618.22 732.92 599.15 695.78 608.51 660.36 D
N
611.11 770.45 M
 621.41 732.92 602.34 695.78 611.71 660.36 D
N
7 X
180 270 10.69 3.56 609.81 772.38 G
0 X
180 270 10.69 3.56 609.81 772.38 A
7 X
270 360 10.69 3.56 609.81 772.38 G
0 X
270 360 10.69 3.56 609.81 772.38 A
7 X
90 180 10.69 3.56 609.81 779.51 G
0 X
90 180 10.69 3.56 609.81 779.51 A
7 X
0 90 10.69 3.56 609.81 779.51 G
0 X
0 90 10.69 3.56 609.81 779.51 A
599.12 779.51 599.12 772.38 2 L
7 X
V
0 X
N
620.5 779.51 620.5 772.38 2 L
7 X
V
0 X
N
600.01 777.72 M
 604.47 775.05 608.03 775.94 610.7 775.94 D
7 X
V
0 X
N
270 360 1.78 0.89 609.81 779.51 A
180 270 1.78 0.89 609.81 779.51 A
608.03 781.29 611.6 784.85 R
7 X
V
608.03 779.51 608.03 788.42 2 L
0 X
N
611.59 779.51 611.59 788.42 2 L
N
7 X
90 450 13.36 12.92 609.81 799.55 G
0 X
90 450 13.36 12.92 609.81 799.55 A
596.45 806.23 627.63 814.25 R
7 X
V
3 X
90 450 11.58 2.23 609.81 805.79 G
0 X
90 450 11.58 2.23 609.81 805.79 A
6 X
90 450 27 10.8 612.22 449.52 G
270 360 5.4 10.8 633.82 389.66 G
180 270 5.4 10.8 590.62 389.66 G
585.22 390.12 639.22 449.52 R
V
590.63 379.32 633.82 390.12 R
V
633.82 400.92 633.82 476.52 2 L
0 X
N
590.63 400.92 590.63 476.52 2 L
N
633.82 476.52 M
 633.3 491.54 620.38 494.74 620.33 508.92 D
N
590.63 476.52 M
 591.15 491.54 604.07 494.74 604.12 508.92 D
N
270 360 21.6 8.1 612.22 400.92 A
180 270 21.6 8.1 612.22 400.92 A
0 90 21.6 8.1 612.22 400.92 A
90 180 21.6 8.1 612.22 400.92 A
90 450 27 10.8 612.22 471.12 A
639.22 471.12 639.22 390.12 2 L
N
585.22 471.12 585.22 390.12 2 L
N
270 360 5.4 10.8 633.82 389.66 A
180 270 5.4 10.8 590.62 389.66 A
6 X
90 450 24.3 9.45 612.23 380.21 G
0 X
90 450 24.3 9.45 612.23 380.21 A
7 X
270 360 10.94 3.64 612.36 509.4 G
0 X
270 360 10.94 3.64 612.36 509.4 A
7 X
180 270 10.94 3.64 612.36 509.4 G
0 X
180 270 10.94 3.64 612.36 509.4 A
7 X
0 90 10.94 3.64 612.36 516.69 G
0 X
0 90 10.94 3.64 612.36 516.69 A
7 X
90 180 10.94 3.64 612.36 516.69 G
0 X
90 180 10.94 3.64 612.36 516.69 A
623.3 516.69 623.3 509.4 2 L
7 X
V
0 X
N
601.43 516.69 601.43 509.4 2 L
7 X
V
0 X
N
622.39 514.87 M
 617.83 512.14 614.18 513.05 611.45 513.05 D
7 X
V
0 X
N
610.54 518.52 614.18 522.16 R
7 X
V
614.18 516.69 M
 608.72 551.32 636.05 558.61 652.8 553.55 D
 663.13 550.41 676.15 527.63 692.55 534.92 D
 699.03 537.82 704.8 556.18 708.95 562.25 D
0 X
N
610.54 516.69 M
 605.07 551.32 623.26 557.3 641.52 558.61 D
 667.03 560.43 670.68 538.56 687.08 538.56 D
 694.19 538.56 699.34 556.18 703.48 562.25 D
N
639.33 746.18 645.95 769.25 652.56 746.18 645.95 746.18 4 Y
V
645.95 697.25 645.95 747.18 2 L
4 H
N
670.56 423.32 663.95 400.25 657.33 423.32 663.95 423.32 4 Y
V
663.95 472.25 663.95 422.32 2 L
N
3 F
(When the bottle is full,) 690.95 490.25 T
(remove the bowl, pull) 690.95 478.25 T
(the tube, put it in your) 690.95 466.25 T
(mouth and inhale.) 690.95 454.25 T
(To fill the bottle :) 681.95 769.25 T
(the tube must plunge) 681.95 757.25 T
(into the water, light the) 681.95 745.25 T
(bowl and slowly raise the) 681.95 733.25 T
(top bottle, the smoke) 681.95 721.25 T
(bubbles in the water.) 681.95 709.25 T
(*** Cool ***) 681.95 697.25 T
(The top bottle must) 690.95 442.25 T
(go down on its own.) 690.95 430.25 T
4 F
(_) 573.95 309.24 T
(\134) 690.95 330.28 T
(i) 727.84 291.24 T
(a) 645.02 267.28 T
(h) 735.07 393.28 T
(D) 663.95 375.28 T
(`) 645.95 321.28 T
(c) 771.95 321.28 T
5 F
(\343) 0 -90 799.21 373.25 TF
6 F
( Canard 1993) 0 -90 799.21 363.78 TF
0.5 H
270 360 1.78 0.89 612.56 516.51 A
180 270 1.78 0.89 612.56 516.51 A
7 X
90 450 2.12 1.88 615.82 665.13 G
0 X
90 450 2.12 1.88 615.82 665.13 A
7 X
90 450 2.62 2.25 618.07 670.5 G
0 X
90 450 2.62 2.25 618.07 670.5 A
616.7 675.75 622.95 681.25 2.75 RR
7 X
V
0 X
N
FMENDPAGE
%%EndPage: "1" 2
%%Trailer
%%BoundingBox: 0 0 595.3 841.9
%%Pages: 1 1
%%DocumentFonts: Times-Bold
%%+ Times-Roman
%%+ ZapfDingbats
%%+ Symbol
%%+ Helvetica

From: Diva@f729.n153.z1.ship.wimsey.bc.ca (Diva)
Sender: UUCP@ship.wimsey.bc.ca