PS:page218

TinyPS Editor

% prologue
% support procedures

/inch { 72 mul } def
/line { 12 mul } def
/halfinch { 36 mul } def

/centertext { /right exch def /left exch def
dup
stringwidth pop 2 div 
right left sub 2 div
exch sub left add
cline moveto 
 show 
} def

/rightjustifytext { /rightcolumn exch def 
dup
stringwidth pop
rightcolumn exch sub
cline moveto show } def

/screenbox { /dimy exch def /dimx exch def
newpath
.5 inch 0 moveto 
dimx 0 dimx dimy .25 inch arcto 4 {pop} repeat
dimx dimy 0 dimy .25 inch arcto 4 {pop} repeat
0 dimy 0 0 .25 inch arcto 4 {pop} repeat
0 0 dimx 0 .25 inch arcto 4 {pop} repeat
closepath } def

/cornerbox { /dimy exch def /dimx exch def
newpath
0 0 moveto 0 12 rlineto 0 0 moveto 12 0 rlineto
dimx 0 moveto 0 12 rlineto dimx 0 moveto -12 0 rlineto
0 dimy moveto 0 -12 rlineto 0 dimy moveto 12 0 rlineto
dimx dimy moveto 0 -12 rlineto dimx dimy moveto -12 0 rlineto stroke } def

/sun { /radius exch def 0 0 radius 0 360 arc } def

/hill { /base exch def /hgt exch def /halfbase base 2 div def 
0 0 moveto  halfbase hgt lineto base 0 lineto } def

/verticallines { 
newpath
144 47 line moveto 144 12.5 line lineto
317 47 line moveto 317 12.5 line lineto
365 47 line moveto 365 12.5 line lineto
413 47 line moveto 413 12.5 line lineto
467 47 line moveto 467 12.5 line lineto 
stroke } def

% elemments

/graphic {
gsave
3 0 translate 8 8 hill .3 setgray fill
grestore
gsave
14 9 translate 1.5 sun stroke
grestore
gsave
5 6 hill .7 setgray fill 7 0 translate 5 6 hill fill
grestore } def

/logotitles {
/Helvetica-BoldOblique findfont 18 scalefont setfont
/cline 0.75 inch def
(MOUNTAIN SPORTS, LTD.) 0 8 inch centertext
/Helvetica findfont 10 scalefont setfont
/cline 0.5 inch def
(123 Mountain Way, Chatsworth, CA 91311) 0 8 inch centertext
/cline .5 inch 12 sub def
((818) 882-8144     (213) 5.55-1912) 0 8 inch centertext} def

/logo {
logotitles
9.5 9.5 scale
1 9.5 div setlinewidth
graphic } def

/headtitles {
/Helvetica-Bold findfont 15 scalefont setfont
/cline 52 line def
(INVOICE) .5 inch 8 inch centertext
/Helvetica-Bold findfont 12 scalefont setfont
(NO. :) 7 inch rightjustifytext } def

/datatitles { 
newpath
.5 inch 45 line moveto 7.5 inch 0 rlineto stroke
.5 inch 45.5 line moveto 
/Helvetica findfont 10 scalefont setfont
/cline 45.5 line def
(ITEM NO) 72 144 centertext
(DESCRIPTION) 144 317 centertext
(ORDER) 318 365 centertext
(SHIP) 366 413 centertext
(UNIT #) 414 467 centertext
(EXT. PRICE) 468 540 centertext
} def

/foottitles {
newpath
.5 inch 12.5 line moveto 7.5 inch 0 rlineto stroke
467 12.5 line moveto 467 4 line lineto stroke
/Helvetica-Bold findfont 10 scalefont setfont
/cline 11 line def
(SUBTOTAL) 463 rightjustifytext
/cline 9 line def
(SALES & TAX) 463 rightjustifytext
/cline 7 line def
(SHIPPING) 463 rightjustifytext
/cline 5 line def
(TOTAL) 463 rightjustifytext
} def

/forminvoice {
 gsave
.5 inch 55 line translate
logo
grestore

headtitles
gsave
.5 inch 48 line translate
2.5 inch 1 inch cornerbox
grestore

gsave
.5 inch 4 line translate
7.5 inch 43 line screenbox
2 setlinewidth
stroke
grestore
verticallines
datatitles
foottitles
grestore } def

/address {
.6 inch 49 line moveto count 3 gt { show } if
.6 inch 50 line moveto count 2 gt { show } if
.6 inch 51 line moveto count 1 gt { show } if
.6 inch 52 line moveto count 0 gt { show } if } def

/invoicenumber {
/cline 52 line def 8 inch rightjustifytext } def

/date {
/cline 50 line def 8 inch rightjustifytext  
} def

/lineone {
1 inch 43 line moveto show /cline 43 line def } def

/nextline {
/cline cline 18 sub def 1 inch cline moveto show } def

/totale {
/cline 5 line def 7.5 inch rightjustifytext 
/cline 7 line def 7.5 inch rightjustifytext 
/cline 9 line def 7.5 inch rightjustifytext 
/cline 11 line def 7.5 inch rightjustifytext } def

% mainstat

forminvoice

(10423)
invoicenumber

/Courier findfont 10 scalefont setfont
(David Holzgang)
(2261 Penfield Ave.)
(Chatsworth, CH 91311)
address

(20-Feb-87)
date

( 12-456      Bodyback - Blue                  1        1    28.95       $28.95) lineone
( 28-145      Wool socks - Size 10             4        4     3.95       $15.80) nextline
( 95-004      Strawberries                    10       10     1.45       $14.50) nextline
( 95-010      Abricots                         5        5     1.29        $6.45) nextline
( 96-148      Chicken Cacciatore               4        4     2.95       $11.80) nextline
( 96-104      Beef Stew                        4        3     2.95        $8.85) nextline
( 96-104      Spaghetti with Meat Sauce        2        2     2.95        $5.90) nextline
( 96-242      Trail Mix                        4        4     0.98        $3.92) nextline
( 35-129      First Aid Kit                    1        1     9.49        $9.49) nextline

($105.66)
($6.87)
($3.42)
($115.95)
totale

showpage

Exercices