From nelson@sun.soe.clarkson.edu Mon Apr  5 11:43:18 1993
Newsgroups: comp.sources.postscript
From: nelson@sun.soe.clarkson.edu (Russ Nelson)
Subject: v01i054: kidnapper - Another "ransom"-like font, Font, Part01/01
Followup-To: comp.sources.d
Summary: A font that prints random letters, as though clipped from a magazine.
Reply-To: nelson@sun.soe.clarkson.edu (Russ Nelson)
Organization: Clarkson University, Potsdam NY
Date: Mon, 5 Apr 1993 15:29:39 GMT

Submitted-by: nelson@sun.soe.clarkson.edu (Russ Nelson)
Posting-number: Volume 01, Issue 54
Archive-name: kidnapper/part01
Environment: PostScript
Keywords: ransom, font

[ Here is a repost of an old comp.lang.postscript posting.
  This kidnapper font is similar to the ransom font I posted yesterday. -Jon ]

> From: danjudd@agnes.acc.stolaf.edu (Dan Judd)
> Date: 22 May 90 23:27:53 GMT
>  
> Here is a brand new Public Domain Font that uses other fonts to
> build itself. It is amazingly readable even with the huge amount
> of character variation. Feel free to do what you want with it, 
> just don't sell it. Some more details are in the comment block
> at the beginning of the file. If you just send everything as is
> to an Apple LaserWriter, or any other PS device with the base 35 
> fonts available, it will print a small demo, be patient.
>  
> Enjoy
> Dan Judd (a Postscript kind of guy)
> danjudd@acc.stolaf.edu

#! /bin/sh
# This is a shell archive.  Remove anything before this line, then feed it
# into a shell via "sh file" or similar.  To overwrite existing files,
# type "sh file -c".
# The tool that generated this appeared in the comp.sources.unix newsgroup;
# send mail to comp-sources-unix@uunet.uu.net if you want that tool.
# Contents:  kidnapper.ps
# Wrapped by jgm@monaco on Mon Apr  5 10:24:17 1993
PATH=/bin:/usr/bin:/usr/ucb ; export PATH
echo If this archive is complete, you will see the following message:
echo '          "shar: End of archive."'
if test -f 'kidnapper.ps' -a "${1}" != "-c" ; then 
  echo shar: Will not clobber existing file \"'kidnapper.ps'\"
else
  echo shar: Extracting \"'kidnapper.ps'\" \(4899 characters\)
  sed "s/^X//" >'kidnapper.ps' <<'END_OF_FILE'
