页面描述语言实例1

(1-1) 正方形边长为2英寸，圆半径1英寸，正方形左下角坐标为（3 3）英寸,颜色分别

为0.5、0.7灰色和黑色，线段端头为圆头，虚线间隔为3：1，线宽为0.1英寸。 %!ps

72 72 scale 3 3 translate

4 3 1 0 180 arc

3 3 moveto 0 -2 rlineto 2 0 rlineto 0 2 rlineto 0.1 setlinewidth gsave

0.5 setgray fill grestore gsave

0.7 setgray stroke grestore

1 setlinejoin 1 setlinecap

[0.1 0.15] 0 setdash stroke showpage

(1-2) 圆半径2英寸，圆心坐标为（3 3）英寸,颜色分别为0.5、0.7灰色和黑色，线段端

头为圆头，虚线间隔为3：1，线宽为0.1英寸。 %!ps

72 72 scale

3 3 translate /curve{

1 1 1 -1 2 0 curveto }def 0 0 2 0 360 arc 0 0 moveto 90 rotate curve 0 0 moveto 90 rotate curve 0 0 moveto 90 rotate curve 0 0 moveto 90 rotate curve 0.1 setlinewidth 0.7 setgray

2 0 moveto 4 0 lineto 0 2 moveto 4 2 lineto 4 2 moveto eofill

0 0 2 0 360 arc

0 0 moveto 90 rotate curve 0 0 moveto

90 rotate curve 0 0 moveto 90 rotate curve 0 0 moveto 90 rotate curve 0.1 setlinewidth gsave

0.5 setgray stroke grestore 0 setgray

1 setlinejoin 1 setlinecap

[0.2 0.2] 0 setdash

stroke showpage

(1-3) 在CMYK彩色空间中，作矩形：宽：200，高:100，线宽：10，线交：圆头相接；颜

色：红蓝相间20阴影与矩形的距离在水平20,垂直方向为10 磅；(阴影要求渐变从0.05～0.95灰度值)

%!ps

/printzip{0 0 200 100 rectstroke}def 144 144 translate 1 setlinejoin 10 setlinewidth 0.95 -.05 0

{setgray printzip -1 1 translate}for 0 1 1 0 setcmykcolor printzip [20] 0 setdash

1 1 0 0 setcmykcolor printzip Showpage

(1-4) 设置11红色到白色的圆形渐变（红色灰度值为1——0），圆半径为2英寸，圆心坐

标为（4英寸，4英寸）。其中线宽0.05英寸，黄色和黑色之比为0.1:0.05英寸，

黄色线为圆头。 %!ps %4.ps

/inch {72 mul}def /row{360 11 div}def /zen 0 def

/x{1 11 div}def

4 inch 4 inch translate 0 0 moveto 11{

newpath

0 0 moveto

0 0 2 inch 0 row arc closepath gsave

0 zen zen 0 setcmykcolor fill grestore

gsave

0.05 inch setlinewidth 0 setgray stroke grestore

gsave

0.05 inch setlinewidth

[0.05 inch 0.10 inch ] 0 setdash 1 setlinejoin 1 setlinecap 0 0 1 0 setcmykcolor stroke grestore

zen x add /zen exch def row rotate } repeat Showpage

(1-5) 设置圆心为(4英寸4英寸)，长半径为2英寸，短半径为1英寸的椭圆。填充区域为纯

兰色色，线宽0.1英寸，黑灰相间为0.15英寸,其中灰色线段为圆头。 （裁剪出的部分线宽忽略不记） %!ps

/inch {72 mul } def

4 inch 4 inch translate

2 1 scale

0 0 1 inch 0 360 arc closepath clip gsave

0 0 1 setrgbcolor

0 0 3 inch 3 inch rectfill grestore gsave

0 0 1 setrgbcolor

0 0 -3 inch -3 inch rectfill grestore gsave

0.5 1 scale

0 setgray

0.1 inch setlinewidth stroke grestore

0.5 1 scale

0.5 setgray

1 setlinecap

0.1 inch setlinewidth

[ 0.05 inch 0.15 inch ] 0 setdash stroke

showpage

(1-6) 下列程序显示了80磅短半轴，160磅长半轴，圆心在（200，200）的椭圆，边框颜色

为红与绿，长度均为14磅，线宽为8磅，内部被半径为3磅、彼此相切的青色小圆所填充，椭圆底色为品红色。 %!ps

200 200 translate

<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 6 6] /XStep 6 /YStep 6

/PaintProc { gsave 1 0 0 0 setcmykcolor 3 3 3 0 360 arc fill grestore } >> matrix makepattern /circle exch def 1 2 scale

0 0 80 0 360 arc closepath gsave

0 1 0 0 setcmykcolor fill grestore gsave

/Pattern setcolorspace circle setcolor fill

grestore

1 0.5 scale

8 setlinewidth gsave 1 0 0 setrgbcolor stroke grestore

[6 16] 10 setdash 1 setlinejoin 1 setlinecap 0 1 0 setrgbcolor Stroke

Showpage

(1-7) 下列程序显示了80磅短半轴，160磅长半轴，圆心在（200，200）的椭圆，边框颜色

为红与绿，长度均为15磅，线宽为10磅，内部被半径为10磅、彼此相切的黄色小

圆所填充。 %!ps

200 200 translate

<< /PaintType 1 /PatternType 1 /TilingType 1 /BBox [0 0 20 20] /XStep 20 /YStep 20

/PaintProc { gsave 0 0 1 0 setcmykcolor 10 10 10 0 360 arc fill grestore } >> matrix makepattern

/circle exch def

2 1 scale

0 0 80 0 360 arc closepath gsave

/Pattern setcolorspace circle setcolor fill grestore

0.5 1 scale

10 setlinewidth gsave 1 0 0 setrgbcolor stroke grestore

[15 25] 0 setdash 1 setlinejoin 1 setlinecap 0 1 0 setrgbcolor stroke showpage

(1-8) 用青、黄、蓝、红四个圆环两两相切（外环直径30，内环直径10）填充圆心为（4.25，

5.5）英寸，长半轴为4英寸，短半轴2英寸的椭圆。椭圆内部0.7灰色填空，5磅黑色线描边. %!ps %5.ps

<

/BBox [0 0 60 60 ] /XStep 60 /YStep 60 /path{

gsave 0 0 5 0 360 arc 0 0 15 360 0 arcn fill grestore }def

/PaintProc {

15 15 5 0 360 arc 15 15 15 360 0 arcn 1 0 0 0 setcmykcolor fill 45 15 5 0 360 arc 45 15 15 360 0 arcn 0 0 1 0 setcmykcolor fill 45 45 5 0 360 arc 45 45 15 360 0 arcn 1 1 0 0 setcmykcolor fill 15 45 5 0 360 arc 15 45 15 360 0 arcn 0 1 1 0 setcmykcolor fill }

>> matrix makepattern /circle exch def

/inch {72 mul}def

4.25 inch 5.5 inch translate 2 1 scale

0 0 2 inch 0 360 arc gsave

0.7 setgray fill grestore

gsave

/Pattern setcolorspace

circle setcolor fill grestore

5 setlinewidth 0 setgray stroke

百度搜索“70edu”或“70教育网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，70教育网，提供经典综合文库页面描述语言实例1在线全文阅读。