[comp.lang.postscript] bats bats bats halloween

joeg@polygen.uucp (Joe Gaudreau) (10/21/89)

>avon@blake.acs.washington.edu (Michael Montoure) writes:
>In article <1344@sdcc13.ucsd.edu>, pa1350@sdcc13.ucsd.edu (melanie t.) writes:
>> But are there any graphic buffs who will create a batman logo
>> to complete it all????- Your time and talent will be GREATLY
[edited]
>                                /\_/\   
>                                |   |  
>                       /---\___/     \___/---\   
>                      /                       \
>                     /___                   ___\  
>                    |/   \/---\/\   /\/---\/   \|
>                    `            \ /            '
>                                  V

Well, I've got one.  It's postscript and it comes out rather well
considering it didn't start out as a bat (more an ugly owl).

Enjoy in good health.

Joe
-=-
      o /                     o /                    o /
------ x ------ Cut Here ----- x ----- Cut Here ----- x ----- Cut Here ------
      o \                     o \                    o \
%!
% "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 just remove '%' comments...
%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

sfwhite@watcgl.waterloo.edu (Stephen White) (10/24/89)

In article <1344@sdcc13.ucsd.edu>, pa1350@sdcc13.ucsd.edu (melanie t.) writes:
> But are there any graphic buffs who will create a batman logo
> to complete it all????- Your time and talent will be GREATLY
> [edited]

Here's an X11R3 bitmap which I use for my cursor:
(I use this to activate it: "xsetroot -cursor ~/xtoys/bat.bm
~/xtoys/batmask.bm -fg black -bg yellow -solid '#706262'")

--------------------------[ CUT HERE FOR BAT.BM ]-------------------------
#define bat_width 16
#define bat_height 16
#define bat_x_hot 7
#define bat_y_hot 12
static char bat_bits[] = {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x30, 0x06, 0x78, 0x0f, 0xfc, 0x1f,
   0xfc, 0x1f, 0xfe, 0x3f, 0xfe, 0x3f, 0xfe, 0x3f, 0xc6, 0x31, 0x82, 0x20,
   0x82, 0x20, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};

------------------------[ CUT HERE FOR BATMASK.BM ]-----------------------

#define batmask_width 16
#define batmask_height 16
#define batmask_x_hot 7
#define batmask_y_hot 12
static char batmask_bits[] = {
   0x00, 0x00, 0x00, 0x00, 0x78, 0x0f, 0xfc, 0x1f, 0xfe, 0x3f, 0xfe, 0x3f,
   0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xff, 0x7f, 0xef, 0x7b,
   0xc7, 0x71, 0xc7, 0x71, 0x00, 0x00, 0x00, 0x00};

-----------------------th' th' th' that's all, folks ---------------------


-- 
standard_disclaimer();

pcr@osf.osf.org (Phil Rockwood) (10/28/89)

Hi batfolks!!!

Here is a nifty batman logooooooo for all interested.
It is in X11 format for your iconic pleasures.

<-------------- Cut Here ------------------------->
#define Batman_width 113
#define Batman_height 75
#define Batman_x_hot 0
#define Batman_y_hot 0
static char Batman_bits[] = {
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0,
   0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x80, 0xff, 0xff, 0xff, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0x01, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0xf8, 0xff, 0xaf, 0xaa, 0xaa, 0xea, 0xff, 0x3f, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0xfe, 0x7f, 0x55, 0x55, 0x55, 0x55, 0xfd, 0xff, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0xaf, 0xaa, 0xaa, 0xaa, 0xaa,
   0xea, 0xff, 0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x55, 0xd5,
   0x55, 0x55, 0x57, 0x55, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8,
   0xbf, 0xaa, 0xaa, 0xab, 0xaa, 0xab, 0xaa, 0xfa, 0x3f, 0x00, 0x00, 0x00,
   0x00, 0x00, 0xfc, 0x57, 0x55, 0xd5, 0x57, 0xd5, 0x57, 0x55, 0xd5, 0x7f,
   0x00, 0x00, 0x00, 0x00, 0x00, 0xfe, 0xaa, 0xaa, 0xea, 0xaf, 0xea, 0xaf,
   0xaa, 0xaa, 0xff, 0x00, 0x00, 0x00, 0x00, 0x80, 0x7f, 0x55, 0x57, 0xd5,
   0x5f, 0xf5, 0x57, 0xd5, 0x55, 0xfd, 0x03, 0x00, 0x00, 0x00, 0xc0, 0xbf,
   0xea, 0xaf, 0xea, 0xbf, 0xfa, 0xaf, 0xea, 0xaf, 0xfa, 0x07, 0x00, 0x00,
   0x00, 0xe0, 0x5f, 0xfd, 0x57, 0xd5, 0xff, 0xff, 0x57, 0xd5, 0x7f, 0xf5,
   0x0f, 0x00, 0x00, 0x00, 0xf0, 0xaf, 0xfe, 0xab, 0xea, 0xff, 0xff, 0xaf,
   0xaa, 0xff, 0xea, 0x1f, 0x00, 0x00, 0x00, 0xf8, 0x57, 0xff, 0x55, 0xf5,
   0xf3, 0x9f, 0x5f, 0x55, 0xff, 0xd5, 0x3f, 0x00, 0x00, 0x00, 0xf8, 0xab,
   0xff, 0xab, 0xea, 0xe1, 0x0f, 0xaf, 0xaa, 0xff, 0xab, 0x3f, 0x00, 0x00,
   0x00, 0xfc, 0xd5, 0xff, 0x55, 0xf5, 0xc0, 0x07, 0x5e, 0x55, 0xff, 0x57,
   0x7f, 0x00, 0x00, 0x00, 0xfe, 0xea, 0xff, 0xab, 0xfa, 0xc0, 0x07, 0xbe,
   0xaa, 0xff, 0xaf, 0xfe, 0x00, 0x00, 0x00, 0x7f, 0xf5, 0xff, 0x57, 0xf5,
   0xe1, 0x0f, 0x5f, 0xd5, 0xff, 0x5f, 0xfd, 0x01, 0x00, 0x00, 0xbf, 0xfa,
   0xff, 0xaf, 0xfe, 0xf3, 0x9f, 0xff, 0xea, 0xff, 0xbf, 0xfa, 0x01, 0x00,
   0x80, 0x5f, 0xfd, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x7f,
   0xf5, 0x03, 0x00, 0x80, 0xaf, 0xfe, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xea, 0x03, 0x00, 0x80, 0x5f, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xf5, 0x03, 0x00, 0xc0, 0xaf, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xeb, 0x07, 0x00,
   0xc0, 0x57, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xd5, 0x07, 0x00, 0xc0, 0xaf, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xeb, 0x07, 0x00, 0xe0, 0xd7, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xd7, 0x0f, 0x00, 0xe0, 0xab, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xab, 0x0f, 0x00,
   0xe0, 0xd7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xd7, 0x0f, 0x00, 0xe0, 0xab, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xab, 0x0f, 0x00, 0xe0, 0xd7, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xd7, 0x0f, 0x00, 0xe0, 0xab, 0xff,
   0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xab, 0x0f, 0x00,
   0xe0, 0xd7, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xd7, 0x0f, 0x00, 0xe0, 0xab, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xab, 0x0f, 0x00, 0xe0, 0xd7, 0xff, 0x7f, 0xfd, 0xff,
   0xff, 0xff, 0xff, 0x7f, 0xfd, 0xff, 0xd7, 0x0f, 0x00, 0xc0, 0xaf, 0xff,
   0xbf, 0xfa, 0xbf, 0xfe, 0xff, 0xfa, 0xbf, 0xfa, 0xff, 0xeb, 0x07, 0x00,
   0xc0, 0x57, 0xff, 0x5f, 0xf5, 0x5f, 0xfd, 0x7f, 0xf5, 0x5f, 0xf5, 0xff,
   0xd5, 0x07, 0x00, 0xc0, 0xaf, 0xff, 0xaf, 0xea, 0xaf, 0xfa, 0xbf, 0xea,
   0xaf, 0xea, 0xff, 0xeb, 0x07, 0x00, 0x80, 0x5f, 0xff, 0x5f, 0xd5, 0x57,
   0xf5, 0x5f, 0xd5, 0x57, 0xf5, 0xff, 0xf5, 0x03, 0x00, 0x80, 0xaf, 0xfe,
   0xaf, 0xaa, 0xab, 0xea, 0xaf, 0xaa, 0xab, 0xea, 0xff, 0xea, 0x03, 0x00,
   0x80, 0x5f, 0xfd, 0x5f, 0x55, 0x55, 0xf5, 0x5f, 0x55, 0x55, 0xf5, 0x7f,
   0xf5, 0x03, 0x00, 0x00, 0xbf, 0xfa, 0xaf, 0xaa, 0xaa, 0xea, 0xaf, 0xaa,
   0xaa, 0xea, 0xbf, 0xfa, 0x01, 0x00, 0x00, 0x7f, 0xf5, 0x5f, 0x55, 0x55,
   0xd5, 0x57, 0x55, 0x55, 0xf5, 0x5f, 0xfd, 0x01, 0x00, 0x00, 0xfe, 0xea,
   0xaf, 0xaa, 0xaa, 0xea, 0xaf, 0xaa, 0xaa, 0xea, 0xaf, 0xfe, 0x00, 0x00,
   0x00, 0xfc, 0xd5, 0x5f, 0x55, 0x55, 0xd5, 0x57, 0x55, 0x55, 0xf5, 0x57,
   0x7f, 0x00, 0x00, 0x00, 0xf8, 0xab, 0xbf, 0xaa, 0xaa, 0xaa, 0xab, 0xaa,
   0xaa, 0xfa, 0xab, 0x3f, 0x00, 0x00, 0x00, 0xf8, 0x57, 0x5f, 0x55, 0x55,
   0xd5, 0x57, 0x55, 0x55, 0xf5, 0xd5, 0x3f, 0x00, 0x00, 0x00, 0xf0, 0xaf,
   0xbe, 0xaa, 0xaa, 0xaa, 0xab, 0xaa, 0xaa, 0xfa, 0xea, 0x1f, 0x00, 0x00,
   0x00, 0xe0, 0x5f, 0x7d, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0x7d, 0xf5,
   0x0f, 0x00, 0x00, 0x00, 0xc0, 0xbf, 0xfa, 0xaa, 0xaa, 0xaa, 0xab, 0xaa,
   0xaa, 0xbe, 0xfa, 0x07, 0x00, 0x00, 0x00, 0x80, 0x7f, 0x55, 0x55, 0x55,
   0x55, 0x55, 0x55, 0x55, 0x55, 0xfd, 0x03, 0x00, 0x00, 0x00, 0x00, 0xfe,
   0xab, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa, 0xff, 0x00, 0x00, 0x00,
   0x00, 0x00, 0xfc, 0x57, 0x55, 0x55, 0x55, 0x55, 0x55, 0x55, 0xd5, 0x7f,
   0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xbf, 0xaa, 0xaa, 0xaa, 0xaa, 0xaa,
   0xaa, 0xfa, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0x55, 0x55,
   0x55, 0x55, 0x55, 0x55, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80,
   0xff, 0xaf, 0xaa, 0xaa, 0xaa, 0xaa, 0xea, 0xff, 0x03, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0xfe, 0x5f, 0x55, 0x55, 0x55, 0x55, 0xf5, 0xff, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xaf, 0xaa, 0xaa, 0xea,
   0xff, 0x3f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xe0, 0xff, 0xff,
   0xff, 0xff, 0xff, 0xff, 0x0f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0xff, 0xff, 0xff, 0xff, 0xff, 0xff, 0x01, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0xf8, 0xff, 0xff, 0xff, 0xff, 0x3f, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x80, 0xff, 0xff, 0xff, 0xff,
   0x03, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf0,
   0xff, 0xff, 0x1f, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00,
   0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
<-------------- Cut Here ------------------------->