X%!PS
X%Kidnapper 
X%A silly font by Dan Judd
X%
X%Kidnapper is so named because it looks like the notes kiddnappers
X%write in movies, also because it will hold your printer hostage 
X%for a while. It is similar to SanFrancisco, but differs in a letter varies
X%each time it is used. It does this by choosing a random font and a
X%shinkage from 0-24% from the maximum point size. The maximum
X%pointsize is the pointsize given the font.
X%
X%If you want to use a different set of fonts search down from
X%here for the kprint routine above it are the font selections available.
X%Use kprintNeXT or kprintALW as examples for setting up your own
X%font lists. By default Kidnapper uses the Apple Laser fonts.
X%
X%Prepend the font definition to a Postscript file and use Kidnapper
X%as you would any other font. Don't forget to trim off the example
X%page at the end of this file.
X%
X%Begin Kidnapper font Definition
X%
X/Kidnapfont 11 dict def 
XKidnapfont begin
X/FontType 3 def
X/FontMatrix [1 0 0 1 0 0] def
X/FontBBox [0 0 1 1] def
X/Encoding 256 array def
X0 1 255 {Encoding exch () put} for
XEncoding 32 ( ) put
XEncoding 33 (!) put
XEncoding 34 (") put
XEncoding 35 (#) put
XEncoding 36 ($) put
XEncoding 37 (%) put
XEncoding 38 (&) put
XEncoding 39 (') put
XEncoding 40 (\() put
XEncoding 41 (\)) put
XEncoding 42 (*) put
XEncoding 43 (+) put
XEncoding 44 (,) put
XEncoding 45 (-) put
XEncoding 46 (.) put
XEncoding 47 (/) put
XEncoding 48 (0) put
XEncoding 49 (1) put
XEncoding 50 (2) put
XEncoding 51 (3) put
XEncoding 52 (4) put
XEncoding 53 (5) put
XEncoding 54 (6) put
XEncoding 55 (7) put
XEncoding 56 (8) put
XEncoding 57 (9) put
XEncoding 58 (:) put
XEncoding 59 (;) put
XEncoding 60 (<) put
XEncoding 61 (=) put
XEncoding 62 (>) put
XEncoding 63 (?) put
XEncoding 64 (@) put
X%Capitol Letters
XEncoding 65 (A) put
XEncoding 66 (B) put
XEncoding 67 (C) put
XEncoding 68 (D) put
XEncoding 69 (E) put
XEncoding 70 (F) put
XEncoding 71 (G) put
XEncoding 72 (H) put
XEncoding 73 (I) put
XEncoding 74 (J) put
XEncoding 75 (K) put
XEncoding 76 (L) put
XEncoding 77 (M) put
XEncoding 78 (N) put
XEncoding 79 (O) put
XEncoding 80 (P) put
XEncoding 81 (Q) put
XEncoding 82 (R) put
XEncoding 83 (S) put
XEncoding 84 (T) put
XEncoding 85 (U) put
XEncoding 86 (V) put
XEncoding 87 (W) put
XEncoding 88 (X) put
XEncoding 89 (Y) put
XEncoding 90 (Z) put
X%
XEncoding 91 ([) put
XEncoding 92 (\\) put
XEncoding 93 (]) put
XEncoding 94 (^) put
XEncoding 95 (_) put
XEncoding 96 (`) put
X%
X%small letters
X%
XEncoding 97 (a) put
XEncoding 98  (b) put 
XEncoding 99 (c) put 
XEncoding 100 (d) put 
XEncoding 101(e) put 
XEncoding 102(f) put 
XEncoding 103 (g) put 
XEncoding 104 (h) put 
XEncoding 105 (i) put 
XEncoding 106 (j) put 
XEncoding 107 (k) put 
XEncoding 108 (l) put 
XEncoding 109 (m) put 
XEncoding 110 (n) put 
XEncoding 111 (o) put 
XEncoding 112 (p) put 
XEncoding 113 (q) put 
XEncoding 114 (r) put 
XEncoding 115 (s) put 
XEncoding 116 (t) put 
XEncoding 117 (u) put 
XEncoding 118 (v) put 
XEncoding 119 (w) put 
XEncoding 120 (x) put 
XEncoding 121 (y) put 
XEncoding 122 (z) put 
X%
X%more symbols
X%
XEncoding 123 ({) put 
XEncoding 124 (|) put 
XEncoding 125 (}) put 
XEncoding 126 (~) put 
X%
X%end of Encoding
X/CharProcs 10 dict def
XCharProcs begin
X/.notdef {} def
Xend
X/kprintNeXT { 
X[ /Courier /Courier-Bold /Courier-Oblique /Courier-BoldOblique
X	/Helvetica /Helvetica-Oblique /Helvetica-Bold /Helvetica-BoldOblique
X	/Ohlfs /Times-Roman /Times-Italic /Times-BoldItalic /Times-Bold  ] 
X 	rand 13 mod get findfont  setfont
X	1 rand 24 mod 100 div sub
X	dup scale
X	0 0 moveto  show
X	} bind def
X/kprintALW { 
X[/AvantGarde-Book /AvantGarde-BookOblique /AvantGarde-Demi
X	/AvantGarde-DemiOblique /Bookman-Demi /Bookman-DemiItalic 
X	/Bookman-Light  /Bookman-LightItalic /Courier /Courier-Bold 
X	/Courier-BoldOblique /Courier-Oblique /Helvetica /Helvetica-Bold 
X	/Helvetica-BoldOblique /Helvetica-Narrow /Helvetica-Narrow-Bold 
X	/Helvetica-Narrow-BoldOblique /Helvetica-Narrow-Oblique 
X	/Helvetica-Oblique /NewCenturySchlbk-Bold 
X	/NewCenturySchlbk-BoldItalic /NewCenturySchlbk-Italic
X	/NewCenturySchlbk-Roman /Palatino-Bold /Palatino-BoldItalic 
X	/Palatino-Italic /Palatino-Roman /Times-Bold 
X	/Times-BoldItalic /Times-Italic /Times-Roman 
X	/ZapfChancery-MediumItalic ] 
X 	rand 33 mod get findfont setfont
X	1 rand 24 mod 100 div sub
X	dup scale
X	0 0 moveto  show
X	} bind def
X%
X%change the kprint function called depending of available fonts
X%on a Next use kprintNeXT, on an Apple LaserWrter use kprintALW
X%
X/kprint {kprintALW} bind def
X/BuildChar {
X1 0 	setcharwidth
X/KSAVE save def
X	exch begin
X	Encoding exch get
X	dup
X	kprint
X	end
X	stringwidth setcharwidth
XKSAVE restore
X	}def
Xend
X/Kidnapper Kidnapfont definefont pop
X%%
X%%End of Font Definition
X%%
X%%
X
X%An Example of use
X/Kidnapper findfont 30 scalefont setfont
X100 50 moveto (ABCDEFGHIJKLMNOPQRSTUVWXYZ) show
X100 100 moveto (abcdefghijklmnopqrstuvwxyz) show
X100 150 moveto (abcdefghijklmnopqrstuvwxyz) show
X100 200 moveto (1234567890-=!@#$%^&*\(\)\\) show
Xshowpage
END_OF_FILE
  if test 4899 -ne `wc -c <'kidnapper.ps'`; then
    echo shar: \"'kidnapper.ps'\" unpacked with wrong size!
  fi
  # end of 'kidnapper.ps'
fi
echo shar: End of archive.
exit 0