0001 %!PS-Adobe-2.0 0002 % 0003 % Smiling faces drawing 0004 % 0005 % Written by: Junhui DENG 0006 % Last update: Mar. 2009 0007 % 0008 /Times-Roman findfont 0009 24 scalefont 0010 setfont 0011 % 0012 /red {1 0 0 setrgbcolor} def 0013 /green {0 1 0 setrgbcolor} def 0014 /blue {0 0 1 setrgbcolor} def 0015 /yellow {1 1 0 setrgbcolor} def 0016 /black {0 0 0 setrgbcolor} def 0017 /white {1 1 1 setrgbcolor} def 0018 % 0019 /dottedline {0 setlinewidth} def 0020 /fatline {16 setlinewidth} def 0021 /thinline {4 setlinewidth} def 0022 % 0023 /smile { 0024 newpath 0025 gsave 0026 rotate 0027 0 translate 0028 180 div dup scale 0029 yellow 0 0 180 0 360 arc fill 0030 red -55 45 27 0 360 arc fill 0031 blue 55 45 27 0 360 arc fill 0032 fatline white 0 -18 90 210 330 arc stroke 0033 thinline black 0 0 180 0 360 arc stroke 0034 grestore 0035 } def 0036 % 0037 gsave 0038 300 400 translate 0039 180 0 0 smile 0040 360 -15 0 { 0041 dup 6 div 0042 180 0043 2 index 0044 smile 0045 pop 0046 } for 0047 % 0048 -65 -30 moveto 0049 black (Hello, world!) show 0050 grestore 0051 %