From: Jef Poskanzer <jef@ee.lbl.gov>
Date: Tue, 9 Nov 93 09:33:11 PST
To: cypherpunks@toad.com
Subject: CRYPTO DATA warning sign
Message-ID: <9311091730.AA09623@ace.ee.lbl.gov>
MIME-Version: 1.0
Content-Type: text/plain


I posted this to alt.hackers last Thursday, and I just joined cypherpunks
yesterday, so I don't know whether someone copied it to the list in the
intervening days.  If so, sorry for the duplication.  If not...

This is a warning sign in the style of the diamond-shaped ones that the
Department of Transportation requires on the back of vehicles carrying
hazardous loads.  It will look pretty butch on your read bumper.  I suggest
printing it onto sticker paper and then overspraying with clear acrylic
or polyurethane for weatherproofing.
---
Jef

%! dot_crypto.ps - draw a DOT cryptographic data warning symbol
%
% Copyright (C) 1989, 1993 by Jef Poskanzer <jef@netcom.com>.
%
% Permission to use, copy, modify, and distribute this software and its
% documentation for any purpose and without fee is hereby granted, provided
% that the above copyright notice appear in all copies and that both that
% copyright notice and this permission notice appear in supporting
% documentation.  This software is provided "as is" without express or
% implied warranty.

/in  { 72 mul }  def
/black  { 0 setgray }  def
/white  { 1 setgray }  def

/showcenter {			% str --
    dup stringwidth pop
    2 div neg  0  rmoveto
    show
} def


% Disk - actual size, centered at 0,0.

/disk_lw  0.03 in  def			% line width
/disk_width  3.5 in  def
/disk_height  3.66 in  def
/disk_shadow  0.05 in  def		% Drop-shadow offset.
/disk_cutoff  0.2 in  def		% corner cutoff size
/disk_hole_width  0.18 in  def
/disk_hole_height  0.15 in  def
/disk_hole_xmargin  0.1 in  def		% x distange between right edges
/disk_hole_ymargin  0.26 in  def	% y distange between bottom edges

/disk_detail_radii  0.1 in  def		% radius of corners on details

/disk_label_width  2.80 in  def
/disk_label_height  2.16 in  def

/disk_labelline_margin  0.1 in  def
/disk_labelline_width  disk_label_width disk_labelline_margin 2 mul sub  def
/disk_labelline_yspacing  disk_label_height 5 div  def

/disk_labeltext_size  disk_labelline_yspacing 0.7 mul  def
/disk_labeltext_yoffset  disk_labelline_yspacing 0.1 mul  def

/disk_detail_leftmargin  disk_width disk_label_width sub 2 div  def

/disk_slidearea_width  2.38 in  def
/disk_slidearea_height  1.26 in  def

/disk_slide_width  1.87 in  def

/disk_slidehole_width  0.47 in  def
/disk_slidehole_height  0.99 in  def
/disk_slidehole_xmargin  0.3 in  def	% x distance between right edges
/disk_slidehole_ymargin  0.175 in  def	% y distance between top edges

/disk_wo2  disk_width 2 div  def
/disk_ho2  disk_height 2 div  def

/disk_outline {
    newpath
	disk_wo2 neg  disk_ho2 neg  moveto
	0  disk_height  rlineto
	disk_width disk_cutoff sub  0  rlineto
	disk_cutoff  disk_cutoff neg  rlineto
	0  disk_height disk_cutoff sub neg  rlineto
    closepath
	disk_wo2 disk_hole_xmargin sub  disk_ho2 neg disk_hole_ymargin add
	    moveto
	0  disk_hole_height  rlineto
	disk_hole_width neg  0  rlineto
	0  disk_hole_height neg  rlineto
    closepath
	disk_wo2 neg disk_hole_xmargin add  disk_ho2 neg disk_hole_ymargin add
	    moveto
	disk_hole_width  0  rlineto
	0  disk_hole_height  rlineto
	disk_hole_width neg  0  rlineto
    closepath
} def

