《页面语言描述复习》由会员分享，可在线阅读，更多相关《页面语言描述复习（6页珍藏版）》请在金锄头文库上搜索。
1、例26：写出下列程序运行结果品红渐变%!ps/inch 72 mul def05 inch 05 inch translate/ins 01 def0 01 10 0 0 moveto07 inch 0 rlineto 0 4 inch rlineto-07 inch 0 rlineto closepath gsave0 ins 0 0 setcmykcolor fill grestore0 setgray stroke/ins 01 ins add def07 inch 0 translate for showpage由黑色和灰色线段构成的边长为 4 英寸的，四边相交为平头斜接，其中灰色线段
2、（灰度值07）的端头为圆头，黑灰相间为 30： 10；线宽为 10的正方形%!ps%new310ps/inch 72 muldef2 inch 2 inch moveto4 inch 0 rlineto0 4 inch rlineto-4 inch 0 inch rlinetoclosepath10 setlinewidth2 setlinejoingsave stroke grestoregsave1 setlinecap07 setgray20 20 0 setdashstroke grestoreshowpage%!ps% new313ps/inch 72 mul def/ellipse
3、 0 0 1 inch 0 360 arcdef4.25 inch 5.5 inch translate2 1 scale0.1 inch setlinewidthellipse clipstroke0.5 2 scale ellipsefillshowpage%!ps%new403psI I I I I/inch 72 muldef0.5 0.5 scale2 inch 2 inch translate0 1 10 newpathdup inch 0 moveto1 inch 0 rlineto0 1 inch rlineto-1 inch 0 rlinetoclosepathgsave0.
4、1 mul setgray fillgrestorestrokeforshowpage绘制边长为4 英寸、线宽为 4 磅的正方形，内部相隔18磅的灰色（灰度值0.5）平行线填充 起点（2 英寸,2 英寸）%!ps%new405.ps/inch 72 mul def2 inch 2 inch translate0 0 4 inch 4 inch rectclip4 setlinewidth0 0 4 inch 4 inch rectstroke0 18 4 inch 0 0 moveto6 inch 0 rlineto0 18 translate for1 setlinewidth 0.5 se
5、tgray strokeshowpage如图:用五角形图案填充矩形和圆.五角星边长为 20,五角星间距为 30,圆半径60 圆心(225,185),矩形为(120 120 240 180). %!ps%new409.PSmatrix makepattern/star exch def120 120 240 180 4 copy0.5 setgray rectfill/Pattern /DeviceRGB setcolorspace1.0 1.0 0.0 star setcolor rectfill225 185 60 0 360 arc1 0 1 star setpattern gsave f
6、ill grestore0 1 1 setrgbcolor strokeshowpage用彩色BYMG四个五角形图案填充椭圆%!ps%new410.PSmatrix makepattern/star4 exch def/inch 72 mul def4.5 inch 5.5 inch translate2 1 scale0 0 1.5 inch 0 360 arc closepath gsave0.5 setgray fill grestore gsave /Pattern setcolorspace star4 setcolor fill grestore0 setgray strokesh
7、owpage%!ps%new412.ps/inch 72 muldef/Separation (Magenta) /DeviceCMYK 0 exch 0 0 setcolorspace3 inch 3 inch translate/draw 0 0 moveto 0 0 2 inch 0 36 arc closepath def1 1 10 0.1 mul setcolor draw fill gsave 0 setgray draw stroke grestore 36 rotate%new503.ps/times-roman 144 selectfont72 72 moveto gsav
8、e30 rotate 0.2 setgray (PostScript) show grestore79 79 moveto30 rotate0 1 0 setrgbcolor (PostScript) show showpage%!ps %file504.ps/Helvetica findfont 200 scalefont setfont100 400 moveto(ABC) false charpath gsave5 setlinewidth stroke grestore1 0 1 setrgbcolor fill 100 100 moveto(ABC) true charpath clip2 setlinewidth 0 1 0 setrgbcolor stroke100 100 translate20 0 0 moveto 600 0 lineto 0 10 translate0 setgray stroke repeat showpageABC亍- l _ 三= 土 0M=三”
