PostScript语言教程(七、条件语句)
POSTSCRIPT语言中有许多操作符用于制定程序内流的控制。我们在前一章使用了一个repeat运算。所有的控制操作符都使用了之前简要提到的对象类型,即函数,用于我们调用。
7.1、函数
函数(既过程)是一个数组,其内容由解析器执行。
当解析器在程序中遇到一系列对象(值和名称)时,它执行与这些指令相应的操作,将对象放在堆栈上,查找和执行操作符和过程。
但是如果一系列对象用括号括起来,则不会立即执行,而是放在堆栈上。
86 23 add
该行使解析器将数字86和23相加
{86 23 add}
当执行置放时,操作符添加一个程序块,然后放在堆栈上,函数通常跟字面名称,后边跟def运算符,def运算符将其与当前所保存的名称相连(这就是函数的定义)。
7.2、条件语句
7.2.1、比较
POSTSCRIPT提供了一套比较完整额比较运算符,这些比较栈上的前两个项目,可以是任何类型,返回一个布尔类型的对象在堆栈上。他们的等效数学符号为:
eq =; ne ≠; gt >; lt <; ge ≥; le≤;
7.2.2、if
例:检查是否到达当前行的末尾
/chkforendofline { currentpoint pop %获取x的位置 612 gt %是否大于612 {0 -12 translate 0 0 moveto} if }def
执行取出当前的x,比较看是否大于612(即本行的末尾),如果大于,则将原点移动到下一行的开头,当前点移动到原点的位置。
编写一个程序,对字符串进行简单的格式打印:检查该字符串的长度是否适合当前行,如果不适合,则移动到新的行,然后进行打印。
在这里定义了三个变量:左边距,右边距,当前文本的垂直位置,以及单独文本的垂直距离。
首先复制要打印的字符串,然后使用stringwith计算其长度,然后取出当前的x的位置,将两个值相加,看是否大于右边沿,如果大于,跳转到下一行进行打印。
% -------------- Variables --------------- /LM 72 def %定义左边沿 /RM 216 def %定义右边沿 /ypos 720 def %当前文本的垂直位置 /lineheight 14 def %一行字符的高度 % of text % ------------- Procedures --------------- /newline %跳转倒下一行 { ypos lineheight sub %720 - 14 即为下一行的垂直位置 /ypos exch def %将当前文本的垂直高度刷新为新的值 LM ypos moveto } def %将当前点移动到新的起始点 /prtstr %打印字符串 { dup stringwidth pop %取出打印的字符串的宽度 currentpoint pop %取出当前画笔x的位置 add RM gt %相加看是否大于右边距 {newline} if %条件符合,跳转到下一行 show } def %进行打印 %------------- Main Program -------------- /Times-Italic findfont 13 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
7.2.3、ifelse
这个运算符需要堆栈上有三个对象:一个布尔值和两个执行语句。
如果为真,则执行第一个,否则执行第二个。
bool {op1} {op2} ifelse
例:使用ifelse生成了一组灰度交替逐渐减少高度的重叠梯形。
% ------- Variables & Procedures --------- /scalefactor 1 def /counter 0 def /DecreaseScale { scalefactor .2 sub /scalefactor exch def } def /IncreaseCounter { /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 %取余(看是否能被2整除) 0 eq {.5} {0} ifelse setgray fill %设置灰度,然后进行填充 grestore } def %恢复环境 % ------------ Begin Program ---------- 250 350 translate 5 { IncreaseCounter %标记当前的次数 doATrap %绘制梯形 DecreaseScale %标记当前的坐标轴y的压缩比例 0 20 translate %每次将原点向上移动20个单位 } repeat showpage
7.3、循环
在POSTSCRIPT中有三个操作符用来建立和控制循环程序。我们已经使用过repeat操作。
7.3.1、for
这个运算符实现了计数循环。该操作符需要四个对象:
起始值、地增量、最终值、重复的过程。
for操作在每次执行过程之前将计数器的当前值放在堆栈上。
例:将字幕k在页面上每12个单元打印一次,
/Times-Italic findfont 10 scalefont setfont 100 100 translate 0 12 600 {0 moveto (k) show } for showpage
数字的变化不一定是整数,例如打印一个zip字符出现阴影效果
/Times-Italic findfont 30 scalefont setfont /printZip { 0 0 moveto (Zip) show} def 320 400 translate .95 -.05 0 { setgray printZip -1 .5 translate } for 1 setgray printZip showpage
7.3.2、loop,exit
许多程序需要重复一个不确定的数目,一段时间或者永远,或者满足某种条件,这时候就要用到重复。。。直到。。。这种。
POSTSCRIPT提供了一对运算符:loop,exit。
loop操作符重复执行其过程,直到遇到退出条件。退出导致程序离开包含该操作符的最内层循环。退出操作符还会终止for,repeat,forall操作符启动的循环。
例:此程序无限打印howdy。
{(Howdy ) show} loop
例:为了了解loop-exit如何一起工作,以下程序在当前页面绘制了几个圆
/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 %stack: radius y { /ypos exch def /radius exch def /xpos 0 def { xpos pagewidth le {doCircle increase-x} {exit} ifelse }loop } def % --------------- Begin Program ----------- 10 400 lineofcircles 30 400 lineofcircles 90 400 lineofcircles showpage