/disk {				% line1 line2 line3 line4 --
    % Save args.
    /disk_line4 exch def
    /disk_line3 exch def
    /disk_line2 exch def
    /disk_line1 exch def
    % First draw drop-shadow.
    black
    gsave
	disk_shadow neg  disk_shadow neg  translate
	disk_outline
	fill
    grestore
    % Fill with white.
    white
    disk_outline
    fill
    % Draw outline.
    disk_lw setlinewidth
    black
    disk_outline
    stroke
    % Label area.
    newpath
	disk_wo2 neg disk_detail_leftmargin add
	    disk_ho2 neg  moveto
	disk_wo2 neg disk_detail_leftmargin add disk_detail_radii add
	    disk_ho2 neg disk_label_height add disk_detail_radii sub
	    disk_detail_radii 180 90 arcn
	disk_wo2 disk_detail_leftmargin sub disk_detail_radii sub
	    disk_ho2 neg disk_label_height add disk_detail_radii sub
	    disk_detail_radii 90 0 arcn
	disk_wo2 neg disk_detail_leftmargin add disk_label_width add
	    disk_ho2 neg  lineto
    stroke
    % Label lines and text.
    gsave
	0 setlinewidth
	disk_wo2 neg disk_detail_leftmargin add disk_label_width add
	    disk_ho2 neg  translate
	180 rotate
	/Times-Roman findfont disk_labeltext_size scalefont setfont
	newpath
	    disk_labelline_margin  disk_labelline_yspacing -1 mul  moveto
	    disk_labelline_width  0  rlineto
	stroke
	disk_labelline_margin
	    disk_labelline_yspacing -1 mul disk_labeltext_yoffset add  moveto
	disk_line1 show
	newpath
	    disk_labelline_margin  disk_labelline_yspacing -2 mul  moveto
	    disk_labelline_width  0  rlineto
	stroke
	disk_labelline_margin
	    disk_labelline_yspacing -2 mul disk_labeltext_yoffset add  moveto
	disk_line2 show
	newpath
	    disk_labelline_margin  disk_labelline_yspacing -3 mul  moveto
	    disk_labelline_width  0  rlineto
	stroke
	disk_labelline_margin
	    disk_labelline_yspacing -3 mul disk_labeltext_yoffset add  moveto
	disk_line3 show
	newpath
	    disk_labelline_margin  disk_labelline_yspacing -4 mul  moveto
	    disk_labelline_width  0  rlineto
	stroke
	disk_labelline_margin
	    disk_labelline_yspacing -4 mul disk_labeltext_yoffset add  moveto
	disk_line4 show
    grestore
    % Slide area.
    newpath
	disk_wo2 neg disk_detail_leftmargin add
	    disk_ho2  moveto
	disk_wo2 neg disk_detail_leftmargin add disk_detail_radii add
	    disk_ho2 disk_slidearea_height sub disk_detail_radii add
	    disk_detail_radii 180 270 arc
	disk_wo2 neg disk_detail_leftmargin add disk_slidearea_width add disk_detail_radii sub
	    disk_ho2 disk_slidearea_height sub disk_detail_radii add
	    disk_detail_radii 270 0 arc
	disk_wo2 neg disk_detail_leftmargin add disk_slidearea_width add
	    disk_ho2  lineto
    stroke
    % Slide.
    newpath
	disk_wo2 neg disk_detail_leftmargin add disk_slidearea_width add disk_slide_width sub
	    disk_ho2  moveto
	disk_wo2 neg disk_detail_leftmargin add disk_slidearea_width add disk_slide_width sub disk_detail_radii add
	    disk_ho2 disk_slidearea_height sub disk_detail_radii add
	    disk_detail_radii 180 270 arc
    stroke
    % Slide hole.
    newpath
	disk_wo2 neg disk_detail_leftmargin add disk_slidearea_width add disk_slidehole_xmargin sub
	    disk_ho2 disk_slidehole_ymargin sub  moveto
	0  disk_slidehole_height neg  rlineto
	disk_slidehole_width neg  0  rlineto
	0  disk_slidehole_height  rlineto
    closepath  stroke
} def


% DOT diamond - size 1, centered at 0,0.

/DOT_lw  0.01  def			% line width
/DOT_inset  0.06  def			% inset of inner border

