Postscript 2

ポストスクリプトの例

例1 文字を傾ける

/CharterBT-Italic findfont 100 scalefont setfont
230 250 moveto
45 rotate
(Title) show
showpage
quit

例2 文字を円上にレイアウトする

/CharterBT-Italic findfont 60 scalefont setfont
370 40 moveto
30 30 360 {
30 rotate
(Title) show
} for
showpage
quit

例3 文字を円上にレイアウトして中に文字を入れる

/CharterBT-Italic findfont 100 scalefont setfont
220 220 moveto
(Title) show
/CharterBT-Italic findfont 60 scalefont setfont
370 40 moveto
30 30 360 {
30 rotate
(Title) show
} for
showpage
quit

例4 1点を中心として文字を回転させる

/CharterBT-Italic findfont 60 scalefont setfont
/Count 0 def
30 30 360 {
	300 200 moveto
	Count 30 mul rotate
	(Title) show
	Count -30 mul rotate
	/Tmp Count def
	/Count { Tmp 1 add } def
} for
showpage
quit

例5 螺旋上に文字をレイアウトする

/Count 1 def
320 220 moveto
15 15 360 {
	/CharterBT-Italic findfont Count 2.5 mul scalefont setfont
	30 rotate
	(Title) show
	/Tmp Count def
	/Count { Tmp 1 add } def
} for
showpage
quit

例6 螺旋(楕円)上に文字をレイアウトする

/RotString {
	/Count 1 def
	moveto
	/Text exch def
	10 10 360 {
		/CharterBT-Italic findfont Count 1.5 mul scalefont setfont
		30 rotate
		Text show
		/Tmp Count def
		/Count { Tmp 1 add } def
	} for
} def

3 1 scale
(Title) 120 220 RotString
showpage
quit

参照

プログラマー/バージョン

    Ghostscript version 2.6.1 (5/28/93)
    Copyright (C) 1990-1993 Aladdin Enterprises, Menlo Park, CA.

Home | Contents
Mail