| % --- variables ------------------------ % --- procedures ----------------------- /borders { /newline { /doLine { /dot { % --- main ----------------------------- .5 setlinewidth showpage |
|
PostScript(R) Language Tutorial and Cookbook (APL) posted with amazlet at 09.10.07 Adobe Systems Inc. おすすめ度の平均:
|
| % --- variables ------------------------ % --- procedures ----------------------- /up { % --- main ----------------------------- basefont [12 up 0 0 12 up 0 0] makefont setfont basefont [17 up 0 0 12 up 0 0] makefont setfont basefont [7 up 0 0 12 up 0 0] makefont setfont basefont [12 up 0 6.93 up 12 up 0 0] makefont setfont |
|
PostScript(R) Language Tutorial and Cookbook (APL) posted with amazlet at 09.10.07 Adobe Systems Inc. おすすめ度の平均:
|
| % --- variables ------------------------ % --- procedures ------------------------ /nllfNec { /done? { /fillpage { % --- main ----------------------------- /Times-Roman findfont font-size-2 scalefont setfont RM LM sub 0 setgray showpage |
|
PostScript(R) Language Tutorial and Cookbook (APL) posted with amazlet at 09.10.07 Adobe Systems Inc. おすすめ度の平均:
|
| % --- variables ------------------------ % --- procedures ----------------------- /prt-n { /prtchar { /PrintCodeandChar { % --- main ----------------------------- /LM 288 def showpage |
|
PostScript(R) Language Tutorial and Cookbook (APL) posted with amazlet at 09.10.07 Adobe Systems Inc. おすすめ度の平均:
|
| % --- variables ------------------------ % --- procedures ----------------------- /aryshow { % --- main ----------------------------- [ |
| % --- variables ------------------------ % --- procedure ------------------------ /prtstr { /format { % --- main ----------------------------- [(Concience)(is)(inner)(voice) showpage
|
| % --- variables ------------------------ % --- procedures ------------------------ /PrintSample { /FontList [ % --- main ----------------------------- |
|
PostScript(R) Language Tutorial and Cookbook (APL) posted with amazlet at 09.10.07 Adobe Systems Inc. おすすめ度の平均:
|
GS>[1 2 3 4 5] { dup mul } forallGS<5>stack2516941GS<5>[1 2 3 4 5] { 10 mul } forallGS<10>stack50403020102516941GS<10>
/Times-Italic findfont 300 scalefont setfont /printZip { 0 0 moveto (Zip) show } def /printing{ .99 -.03 0 { setgray printZip -1 .5 translate } for } def 80 500 translate printing 1 setgray printZip 0 -400 translate printing showpage
% --- procedures --------------------------------- /pagewidth { 8.5 72 mul } def /doCircle { xpos ypos radius 0 360 arc stroke } def /increase-x { xpos radius add /xpos exch def } def /lineofcircles { /ypos exch def /radius exch def /xpos 0 def { xpos pagewidth le { doCircle increase-x } { exit } ifelse } loop } def % --- programs ---------------------------------- 10 100 lineofcircles 30 100 lineofcircles 90 100 lineofcircles /seed-x 30 def /inc-x 30 def 5 { seed-x 400 lineofcircles /seed-x seed-x inc-x add def } repeat 10 { -10 rotate -150 0 translate 10 800 lineofcircles } repeat showpage
% --- variables ---------------------------------- /LM 72 def % ? /Times-Roman findfont 50 scalefont setfont /nstr 9 string def % --- procedures --------------------------------- /factorial { dup 1 gt { dup 1 sub factorial mul } if } def /newline { currentpoint 40 sub exch pop LM exch moveto } def /prt-n { nstr cvs show } def /prtFactorial { dup prt-n (! = ) show factorial prt-n newline } def % --- main --------------------------------------- LM 600 moveto 1 1 12 { prtFactorial } for LM 100 moveto 10 factorial 7 string cvs show showpage
% --- variables ------------------------ /depth 0 def /maxdepth 12 def /arrow-size 300 def % --- procedures ----------------------- /down { /depth depth 1 add def } def /up { /depth depth 1 sub def } def /slide-v { /proc exch def /proc load /depth depth 1 proc def } def /DoLine { 0 arrow-size rlineto currentpoint stroke translate 0 0 moveto } def /FractArrow { gsave .7 .7 scale 10 setlinewidth % down { add } slide-v DoLine depth maxdepth le { 135 rotate FractArrow -270 rotate FractArrow } if % up { sub } slide-v grestore } def /def-pos { 300 400 moveto } def /rotate-90 { 90 rotate } def % --- main ----------------------------- def-pos 4 { gsave FractArrow grestore rotate-90 } repeat stroke showpagen追加：
% --- variables ------------------------ /depth 0 def /maxdepth 12 def /arrow-size 300 def /scale-point .7 def % --- procedures ----------------------- /down { /depth depth 1 add def } def /up { /depth depth 1 sub def } def /slide-v { /proc exch def /proc load /depth depth 1 proc def } def /DoLine { 0 arrow-size rlineto currentpoint stroke translate 0 0 moveto } def /FractArrow { gsave scale-point dup scale 10 setlinewidth % down { add } slide-v DoLine depth maxdepth le { 135 rotate FractArrow -270 rotate FractArrow } if % up { sub } slide-v grestore } def /def-pos { 300 400 moveto } def /rotate-90 { 90 rotate } def % --- main ----------------------------- def-pos 4 { gsave FractArrow grestore rotate-90 } repeat stroke showpagen
 PostScript(R) Language Tutorial and Cookbook (APL) posted with amazlet at 09.10.07 Adobe Systems Inc. Addison-Wesley Professional 売り上げランキング: 235737 おすすめ度の平均:  まず最初に読むべき入門書 効率の良いPostScript書くなら… Amazon.co.jp で詳細を見る |
% ---variables---------------------------------------------
/LM 72 def
/RM 212 3 mul def
/ypos 720 def
/lineheight 40 def
% ---procedures--------------------------------------------
/newline{
ypos lineheight sub
/ypos exch def
LM ypos moveto
} def
/prtstr{
dup stringwidth pop
currentpoint pop
add RM gt
{newline} if
show
} def
/choosefont{
exch findfont exch scalefont setfont
} def
% ---main program------------------------------------------
/Times-Italic findfont 50 scalefont setfont
LM ypos moveto
(If ) prtstr
(you ) prtstr
(tell ) prtstr
(the ) prtstr
(truth, ) prtstr
(you ) prtstr
(don't ) prtstr
(have ) prtstr
(to ) prtstr
(remember ) prtstr
(anything. ) prtstr
(- Mark ) prtstr
(Twain ) prtstr
showpage
% --- variables ----------------------------------------
/scalefactor 1 def
/counter 0 def
% --- procedures ---------------------------------------
/DecreaseScale {
scalefactor .2 sub
/scalefactor exch def
} def
/IncreaseConter {
/counter counter 1 add def
} def
/trappath {
0 0 moveto
90 0 rlineto
-20 45 rlineto
-50 0 rlineto
closepath
} def
/doATrap {
gsave
1 scalefactor scale
trappath
counter 2 mod
0 eq {.5} {0} ifelse
setgray fill
grestore
} def
% --- programs -----------------------------------------
0 0 moveto
250 350 translate
10 {
IncreaseConter
doATrap
DecreaseScale
0 20 translate
} repeat
showpage