/DOT_bits_xspacing  0.012  def
/DOT_bits_yspacing  0.020  def
/DOT_bits_size  0.75  def
/DOT_bits_xsize  DOT_bits_xspacing DOT_bits_size mul  def
/DOT_bits_ysize  DOT_bits_yspacing DOT_bits_size mul  def
/DOT_bits_nx  1 DOT_bits_xspacing div  def
/DOT_bits_ny  1 DOT_bits_yspacing div  def
/DOT_bits_xso2  DOT_bits_xsize 2 div  def
/DOT_bits_yso2  DOT_bits_ysize 2 div  def

/DOT_diskoffset  0.19  def		% y-position of disk
/DOT_diskscale  0.28 3.5 in div  def	% scale of disk
/DOT_fontsize  0.09  def		% size of lettering
/DOT_wordoffset  -0.06  def		% y-position of "CRYPTO DATA"
/DOT_numoffset  -0.34  def		% y-position of "10"

/DOT_inner_outline {
    newpath
	-0.5 DOT_inset add  0  moveto
	0  0.5 DOT_inset sub  lineto
	0.5 DOT_inset sub  0  lineto
	0  -0.5 DOT_inset add  lineto
    closepath
} def

/DOT_bits_0 {
    gsave
	DOT_bits_xso2 DOT_bits_yso2 scale
	newpath
	    0 0 1 0 360 arc
	stroke
    grestore
}def

/DOT_bits_1 {
    newpath
	0  DOT_bits_yso2 neg  moveto
	0  DOT_bits_ysize  rlineto
    stroke
}def

/DOT_bits {
    0 setlinewidth
    gsave
	DOT_bits_nx DOT_bits_xspacing mul 2 div neg
	    DOT_bits_ny DOT_bits_yspacing mul 2 div neg  translate
	0 1 DOT_bits_ny {
	    gsave
		0  exch DOT_bits_yspacing mul  translate
		0 1 DOT_bits_nx {
		    gsave
			DOT_bits_xspacing mul  0  translate
			rand 2147483648 div 0.5 lt {
			    DOT_bits_0
			} {
			    DOT_bits_1
			} ifelse
		    grestore
		} for
	    grestore
	} for
    grestore
} def

/DOT {
    % Outer border.
    DOT_lw setlinewidth
    black
    newpath
	-0.5 0 moveto
	0 0.5 lineto
	0.5 0 lineto
	0 -0.5 lineto
    closepath  stroke
    % Fill inner area with 1's and 0's.
    gsave
	DOT_inner_outline
	clip
	DOT_bits
    grestore
    % Inner border.
    DOT_inner_outline
    stroke
    % Disk.
    gsave
	0  DOT_diskoffset  translate
	DOT_diskscale dup scale
	45 rotate
	black
	(PGP public key) (1024 bits) () () disk
    grestore
    % "CRYPTO DATA".
    /Helvetica-Bold findfont DOT_fontsize scalefont setfont
    0 DOT_wordoffset DOT_fontsize 0.4 mul sub moveto
    (CRYPTO DATA) showcenter
    % "10".
    0 DOT_numoffset DOT_fontsize 0.4 mul sub moveto
    (10) showcenter

} def


% Main code.

%/preview true def
/preview false def

preview {
    /m_x_offset 0.5 in def
    /m_y_offset 0.5 in def
    /m_x_count 1 def
    /m_y_count 1 def
    /m_size 7.5 in def
    /m_x_space 0 def
    /m_y_space 0 in def
    /m_angle 0 def
} {
    /m_x_offset 0.375 in def
    /m_y_offset 0.75 in def
    /m_x_count 3 def
    /m_y_count 3 def
    /m_size 2.25 in def
    /m_x_space 0.50 in def
    /m_y_space 0.75 in def
    /m_angle 45 def
    % Use manual feed.
    { statusdict begin /manualfeed true def end } stopped pop
} ifelse

gsave
    m_x_offset m_y_offset translate
    0 1 m_y_count 1 sub {
	gsave
	    0  exch m_size m_y_space add mul  translate
	    0 1 m_x_count 1 sub {
		gsave
		    m_size m_x_space add mul  0  translate
		    m_size 2 div dup translate
		    m_size dup scale
		    m_angle rotate
		    1 m_angle cos div dup scale
		    DOT
		grestore
	    } for
	grestore
    } for
grestore

showpage