Belle Nuit Montage
PS:page341
TinyPS Editor
Render
% prologue % support procedures /inch { 72 mul } def /advanceline { /nextline nextline linespace sub def } def /advancepara { /nextline nextline paraspace sub def } def % text rightshow % measure width and move to the left /rightshow { dup stringwidth pop neg 0 rmoveto show } def % text centershow % measure width and move halfway to the left /centershow { dup stringwidth pop 2 div neg 0 rmoveto show } def % text countblanks % measure stringwidth and count blanks and prepare widthshow statement /countblanks { 10 dict begin /c 0 def { ( ) search { /c c 1 add def pop pop } { pop c end exit } ifelse } loop } def % text x justifyshow - /justifyshow { exch dup stringwidth pop 3 -1 roll exch sub exch dup countblanks 1 max 3 -1 roll exch div 0 8#040 4 -1 roll widthshow } def % text w wraptext post w pre % searches string forward for space. /wraptext { 10 dict begin /maxwidth exch def /text exch def /linewidth 0 def /linelength 0 def /spacewidth ( ) stringwidth pop def text { dup /currenttext exch def ( ) search { dup stringwidth pop linewidth add dup maxwidth le { spacewidth add /linewidth exch def length 1 add linelength add /linelength exch def pop } { pop pop pop pop exit } ifelse } { pop text length /linelength exch def /currenttext () def exit } ifelse } loop currenttext length { /linelength linelength 1 sub def } if %remove trailing space if not last linelength 0 le { /linelength currenttext length def } if %if not found. currenttext maxwidth text 0 linelength getinterval end } def % text x y w l showblock y /showblock { /l exch def /w exch def /y exch def /x exch def w { wraptext dup length { newpath x y moveto show y l sub /y exch def } { pop pop pop exit } ifelse } loop y } def % text x y w l showrightblock y /showrightblock { /l exch def /w exch def /y exch def /x exch def w { wraptext dup length { newpath x w add y moveto rightshow y l sub /y exch def } { pop pop pop exit } ifelse } loop y } def % text x y w l showcenterblock y /showcenterblock { /l exch def /w exch def /y exch def /x exch def w { wraptext dup length { newpath x w 2 div add y moveto centershow y l sub /y exch def } { pop pop pop exit } ifelse } loop y } def % text x y w l showjustifyblock y /showjustifyblock { /l exch def /w exch def /y exch def /x exch def w { wraptext 3 -1 roll dup 4 1 roll length { newpath x y moveto w justifyshow y l sub /y exch def } { x y moveto show pop pop exit } ifelse } loop y } def /bodytext { secondcolumn nextline moveto linewidth justifyshow } def % parameter /topstart 9.5 inch def /bodystart 8.5 inch def /linespace 14 def /paraspace 28 def /leftmargin 0.5 inch def /rightmargin 8 inch def /rightcolumn 2.5 inch def /secondcolumn 3 inch def /Times-Bold findfont 16 scalefont setfont /nextline topstart def (ACME WIDGETS INCORPORATED) rightmargin leftmargin add 2 div nextline moveto centershow /nextline nextline 20 sub def (Fiscal Year 1986) rightmargin leftmargin add 2 div nextline moveto centershow /Times-Roman findfont 12 scalefont setfont /LM secondcolumn def /RM 7.5 inch def /linewidth RM LM sub def /nextline bodystart def (Acme Widgets was founded in 1952 by Dippy and Daffy Acme) bodytext advanceline (to produce high technology widgets for the growing aerospace) bodytext advanceline (market. Acme was quickly recognized as being the best) bodytext advanceline (widget works in the country. Continued investment in new) bodytext advanceline (technology and manufacturing methods has kept Acme Widgets) bodytext advanceline (in the forefront of this industry.) dup stringwidth pop /linewidth exch def bodytext /nextline bodystart def /Times-Bold findfont 12 scalefont setfont (History:) rightcolumn nextline moveto rightshow /Times-Roman findfont 12 scalefont setfont /linewidth RM LM sub def /nextline bodystart linespace 8 mul sub def (Acme Widgets was founded in 1952 by Dippy and Daffy Acme to produce high technology widgets for the growing aerospace market. Acme was quickly recognized as being the best widget works in the country. Continued investment in new technology and manufacturing methods has kept Acme Widgets in the forefront of this industry.) secondcolumn nextline linewidth linespace showblock pop /nextline bodystart linespace 16 mul sub def (Acme Widgets was founded in 1952 by Dippy and Daffy Acme to produce high technology widgets for the growing aerospace market. Acme was quickly recognized as being the best widget works in the country. Continued investment in new technology and manufacturing methods has kept Acme Widgets in the forefront of this industry.) secondcolumn nextline linewidth linespace showrightblock pop /nextline bodystart linespace 24 mul sub def (Acme Widgets was founded in 1952 by Dippy and Daffy Acme to produce high technology widgets for the growing aerospace market. Acme was quickly recognized as being the best widget works in the country. Continued investment in new technology and manufacturing methods has kept Acme Widgets in the forefront of this industry.) secondcolumn nextline linewidth linespace showcenterblock pop /nextline bodystart linespace 32 mul sub def (Acme Widgets was founded in 1952 by Dippy and Daffy Acme to produce high technology widgets for the growing aerospace market. Acme was quickly recognized as being the best widget works in the country. Continued investment in new technology and manufacturing methods has kept Acme Widgets in the forefront of this industry.) secondcolumn nextline linewidth linespace showjustifyblock pop showpage
Exercices
≡
Home
Deutsch
English
Français
Login
English
Deutsch
English
Français
Login
Login
