🚀 go-pugleaf

In the spirit of the Great Pumpkin, it's time for some bats.
If anyone comes up with a clever use for this (besides wallpaper),
let me know.  The hours I slaved away over a hot cauldron...

%!
% "Bat" for All-Hallows-Eve (Halloween).

% Created by Joe Gaudreau.
% 30-Apr-1989.
% Entered into the Public Domain.

% Ellipse routine :
% <rad sclx scly centx centy> Open_Ellipse
% where: rad   -> max(x_width, y_width)
%        sclx  -> (rad==x_width) ? 1 : x_width / y_width
%        scly  -> (rad==x_width) ? y_width / x_width : 1
%        centx -> x_center
%        centy -> y_center

/Open_Ellipse  { gsave newpath /cmtx matrix currentmatrix def
                translate scale 0 0 3 -1 roll 0 360 arc } bind def

/Close_Ellipse { cmtx setmatrix grestore } bind def

% Width X Y DrawBat
% Draw a Bat that is Width pts wide and about (Width * .6363) pts high at (X,Y):
/DrawBat {
   /Y exch def
   /X exch def
   /Width exch 2.0 div def
   /ScVal Width 140.0 div def

   % Draw background ellipse, 50% gray
   Width 1.0 0.6363 X Y Open_Ellipse
   0.5 setgray
   fill
   Close_Ellipse

   % Black inner border of logo
   Width 0.9214 mul 1.0 0.6363 X Y Open_Ellipse
   0 setgray
   15 ScVal mul setlinewidth
   stroke
   Close_Ellipse

   % Bat ellipse
   Width 0.8071 mul 1.0 0.6363 X Y Open_Ellipse
   0.0 setgray
   fill
   Close_Ellipse

   % Take chunk out of head
   gsave
   X Y     moveto
   ScVal ScVal scale
   19 73   rmoveto
   -12 -18 rlineto
   -14 0   rlineto
   -12 18  rlineto
   closepath
   0.5 setgray
   fill
   grestore   

   % Take upper-right curve chunk out
   gsave
   X Y   moveto
   ScVal ScVal scale
   19 73 rmoveto
   -4 -73  56 -53  31 -7 rcurveto
   closepath
   0.5 setgray
   fill
   grestore

   % Take upper-left curve chunk out
   gsave
   X Y    moveto
   ScVal ScVal scale
   -19 73 rmoveto
   4 -73  -56 -53  -31 -7 rcurveto
   closepath
   0.5 setgray
   fill
   grestore

   % Take lower-right chunks out
   gsave
   X Y moveto
   ScVal ScVal scale
   43 -38 rmoveto
   18 38  53 28  27 -22 rcurveto
   -35 -10 rlineto
   -35 -3  rlineto
   10 53  30 53  43 35 rcurveto
   closepath
   0.5 setgray
   fill
   grestore

   % Take lower-left chunks out
   gsave
   X Y moveto
   ScVal ScVal scale
   -43 -38 rmoveto
   -18 38  -53 28  -27 -22 rcurveto
   35 -10 rlineto
   35 -3  rlineto
   -10 53  -30 53  -43 35 rcurveto
   closepath
   0.5 setgray
   fill
   grestore
} bind def

280 300 400 DrawBat     % 280 pts wide, at (300,400) bat bat bat bat...

%90 rotate               % full page landscape bat
%0 -612 translate
%770 396 306 DrawBat

showpage

%EndOfFile

---
Joe Gaudreau @ Polygen Corporation, Waltham, MA 02254  (617)890-2888
UUCP: {princeton,mit-eddie,buita,sunne}!polygen!joeg
Sing to the tune, 'London Bridge is Falling Down':
"19 more days to Halloween, Halloween, Halloween,
 19 more days to Halloween, Silver Shamrock..."