home *** CD-ROM | disk | FTP | other *** search
- Path: sparky!uunet!pipex!warwick!uknet!bradford.ac.uk!E.A.Kendrick
- From: E.A.Kendrick@bradford.ac.uk (EA KENDRICK)
- Newsgroups: rec.humor
- Subject: Re: Silly Mr Men (Picture#1-12k)
- Message-ID: <1993Jan25.140840.15491@bradford.ac.uk>
- Date: 25 Jan 93 14:08:40 GMT
- References: <1993Jan25.095750.7266@bradford.ac.uk>
- Organization: University of Bradford, UK
- Lines: 897
- Originator: 91730762@ccw312
- Nntp-Posting-Host: ccw312
-
- There are many more available, however most should really go in alt.tasteless.
-
- --- Cut Here ---
- %!PS-Adobe-2.0 EPSF-1.2
- %%DocumentFonts: Helvetica-Bold
- %%Pages: 1
- %%BoundingBox: 270 302 343 515
- %%EndComments
-
- 50 dict begin
-
- /arrowHeight 8 def
- /arrowWidth 4 def
- /none null def
- /numGraphicParameters 17 def
- /stringLimit 65535 def
-
- /Begin {
- save
- numGraphicParameters dict begin
- } def
-
- /End {
- end
- restore
- } def
-
- /SetB {
- dup type /nulltype eq {
- pop
- false /brushRightArrow idef
- false /brushLeftArrow idef
- true /brushNone idef
- } {
- /brushDashOffset idef
- /brushDashArray idef
- 0 ne /brushRightArrow idef
- 0 ne /brushLeftArrow idef
- /brushWidth idef
- false /brushNone idef
- } ifelse
- } def
-
- /SetCFg {
- /fgblue idef
- /fggreen idef
- /fgred idef
- } def
-
- /SetCBg {
- /bgblue idef
- /bggreen idef
- /bgred idef
- } def
-
- /SetF {
- /printSize idef
- /printFont idef
- } def
-
- /SetP {
- dup type /nulltype eq {
- pop true /patternNone idef
- } {
- dup -1 eq {
- /patternGrayLevel idef
- /patternString idef
- } {
- /patternGrayLevel idef
- } ifelse
- false /patternNone idef
- } ifelse
- } def
-
- /BSpl {
- 0 begin
- storexyn
- newpath
- n 1 gt {
- 0 0 0 0 0 0 1 1 true subspline
- n 2 gt {
- 0 0 0 0 1 1 2 2 false subspline
- 1 1 n 3 sub {
- /i exch def
- i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
- } for
- n 3 sub dup n 2 sub dup n 1 sub dup 2 copy false subspline
- } if
- n 2 sub dup n 1 sub dup 2 copy 2 copy false subspline
- patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
- brushNone not { istroke } if
- 0 0 1 1 leftarrow
- n 2 sub dup n 1 sub dup rightarrow
- } if
- end
- } dup 0 4 dict put def
-
- /Circ {
- newpath
- 0 360 arc
- patternNone not { ifill } if
- brushNone not { istroke } if
- } def
-
- /CBSpl {
- 0 begin
- dup 2 gt {
- storexyn
- newpath
- n 1 sub dup 0 0 1 1 2 2 true subspline
- 1 1 n 3 sub {
- /i exch def
- i 1 sub dup i dup i 1 add dup i 2 add dup false subspline
- } for
- n 3 sub dup n 2 sub dup n 1 sub dup 0 0 false subspline
- n 2 sub dup n 1 sub dup 0 0 1 1 false subspline
- patternNone not { ifill } if
- brushNone not { istroke } if
- } {
- Poly
- } ifelse
- end
- } dup 0 4 dict put def
-
- /Elli {
- 0 begin
- newpath
- 4 2 roll
- translate
- scale
- 0 0 1 0 360 arc
- patternNone not { ifill } if
- brushNone not { istroke } if
- end
- } dup 0 1 dict put def
-
- /Line {
- 0 begin
- 2 storexyn
- newpath
- x 0 get y 0 get moveto
- x 1 get y 1 get lineto
- brushNone not { istroke } if
- 0 0 1 1 leftarrow
- 0 0 1 1 rightarrow
- end
- } dup 0 4 dict put def
-
- /MLine {
- 0 begin
- storexyn
- newpath
- n 1 gt {
- x 0 get y 0 get moveto
- 1 1 n 1 sub {
- /i exch def
- x i get y i get lineto
- } for
- patternNone not brushLeftArrow not brushRightArrow not and and { ifill } if
- brushNone not { istroke } if
- 0 0 1 1 leftarrow
- n 2 sub dup n 1 sub dup rightarrow
- } if
- end
- } dup 0 4 dict put def
-
- /Poly {
- 3 1 roll
- newpath
- moveto
- -1 add
- { lineto } repeat
- closepath
- patternNone not { ifill } if
- brushNone not { istroke } if
- } def
-
- /Rect {
- 0 begin
- /t exch def
- /r exch def
- /b exch def
- /l exch def
- newpath
- l b moveto
- l t lineto
- r t lineto
- r b lineto
- closepath
- patternNone not { ifill } if
- brushNone not { istroke } if
- end
- } dup 0 4 dict put def
-
- /Text {
- ishow
- } def
-
- /idef {
- dup where { pop pop pop } { exch def } ifelse
- } def
-
- /ifill {
- 0 begin
- gsave
- patternGrayLevel -1 ne {
- fgred bgred fgred sub patternGrayLevel mul add
- fggreen bggreen fggreen sub patternGrayLevel mul add
- fgblue bgblue fgblue sub patternGrayLevel mul add setrgbcolor
- eofill
- } {
- eoclip
- originalCTM setmatrix
- pathbbox /t exch def /r exch def /b exch def /l exch def
- /w r l sub ceiling cvi def
- /h t b sub ceiling cvi def
- /imageByteWidth w 8 div ceiling cvi def
- /imageHeight h def
- bgred bggreen bgblue setrgbcolor
- eofill
- fgred fggreen fgblue setrgbcolor
- w 0 gt h 0 gt and {
- l b translate w h scale
- w h true [w 0 0 h neg 0 h] { patternproc } imagemask
- } if
- } ifelse
- grestore
- end
- } dup 0 8 dict put def
-
- /istroke {
- gsave
- brushDashOffset -1 eq {
- [] 0 setdash
- 1 setgray
- } {
- brushDashArray brushDashOffset setdash
- fgred fggreen fgblue setrgbcolor
- } ifelse
- brushWidth setlinewidth
- originalCTM setmatrix
- stroke
- grestore
- } def
-
- /ishow {
- 0 begin
- gsave
- fgred fggreen fgblue setrgbcolor
- /fontDict printFont findfont printSize scalefont dup setfont def
- /descender fontDict begin 0 [FontBBox] 1 get FontMatrix end
- transform exch pop def
- /vertoffset 0 descender sub printSize sub printFont /Courier ne
- printFont /Courier-Bold ne and { 1 add } if def {
- 0 vertoffset moveto show
- /vertoffset vertoffset printSize sub def
- } forall
- grestore
- end
- } dup 0 3 dict put def
-
- /patternproc {
- 0 begin
- /patternByteLength patternString length def
- /patternHeight patternByteLength 8 mul sqrt cvi def
- /patternWidth patternHeight def
- /patternByteWidth patternWidth 8 idiv def
- /imageByteMaxLength imageByteWidth imageHeight mul
- stringLimit patternByteWidth sub min def
- /imageMaxHeight imageByteMaxLength imageByteWidth idiv patternHeight idiv
- patternHeight mul patternHeight max def
- /imageHeight imageHeight imageMaxHeight sub store
- /imageString imageByteWidth imageMaxHeight mul patternByteWidth add string def
- 0 1 imageMaxHeight 1 sub {
- /y exch def
- /patternRow y patternByteWidth mul patternByteLength mod def
- /patternRowString patternString patternRow patternByteWidth getinterval def
- /imageRow y imageByteWidth mul def
- 0 patternByteWidth imageByteWidth 1 sub {
- /x exch def
- imageString imageRow x add patternRowString putinterval
- } for
- } for
- imageString
- end
- } dup 0 12 dict put def
-
- /min {
- dup 3 2 roll dup 4 3 roll lt { exch } if pop
- } def
-
- /max {
- dup 3 2 roll dup 4 3 roll gt { exch } if pop
- } def
-
- /arrowhead {
- 0 begin
- transform originalCTM itransform
- /taily exch def
- /tailx exch def
- transform originalCTM itransform
- /tipy exch def
- /tipx exch def
- /dy tipy taily sub def
- /dx tipx tailx sub def
- /angle dx 0 ne dy 0 ne or { dy dx atan } { 90 } ifelse def
- gsave
- originalCTM setmatrix
- tipx tipy translate
- angle rotate
- newpath
- 0 0 moveto
- arrowHeight neg arrowWidth 2 div lineto
- arrowHeight neg arrowWidth 2 div neg lineto
- closepath
- patternNone not {
- originalCTM setmatrix
- /padtip arrowHeight 2 exp 0.25 arrowWidth 2 exp mul add sqrt brushWidth mul
- arrowWidth div def
- /padtail brushWidth 2 div def
- tipx tipy translate
- angle rotate
- padtip 0 translate
- arrowHeight padtip add padtail add arrowHeight div dup scale
- arrowheadpath
- ifill
- } if
- brushNone not {
- originalCTM setmatrix
- tipx tipy translate
- angle rotate
- arrowheadpath
- istroke
- } if
- grestore
- end
- } dup 0 9 dict put def
-
- /arrowheadpath {
- newpath
- 0 0 moveto
- arrowHeight neg arrowWidth 2 div lineto
- arrowHeight neg arrowWidth 2 div neg lineto
- closepath
- } def
-
- /leftarrow {
- 0 begin
- y exch get /taily exch def
- x exch get /tailx exch def
- y exch get /tipy exch def
- x exch get /tipx exch def
- brushLeftArrow { tipx tipy tailx taily arrowhead } if
- end
- } dup 0 4 dict put def
-
- /rightarrow {
- 0 begin
- y exch get /tipy exch def
- x exch get /tipx exch def
- y exch get /taily exch def
- x exch get /tailx exch def
- brushRightArrow { tipx tipy tailx taily arrowhead } if
- end
- } dup 0 4 dict put def
-
- /midpoint {
- 0 begin
- /y1 exch def
- /x1 exch def
- /y0 exch def
- /x0 exch def
- x0 x1 add 2 div
- y0 y1 add 2 div
- end
- } dup 0 4 dict put def
-
- /thirdpoint {
- 0 begin
- /y1 exch def
- /x1 exch def
- /y0 exch def
- /x0 exch def
- x0 2 mul x1 add 3 div
- y0 2 mul y1 add 3 div
- end
- } dup 0 4 dict put def
-
- /subspline {
- 0 begin
- /movetoNeeded exch def
- y exch get /y3 exch def
- x exch get /x3 exch def
- y exch get /y2 exch def
- x exch get /x2 exch def
- y exch get /y1 exch def
- x exch get /x1 exch def
- y exch get /y0 exch def
- x exch get /x0 exch def
- x1 y1 x2 y2 thirdpoint
- /p1y exch def
- /p1x exch def
- x2 y2 x1 y1 thirdpoint
- /p2y exch def
- /p2x exch def
- x1 y1 x0 y0 thirdpoint
- p1x p1y midpoint
- /p0y exch def
- /p0x exch def
- x2 y2 x3 y3 thirdpoint
- p2x p2y midpoint
- /p3y exch def
- /p3x exch def
- movetoNeeded { p0x p0y moveto } if
- p1x p1y p2x p2y p3x p3y curveto
- end
- } dup 0 17 dict put def
-
- /storexyn {
- /n exch def
- /y n array def
- /x n array def
- n 1 sub -1 0 {
- /i exch def
- y i 3 2 roll put
- x i 3 2 roll put
- } for
- } def
-
- %%EndProlog
-
- %I Idraw 7 Grid 4
-
- %%Page: 1 1
-
- Begin
- %I b u
- %I cfg u
- %I cbg u
- %I f u
- %I p u
- %I t
- [ 0.86747 0 0 0.86747 0 0 ] concat
- /originalCTM matrix currentmatrix def
-
- Begin %I Elli
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Green
- 0 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 169.5 280 ] concat
- %I
- 182 191 37 78 Elli
- End
-
- Begin %I Pict
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg u
- %I cbg Green
- 0 1 0 SetCBg
- %I f u
- %I p u
- %I t
- [ 1 0 0 1 15.5 -33.4999 ] concat
-
- Begin %I Poly
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Red
- 1 0 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I 10
- 210 270
- 210 264
- 199 264
- 194 263
- 192 260
- 192 255
- 216 255
- 216 269
- 210 269
- 210 269
- 10 Poly
- End
-
- Begin %I Poly
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Red
- 1 0 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ -1 0 0 1 552 158 ] concat
- %I 10
- 210 270
- 210 264
- 199 264
- 194 263
- 192 260
- 192 255
- 216 255
- 216 269
- 210 269
- 210 269
- 10 Poly
- End
-
- End %I eop
-
- Begin %I Pict
- %I b u
- %I cfg u
- %I cbg u
- %I f u
- %I p u
- %I t
- [ 1 0 0 1 17 -22.9999 ] concat
-
- Begin %I Elli
- none SetB %I b n
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg White
- 1 1 1 SetCBg
- %I p
- 0 SetP
- %I t
- [ 1 0 0 1 122 142 ] concat
- %I
- 203 379 5 4 Elli
- End
-
- Begin %I Elli
- none SetB %I b n
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg White
- 1 1 1 SetCBg
- %I p
- 0 SetP
- %I t
- [ 1 0 0 1 140 142 ] concat
- %I
- 203 379 5 4 Elli
- End
-
- End %I eop
-
- Begin %I Elli
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Red
- 1 0 0 SetCBg
- %I p
- 0 SetP
- %I t
- [ 1 0 0 1 -37.5 147 ] concat
- %I
- 389 315 13 10 Elli
- End
-
- Begin %I Poly
- %I b 65535
- 1 0 0 [] 0 SetB
- %I cfg Yellow
- 1 1 0 SetCFg
- %I cbg Orange
- 1 0.647059 0 SetCBg
- %I p
- < 77 bb ee dd 77 bb ee dd > -1 SetP
- %I t
- [ 0.5 0 0 0.5 286.5 281 ] concat
- %I 24
- 103 334
- 107 320
- 114 309
- 111 286
- 115 274
- 118 290
- 129 302
- 133 291
- 134 276
- 141 290
- 143 302
- 148 304
- 153 293
- 152 288
- 160 295
- 158 306
- 159 311
- 146 306
- 135 307
- 128 324
- 132 336
- 124 341
- 105 334
- 105 334
- 24 Poly
- End
-
- Begin %I Pict
- %I b u
- %I cfg u
- %I cbg Green
- 0 1 0 SetCBg
- %I f u
- %I p u
- %I t
- [ -1 0 0 1 755.5 -44.5001 ] concat
-
- Begin %I Poly
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Yellow
- 1 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I 15
- 251 339
- 262 339
- 264 351
- 271 355
- 274 348
- 270 342
- 282 344
- 286 339
- 287 331
- 284 322
- 278 321
- 269 325
- 260 328
- 250 329
- 249 329
- 15 Poly
- End
-
- Begin %I Line
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Yellow
- 1 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I
- 286 337 274 337 Line
- End
-
- Begin %I Line
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Yellow
- 1 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I
- 286 328 274 331 Line
- End
-
- End %I eop
-
- Begin %I Pict
- %I b u
- %I cfg u
- %I cbg Green
- 0 1 0 SetCBg
- %I f u
- %I p u
- %I t
- [ 1 0 0 1 -53 -32.9999 ] concat
-
- Begin %I Poly
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Yellow
- 1 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I 15
- 251 339
- 262 339
- 264 351
- 271 355
- 274 348
- 270 342
- 282 344
- 286 339
- 287 331
- 284 322
- 278 321
- 269 325
- 260 328
- 250 329
- 249 329
- 15 Poly
- End
-
- Begin %I Line
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Yellow
- 1 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I
- 286 337 274 337 Line
- End
-
- Begin %I Line
- %I b 65535
- 2 0 0 [] 0 SetB
- %I cfg Black
- 0 0 0 SetCFg
- %I cbg Yellow
- 1 1 0 SetCBg
- %I p
- 1 SetP
- %I t
- [ 1 0 0 1 118 158 ] concat
- %I
- 286 328 274 331 Line
- End
-
- End %I eop
-
- Begin %I Poly
- %I b 65535
- 1 0 0 [] 0 SetB
- %I cfg Yellow
- 1 1 0 SetCFg
- %I cbg Orange
- 1 0.647059 0 SetCBg
- %I p
- < 77 bb ee dd 77 bb ee dd > -1 SetP
- %I t
- [ 0.5 0 0 0.5 286.5 281 ] concat
- %I 7
- 107 349
- 110 345
- 113 338
- 114 345
- 118 345
- 108 349
- 108 349
- 7 Poly
- End
-
- Begin %I CBSpl
- %I b 65535
- 1 0 0 [] 0 SetB
- %I cfg Yellow
- 1 1 0 SetCFg
- %I cbg Orange
- 1 0.647059 0 SetCBg
- %I p
- < 77 bb ee dd 77 bb ee dd > -1 SetP
- %I t
- [ 0.5 0 0 0.5 286.5 281 ] concat
- %I 39
- 97 186
- 110 190
- 129 189
- 141 181
- 154 187
- 158 193
- 173 193
- 192 189
- 215 180
- 204 179
- 177 177
- 159 173
- 176 175
- 198 172
- 211 170
- 205 162
- 208 156
- 191 154
- 170 150
- 192 145
- 169 143
- 144 143
- 115 140
- 98 148
- 113 156
- 127 164
- 107 158
- 88 164
- 68 162
- 61 171
- 68 183
- 81 176
- 109 174
- 87 180
- 80 185
- 82 193
- 95 188
- 97 186
- 97 186
- 39 CBSpl
- End
-
- Begin %I CBSpl
- %I b 65535
- 1 0 0 [] 0 SetB
- %I cfg Yellow
- 1 1 0 SetCFg
- %I cbg Orange
- 1 0.647059 0 SetCBg
- %I p
- < 88 55 22 55 88 55 22 55 > -1 SetP
- %I t
- [ 0.5 0 0 0.5 286.5 281 ] concat
- %I 20
- 175 181
- 143 173
- 127 182
- 105 180
- 110 168
- 88 166
- 109 164
- 120 157
- 136 155
- 158 157
- 172 153
- 185 158
- 193 161
- 186 165
- 189 168
- 182 170
- 167 166
- 156 172
- 171 179
- 171 179
- 20 CBSpl
- End
-
- Begin %I Text
- %I cfg Black
- 0 0 0 SetCFg
- %I f *-helvetica-bold-r-*-140-*
- /Helvetica-Bold 14 SetF
- %I t
- [ 1 0 0 1 322 589 ] concat
- %I
- [
- (Mr Vomit)
- ] Text
- End
-
- End %I eop
-
- showpage
-
- %%Trailer
-
- end
- --
- [_] E-Mail e.a.kendrick@bradford.ac.uk [_]
- [_ _] -==- [_ _]
- [_ Q _] ! ! ! S M I L E ! ! ! [_ Q _]
- [_______] Because otherwise I will shoot you [_______]
-