MICRO2.SCHWER@CRVAX.SRI.COM ("Micro Mauler") (03/05/88)
Those who write Department of Defense reports will find
this PostScript version of DD 1473 very handy. We are interested
in learning about other standard forms that have been converted
to PostScript.
Len Schwer Micro2.Schwer@CRVAX.SRI.COM
Schwer@KL.SRI.COM
=============================================================
Submitted for:
Herb Lindberg
APTEK, Inc
4320 Stevens Creek Blvd.
Suite 195
San Jose, CA 95129
(408)241-7191
Report Documentation Form DD1473
Here are two PostScript files to be used in
preparing DD1473 forms by a simple fill-in-the-blanks procedure.
-----------------------------------------------------------------
% DD1473.PS Creates DD Form 1473, 84 Mar. version, side one
/formdict 50 dict def
formdict begin
gsave
/in {72 mul} def
35 in 10.45 in translate % put origin @ upper left corner of form box
/t0 0 def % define horizontal tabs for entire form
/t1 2.65 in def
/t2 3.9 in def
/t3 4.9 in def
/t4 5.85 in def
/t5 6.8 in def
/t6 1.95 in def
/t7 6.2 in def
/t8 .8 in def
/t9 1.6 in def
/t10 2.65 in def
/boxwidth 7.8 in def % Make outer border
/boxheight 9.8 in def
1.5 setlinewidth
0 0 moveto
0 boxheight neg rlineto
boxwidth 0 rlineto
0 boxheight rlineto
closepath stroke
% Draw all vertical lines in form
t1 1.9 in neg moveto 0 .5 in neg rlineto
t1 3.1 in neg moveto 0 .5 in neg rlineto
t2 .35 in neg moveto 0 3.95 in neg rlineto
/segvert {5.15 in neg moveto 0 .35 in neg rlineto} def
t6 segvert
t2 segvert
t7 segvert
t10 6 in neg moveto 0 .7 in neg rlineto
t2 9.1 in neg moveto 0 .7 in neg rlineto
t4 9.45 in neg moveto 0 .35 in neg rlineto
5 setlinewidth stroke
/midvert {3.8 in neg moveto 0 .5 in neg rlineto} def
t3 midvert
t4 midvert
t5 midvert
4 13 moveto 2.03 in 0 rlineto % security classification lines
5.55 in 10 in neg moveto 2.03 in 0 rlineto
2 setlinewidth stroke .5 setlinewidth
/Helvetica-Bold findfont 11 scalefont setfont
(REPORT DOCUMENTATION PAGE)%
dup stringwidth pop neg boxwidth add 2 div -17 moveto show
/blt 7 def % block label type size
/helvet {/Helvetica findfont blt scalefont setfont} def
/xblock 4 def
/yblock {blt 1.1 mul} def
/block % Enter block title; Stack: title, tx, ty
{/ty exch def
xblock add ty yblock sub moveto helvet show} def
/datasize 10 def % entry data type size
/type {/Courier findfont datasize scalefont setfont} def
/line datasize 1.2 mul def % data line separation
/xdata .25 in def
/ydata yblock line add def
/data % Enter typed data into block
{/ty exch def
xdata add ty ydata sub moveto type show} def
/d1 {y data} def % Enter first line; stack: data, tab
/d2 {y line sub data} def % Second line
/d3 {y line 2 mul sub data} def % Third line
% From here on, make horizontal lines, fill in block titles and enter data.
% ] <=== These indicate maximum size of data for indicated block.
% Data is entered between parentheses. Blank pairs ( ) are given for all
% available vertical space in each DD1473 form block, followed by the
% appropriate block tab and d1, d2, d3, as space is available.
/y 0 def % initialize y at top of box
/down {y exch sub /y exch def} def % stack: positive downstep
/fulline {down 0 y moveto boxwidth 0 rlineto stroke} def % stack: downstep
35 in fulline
(1a. REPORT SECURITY CLASSIFICATION) 0 y block
% ]
(UNCLASSIFIED ) 0 d1
(1b. RESTRICTIVE MARKINGS) t2 y block
% ]
(N/A ) t2 d1
35 in fulline
(2a. SECURITY CLASSIFICATION AUTHORITY) 0 y block
% ]
(N/A Since Unclassified) 0 d1
(3. DISTRIBUTION / AVAILABILITY OF REPORT) t2 y block
% ]
(Approved for public release; distribution ) t2 d1
(is unlimited) t2 d2
( ) t2 d3
35 in down 0 y moveto t2 0 rlineto stroke
(2b. DECLASSIFICATION / DOWNGRADING SCHEDULE) 0 y block
% ]
(N/A Since Unclassified ) 0 d1
35 in fulline
(4. PERFORMING ORGANIZATION REPORT NUMBER(S)) 0 y block
% ]
(A-86-7R ) 0 d1
( ) 0 d2
(5. MONITORING ORGANIZATION REPORT NUMBER(S)) t2 y block
% ]
(DNA-TR-86-361 ) t2 d1
( ) t2 d2
5 in fulline
(6a. NAME OF PERFORMING ORGANIZATION) 0 y block
% ]
(APTEK, Inc.) 0 d1
( ) 0 d2
(6b. OFFICE SYMBOL) t1 y block % of Performing Org.
( (If applicable)) t1 y blt sub block
% ]
( ) t1 y blt sub data
(7a. NAME OF MONITORING ORGANIZATION) t2 y block
% ]
(Director ) t2 d1
(Defense Nuclear Agency) t2 d2
5 in fulline
(6c. ADDRESS (City, State, and ZIP Code)) 0 y block % of Performing Org.
% ]
(4320 Stevens Creek Blvd. ) 0 d1
(Suite 195) 0 d2
(San Jose, CA 95129) 0 d3
(7b. ADDRESS (City, State, and ZIP Code)) t2 y block % of Monitoring Agency
% ]
( ) t2 d1
(Washington, DC 20305-1000) t2 d2
( ) t2 d3
7 in fulline
(8a. NAME OF FUNDING / SPONSORING) 0 y block
( ORGANIZATION) 0 y blt sub block
% ]
(Same as Monitoring Agency ) 0 y blt sub data
(8b. OFFICE SYMBOL) t1 y block % of Funding/Sponsoring Org.
( (If applicable)) t1 y blt sub block
% ]
(SPAS/Frankel ) t1 .2 in sub y blt sub data
(9. PROCUREMENT INSTRUMENT IDENTIFICATION NUMBER) t2 y block
% ]
(DNA 001-85-C-0264 ) t2 d1
( ) t2 d2
5 in fulline
(8c. ADDRESS (City, State, and ZIP Code)) 0 y block % of Funding Org.
% ]
( ) 0 d1
( ) 0 d2
( ) 0 d3
(10. SOURCE OF FUNDING NUMBERS) t2 y 2 sub block
2 in down
t2 y moveto boxwidth y lineto .2 setlinewidth stroke .5 setlinewidth
(PROGRAM) t2 y block
(ELEMENT NO.) t2 y blt sub block
% ]
(62715H ) t2 .15 in sub y blt sub data
(PROJECT) t3 y block
(NO.) t3 y blt sub block
% ]
(RX ) t3 .15 in sub y blt sub data
(TASK) t4 y block
(NO.) t4 y blt sub block
% ]
(RC ) t4 .15 in sub y blt sub data
(WORK UNIT) t5 y block
(ACCESSION NO.) t5 y blt sub block
% ]
(DH200851 ) t5 .15 in sub y blt sub data
5 in fulline
(11. TITLE (All caps; Include Security Classification)) 0 y block
% 90 characters allowable per line
(DEFORMATION RIPPLE FROM THE SPLAT IMPULSE SIMULATION TECHNIQUE) 0 d1
( ) 0 d2
5 in fulline
(12. PERSONAL AUTHOR(S)) 0 y block
% 90 characters allowable
(Lindberg, Herbert E. ) 0 d1
35 in fulline
(13a. TYPE OF REPORT) 0 y block
% ]
(Technical ) 0 d1
(13b. TIME COVERED) t6 y block
(FROM _____________ TO ____________) t6 y blt 2 mul sub block
(85/11/01) t6 .13 in add y data % from (year/mo/day)
(86/09/01) t6 1.02 in add y data % to (year/mo/day)
(14. DATE OF REPORT (Year, Month, Day)) t2 y block
(86/09/11) t2 d1
(15. PAGE COUNT) t7 y block
( ) t7 d1
35 in fulline
(16. SUPPLEMENTAL NOTATION) 0 y block
% 90 characters allowed per line
(This work was sponsored by the Defense Nuclear Agency under RDT&E RMC Codes)%
0 d1
(B3460857642 RX RC 00017 25904D and B3460857642 RX RC 00018 25904D) 0 d2
5 in fulline
(17.) 0 y block
(COSATI CODES) 1 in y 1 sub block
(18. SUBJECT TERMS (Continue on reverse if necessary and identify
by block number)) t10 y block
% ]
(Buckling Dynamic Imperfections ) t10 d1
(Impulsive Load Plates Ripple ) t10 d2
(Shells Simulation Explosives ) t10 d3
2 setlinewidth
t8 6.175 in neg moveto 0 .525 in neg rlineto
t9 6.175 in neg moveto 0 .525 in neg rlineto stroke
175 in down 0 y moveto t10 0 rlineto stroke
(FIELD) .23 in y 1 sub block
(20 ) 5 y 2 sub data
(13 ) 5 y .19 in sub data
(GROUP) .96 in y 1 sub block
(11 ) .85 in y 2 sub data
(13 ) .85 in y .19 in sub data
(SUB-GROUP) 1.8 in y 1 sub block
175 in down 0 y moveto t10 0 rlineto stroke
175 in down 0 y moveto t10 0 rlineto stroke
5 setlinewidth
175 in fulline
(19. ABSTRACT (Continue on reverse if necessary and identify by
block number)) 0 y block
% The abstract is entered with a word processor, with this form as overlay.
2.4 in fulline
(20. DISTRIBUTION / AVAILABILITY OF ABSTRACT) 0 y block
/box % stack: x, y
{moveto 0 -8 rlineto
8 0 rlineto
0 8 rlineto closepath stroke} def
/ybox {y blt sub 6 sub} def
18 ybox box
(UNCLASSIFIED / UNLIMITED) 30 ybox 8 sub moveto helvet show
2 in ybox box
(SAME AS RPT.) 2 in 12 add ybox 8 sub moveto helvet show
3.05 in ybox box
(DTIC USERS) 3.05 in 12 add ybox 8 sub moveto helvet show
(21. ABSTRACT SECURITY CLASSIFICATION) t2 y block
% ]
(UNCLASSIFIED ) t2 d1
35 in fulline
(22a. NAME OF RESPONSIBLE INDIVIDUAL) 0 y block
% ]
(Betty L. Fox ) 0 d1
(22b. TELEPHONE (Include Area Code)) t2 y block
% ]
((202) 325-7042) t2 d1
(22c. OFFICE SYMBOL) t4 y block
% ]
(DNA/CSTI ) t4 d1
35 in down
(SECURITY CLASSIFICATION OF THIS PAGE) 5.5 in y 4 sub block
(UNCLASSIFIED) 5.55 in 10 in 12 add neg moveto type show
(i) boxwidth 2 div 3 sub 10.2 in neg moveto type show
(SECURITY CLASSIFICATION OF THIS PAGE) 4 4 moveto helvet show
(UNCLASSIFIED) 4 16 moveto type show
/Helvetica-Bold findfont 9 scalefont setfont
(DD FORM 1473, 84 MAR) 4 boxheight 14 add neg moveto show
grestore
end
----------------------------------------------------------
% DD1473B.PS Creates DD Form 1473, back side
/mydict 20 dict def
mydict begin
gsave
/in {72 mul} def
5 in 10.25 in translate % put origin @ upper left corner of form box
/boxwidth 7.5 in def % Make outer border
/boxheight 9.5 in def
1 setlinewidth
0 0 moveto
0 boxheight neg rlineto
boxwidth 0 rlineto
0 boxheight rlineto
closepath stroke
/Helvetica findfont 10 scalefont setfont
/str (SECURITY CLASSIFICATION OF THIS PAGE) def
/length str stringwidth pop def
5 setlinewidth
0 4 moveto str show
0 15 moveto length 0 rlineto stroke
boxwidth length sub boxheight 12 add neg moveto str show
boxwidth length sub boxheight 15 add neg moveto length 0 rlineto stroke
/uncl (UNCLASSIFIED) def
/Helvetica-Bold findfont 16 scalefont setfont
0 22 moveto uncl show
uncl dup stringwidth pop boxwidth sub neg boxheight 34 add neg moveto show
/Courier findfont 10 scalefont setfont
(ii) dup stringwidth pop boxwidth sub 2 div neg boxheight 24 add neg
moveto show
grestore
end