2 PostScript PostScript (token) 437 == 437 == PostScript PostScript 437 == PostScript (operator) 437 == == ==

Size: px

Start display at page:

Download "2 PostScript PostScript (token) 437 == 437 == PostScript PostScript 437 == PostScript (operator) 437 == == =="

よりとしふじがわ
5 years ago
Views:

1 PostScript version Copyright c Daikoku Manabu 1 PostScript 1.1 PostScript PostScript PostScript (page description language) PostScript Adobe Systems Incorporated PostScript PostScript C Pascal Lisp Ruby 1.2 Ghostscript (language precessor) (compiler) (interpreter) PostScript PostScript Ghostscript Linux Ghostscript gs Ghostscript GS> PostScript 437 == 437 Ghostscript quit 1.3 PostScript (stack) (push) (pop)

2 2 PostScript PostScript (token) 437 == 437 == PostScript PostScript 437 == PostScript (operator) 437 == == == == == 437 pstack == == pstack pstack pstack 1.5 PostScript (arithmetic operator) add 2

3 PostScript 3 a b add a b sub a b mul a b div a b idiv a b mod a neg a b a b a b a b a b a b a 1: add add (68) == add == a b a b sub 100 mul neg == (4) 100 (400) ( 400) 1.6 PostScript (stack operator) clear pop exch 2 n j roll n j j j dup n copy n n index n 0

4 4 PostScript 1.7 PostScript PostScript PostScript output.ps PostScript.ps 437 == ( ) run (output.ps) run output.ps PostScript PostScript (path) 2 (current path) stroke stroke stroke (current page) PostScript (1) (2) (3) stroke (4)

5 PostScript PostScript x y PostScript x y x y PostScript (current point) moveto moveto x y moveto 2 x x y y (point) moveto (200,300) lineto lineto y x (x, y) (x, y) lineto (400,500) (400,500) lineto.ps moveto lineto lineto stroke moveto moveto batsu1.ps moveto lineto moveto lineto stroke 2.3

6 6 PostScript moveto lineto rmoveto rlineto x y rmoveto x y x y rlineto x y batsu2.ps moveto rlineto rmoveto rlineto stroke rmoveto rmoveto 2.4 stroke 1 setlinewidth setlinewidth 1 shikaku.ps moveto rlineto rlineto rlineto rlineto 70 setlinewidth stroke lineto rlineto closepath close.ps moveto rlineto rlineto rlineto closepath 70 setlinewidth stroke

7 PostScript stroke setrgbcolor setrgbcolor 3 setrgbcolor color.ps 30 setlinewidth moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke moveto rlineto setrgbcolor stroke 2.6 (line cap) (batt) (round) (projecting square) 3 setlinecap setlinecap cap.ps 70 setlinewidth setrgbcolor moveto lineto 0 setlinecap stroke moveto lineto 1 setlinecap stroke moveto lineto 2 setlinecap stroke moveto lineto moveto lineto moveto lineto 1 setlinewidth setrgbcolor 0 setlinecap stroke (line join) (miter) (round) (bevel) 3 setlinejoin setlinecap

8 8 PostScript join.ps 70 setlinewidth setrgbcolor moveto lineto lineto 0 setlinejoin stroke moveto lineto lineto 1 setlinejoin stroke moveto lineto lineto 2 setlinejoin stroke moveto lineto lineto moveto lineto lineto moveto lineto lineto 1 setlinewidth setrgbcolor 0 setlinecap stroke 2.8 (pattern) [... ] [30 20] [ ] (offset) setdash [40 20] 0 setdash dash.ps 5 setlinewidth setrgbcolor moveto rlineto [30 20] 0 setdash stroke moveto rlineto [30 20] 20 setdash stroke moveto rlineto [ ] 0 setdash stroke moveto rlineto [30] 0 setdash stroke moveto rlineto [ ] 0 setdash stroke moveto rlineto [] 0 setdash stroke roudash.ps

9 PostScript moveto rlineto rlineto closepath 40 setlinewidth setrgbcolor [120 50] 0 setdash 1 setlinecap 1 setlinejoin stroke arc arcn arc arcn arc arcn arc arcn 5 x y arc (200,300) arc.ps 20 setlinewidth arc stroke arcn stroke arc arcn arc arcn kofun.ps 20 setlinewidth moveto rlineto arc closepath stroke 3.2

10 10 PostScript arcto arcto 5 x y x y arcto (400,300) (400,300) (200,150) 100 arcto arcto arcto pop 4 arcto.ps moveto arcto pop pop pop pop 20 setlinewidth setrgbcolor stroke moveto lineto lineto 2 setlinewidth setrgbcolor stroke PostScript (Bézier curve) (control point) curveto curveto x y 3 x y 4 x y 1 1 curveto 4 bezier.ps moveto curveto 40 setlinewidth setrgbcolor stroke moveto

11 PostScript lineto moveto lineto 1 setlinewidth setrgbcolor stroke moveto curveto 40 setlinewidth setrgbcolor stroke moveto lineto moveto lineto 1 setlinewidth setrgbcolor stroke bezbez.ps moveto curveto curveto 20 setlinewidth setrgbcolor stroke moveto lineto moveto lineto 1 setlinewidth setrgbcolor stroke moveto lineto moveto lineto setrgbcolor stroke moveto curveto curveto 20 setlinewidth setrgbcolor stroke moveto lineto moveto lineto 1 setlinewidth setrgbcolor stroke moveto lineto moveto lineto setrgbcolor stroke

12 12 PostScript stroke stroke fill fill stroke fill fill stroke setrgbcolor fill stroke fill.ps setrgbcolor moveto rlineto rlineto rlineto fill arc fill 5.2 fill stroke gsave gsave (graphics state) gsave grestore grestore (graphics state stack) gsave grestore gsave.ps 10 setlinewidth moveto rlineto rlineto

13 PostScript rlineto setrgbcolor gsave fill grestore setrgbcolor stroke arc setrgbcolor gsave fill grestore setrgbcolor stroke 5.3 (winding rule) (even-odd rule) 2 fill PostScript fill eofill eofill eofill.ps setrgbcolor moveto rlineto rlineto rlineto moveto rlineto rlineto rlineto moveto rlineto rlineto rlineto fill moveto rlineto rlineto rlineto moveto rlineto rlineto rlineto moveto rlineto rlineto rlineto eofill

14 14 PostScript (text) PostScript ( ) (The Art of PostScript Programming) (character code) PostScript < > < c 6f f 75 2e> 16 PostScript 16 1 PostScript 6.2 PostScript Sakuranomiya text.ps setrgbcolor /Times-Roman findfont 64 scalefont setfont moveto (Sakuranomiya) show show show show show moveto rmoveto show 16 Hotarugaike

15 PostScript 15 chacode.ps setrgbcolor /Times-Roman findfont 64 scalefont setfont moveto <48 6f b 65> show 6.3 (font) PostScript (font dictionary) PostScript Times-Roman Helvetica Courier Symbol findfont findfont findfont (name) PostScript PostScript ( / ) /Times-Roman PostScript font.ps setrgbcolor /Times-Roman findfont 64 scalefont setfont moveto (Kawaramachi) show /Helvetica findfont 64 scalefont setfont moveto (Takarazuka) show /Courier findfont 64 scalefont setfont moveto (Shinkaichi) show /Symbol findfont 64 scalefont setfont moveto (Kitasenri) show 6.4 PostScript Ryumin-Light-83pv-RKSJ-H GothicBBB-Medium-83pv-RKSJ-H

16 16 PostScript 16 nihongo.ps setrgbcolor /Ryumin-Light-83pv-RKSJ-H findfont 64 scalefont setfont moveto <90bc ec 95fb> show /GothicBBB-Medium-83pv-RKSJ-H findfont 64 scalefont setfont moveto <91be 8e71 8bb4 8da1 8e73> show scalefont scalefont scalefont scafont.ps setrgbcolor /Times-Roman findfont 24 scalefont setfont moveto (Kawanishinoseguchi) show /Times-Roman findfont 36 scalefont setfont moveto (Kawanishinoseguchi) show /Times-Roman findfont 50 scalefont setfont moveto (Kawanishinoseguchi) show 6.6 (current font) setfont setfont (1) findfont (2) scalefont (3) setfont

17 PostScript show fill stroke charpath 1 1 charpath charpath (boolean) (true) (false) PostScript true false charpath 1 (outline font) charpath charpath.ps /Times-Roman findfont 140 scalefont setfont setrgbcolor moveto (Tenma) false charpath fill /Ryumin-Light-83pv-RKSJ-H findfont 200 scalefont setfont moveto < e> false charpath setrgbcolor fill show charpath outline.ps /Helvetica findfont 120 scalefont setfont setrgbcolor 3 setlinewidth moveto (Umeda) false charpath stroke /GothicBBB-Medium-83pv-RKSJ-H findfont 200 scalefont setfont moveto <947e 9363> false charpath gsave setrgbcolor 10 setlinewidth stroke grestore

18 18 PostScript setrgbcolor fill PostScript PostScript PostScript namako isoginchaku umiushi kurage $@_+*-#! e9 PostScript ( / ) /namako /isoginchaku /umiushi843 /602kurage /$@_+*-#! PostScript 7.2 (variable) (define) def /namako 3804 def namako 3804 def def 3804 namako namako == 3804 def.ps /length 200 def moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath 30 setlinewidth setrgbcolor stroke

19 PostScript (executable array) { add sub mul == } PostScript exec exec exec { 1234 == } exec exec (procedure) PostScript /nanasen { 7000 == nanasen nanasen 7000 procedu.ps /square { moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath /length 200 def square 30 setlinewidth setrgbcolor stroke /sanbai { 3 mul sanbai sanbai 1 3

20 20 PostScript 400 sanbai == 1200 argume.ps /square { moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath /length 200 def square square square square 30 setlinewidth setrgbcolor stroke 7.5 PostScript (dictionary) (key) (value) PostScript (dictionary stack) PostScript (operand stack) PostScript def (current dictionary) userdict globaldict systemdict 7.6 PostScript userdict def userdict userdict

21 PostScript 21 userdict dict dict 1 3 dict 3 dict dict 3 dict dict begin 3 dict begin dict begin PostScript /momo 8008 def momo momo == 8008 userdict 1 dict begin /momo 7117 def momo == 7117 momo == 8008 local.ps /rect { 2 dict begin /x 300 def /y 350 def moveto x 0 rlineto 0 y rlineto

22 22 PostScript x neg 0 rlineto closepath /x 100 def /y 200 def x y rect x 20 add y 30 add rect x 40 add y 60 add rect x 60 add y 90 add rect x 80 add y 120 add rect 10 setlinewidth setrgbcolor stroke def def exch def exch /kaki exch def kaki exch.ps /rect { 2 dict begin /height exch def /width exch def moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath rect rect rect rect rect 20 setlinewidth setrgbcolor stroke x y

23 PostScript 23 (transformation) gsave grestore gsave grestore 8.2 PostScript translate translate tx ty translate 2 tx x ty y translate translate translate x 40 y 20 trans.ps /square { 1 dict begin /length 200 def 0 0 moveto length 0 rlineto 0 length rlineto length neg 0 rlineto closepath stroke /transsquare { gsave translate square grestore 10 setlinewidth setrgbcolor 0 0 transsquare transsquare transsquare 8.3 PostScript x y scale scale sx sy scale

24 24 PostScript 2 sx x sy y scale scale scale x 1.4 y 0.8 scale.ps /transscalearc { gsave translate scale arc stroke grestore 10 setlinewidth setrgbcolor transscalearc transscalearc transscalearc 8.4 PostScript rotate rotate 1 30 rotate rotate rotate 30 rotate.ps /transrotatetext { gsave translate rotate 0 0 moveto (Shigisanguchi) show grestore /Times-Roman findfont 64 scalefont setfont setrgbcolor transrotatetext transrotatetext transrotatetext transrotatetext

25 PostScript 25 a b eq a b ne a b gt a b lt a b ge a b le a b (equal) a b (not equal) a b (greater than) a b (less than) a b (greater equal) a b (less equal) 2: a b and a b or a b xor a not a b a b a b a 3: (relational operator) 2 6 PostScript 8 5 gt == true 5 8 gt == false 9.2 (logical operator) 3 4 PostScript 5 8 le 7 7 eq and == true 5 8 le 7 4 eq and == false 9.3 PostScript if

26 26 PostScript if if if true PostScript 4 7 le { 5858 == } if le { 5858 == } if if.ps /rectwitharc { 4 dict begin /height exch def /width exch def /y exch def /x exch def x y moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath width height eq { 3 dict begin /half width 2 div def /centerx x half add def /centery y half add def width 0 rmoveto 0 half rmoveto centerx centery half arc } if rectwitharc rectwitharc rectwitharc rectwitharc 10 setlinewidth setrgbcolor stroke if ifelse ifelse ifelse 2 ifelse ifelse 2 true false PostScript 3 3 eq { 7447 == } { 1818 == } ifelse eq { 7447 == } { 1818 == } ifelse 1818 ifelse.ps

27 PostScript 27 /pairofrect { 2 dict begin /height exch def /width exch def moveto width 0 rlineto 0 height rlineto width neg 0 rlineto closepath width height gt { width 2 div 0 rmoveto 0 height rlineto } { 0 height 2 div rmoveto width 0 rlineto } ifelse pairofrect pairofrect pairofrect pairofrect 20 setlinewidth setrgbcolor stroke repeat repeat repeat PostScript 7 { 4321 == } repeat repeat.ps /y 120 def 12 { 100 y moveto rlineto /y y 50 add def } repeat 30 setlinewidth setrgbcolor stroke /y y 50 add def def def

28 28 PostScript def 10.2 repeat for for for 3 for 3 for PostScript { == } for { == } for for.ps { 100 exch moveto rlineto } for 30 setlinewidth setrgbcolor stroke 10.3 horizontalsequence x horiseq.ps /circle { 1 dict begin /radius exch def 0 0 radius arc fill /square { 1 dict begin /length exch def 0 0 moveto

29 PostScript 29 length 0 rlineto 0 length rlineto length neg 0 rlineto fill /horizontalsequence { 5 dict begin /proc exch def /times exch def /step exch def /y exch def /x exch def times { gsave x y translate proc grestore /x x step add def } repeat setrgbcolor { 10 circle } horizontalsequence { 40 circle } horizontalsequence { 10 square } horizontalsequence { 70 square } horizontalsequence changecolorsequence y chcolor.ps /hline { 0 0 moveto 0 rlineto stroke /changecolorsequence { 14 dict begin /proc exch def /blue exch def /green exch def /red exch def /blue exch def /green exch def /red exch def /times exch def /step exch def /y exch def /x exch def /stepblue blue blue sub times div def /stepgreen green green sub times div def /stepred red red sub times div def times { gsave x y translate red green blue setrgbcolor

30 30 PostScript proc grestore /blue blue stepblue add def /green green stepgreen add def /red red stepred add def /y y step add def } repeat 20 setlinewidth { 400 hline } changecolorsequence matrix x y 2 matrix.ps /ellipse { 4 dict begin /theta exch def /sy exch def /sx exch def /radius exch def gsave theta rotate sx sy scale 0 0 radius arc fill grestore /matrix { 8 dict begin /proc exch def /timesy exch def /timesx exch def /stepy exch def /stepx exch def /y exch def /x exch def timesy { /xx x def timesx { gsave xx y translate proc grestore /xx xx stepx add def } repeat /y y stepy add def } repeat setrgbcolor { ellipse } matrix setrgbcolor { ellipse } matrix

31 PostScript 31 circlesequence circle.ps /circle { 1 dict begin /radius exch def 0 0 radius arc fill /square { 1 dict begin /length exch def 0 0 moveto length 0 rlineto 0 length rlineto length neg 0 rlineto fill /triangle { 2 dict begin /height exch def /base exch def 0 0 moveto base 0 rlineto base 2 div neg height rlineto fill /circlesequence { 6 dict begin /proc exch def /times exch def /steptheta exch def /radius exch def /y exch def /x exch def gsave x y translate times { gsave radius 0 translate proc grestore steptheta rotate } repeat grestore setrgbcolor { 20 circle } circlesequence setrgbcolor { 40 square } circlesequence

32 32 PostScript setrgbcolor { triangle } circlesequence changecolorswirl swirl.ps /circle { 1 dict begin /radius exch def 0 0 radius arc fill /changecolorswirl { 16 dict begin /proc exch def /blue exch def /green exch def /red exch def /blue exch def /green exch def /red exch def /times exch def /steptheta exch def /stepradius exch def /radius exch def /y exch def /x exch def /stepblue blue blue sub times div def /stepgreen green green sub times div def /stepred red red sub times div def gsave x y translate times { gsave radius 0 translate red green blue setrgbcolor proc grestore /blue blue stepblue add def /green green stepgreen add def /red red stepred add def /radius radius stepradius add def steptheta rotate } repeat grestore { 50 circle } changecolorswirl

gs-cjk project gs: Ghostscript PostScript/PDF AFPL Ghostscript GNU Ghostscript c: Chinese j: Japanese k: Korean gs-cjk: A

A Guide to gs-cjk Project taiji@aihara.co.jp A Guide to gs-cjk Project p.1/63 gs-cjk project gs: Ghostscript PostScript/PDF AFPL Ghostscript GNU Ghostscript c: Chinese j: Japanese k: Korean gs-cjk: http://www.gyve.org/gs-cjk/