Skip to content
Snippets Groups Projects
Commit a0ef1e3c authored by YOU's avatar YOU
Browse files

Upload New File

parent 3d277324
No related branches found
No related tags found
No related merge requests found
/BigFont
/Palatino-Roman findfont 90 scalefont def
/MainFont
/Palatino-Roman findfont 20 scalefont def
/SloganFont
/Helvetica-Oblique findfont 10 scalefont def
/inch {20 mul} def
/rightshow % stk: string
{ dup stringwidth pop %get length of string
120 exch sub %calc. white space
0 rmoveto %Move over that much
show } def %show string
/wedge
{ newpath
0 0 moveto
1 0 translate
20 rotate
0 20 sin translate
0 0 20 sin -90 90 arc
closepath
} def
/nameCard
{
newpath moveto
0 144 rlineto
252 0 rlineto
0 -144 rlineto
closepath
4 setlinewidth
stroke
gsave
newpath translate
1.75 inch 1.75 inch scale
0.02 setlinewidth
1 1 12
{ 12 div setgray
gsave
wedge
gsave
0 .5 0 setrgbcolor
fill grestore
0 .5 0 setrgbcolor stroke
grestore
40 rotate
} for
grestore
%0 setgray
.5 0 0 setrgbcolor
newpath moveto
BigFont setfont
(Y) rightshow
0 setgray
newpath moveto
MainFont setfont
(ou Hye In) rightshow
newpath moveto
SloganFont setfont
(Postscript Programmer) rightshow
} def
110 50 90 30 0 30 90 90 10 10 nameCard
110 210 90 190 0 190 90 250 10 170 nameCard
110 370 90 350 0 350 90 410 10 330 nameCard
110 530 90 510 0 510 90 570 10 490 nameCard
400 50 380 30 290 30 380 90 300 10 nameCard
400 210 380 190 290 190 380 250 300 170 nameCard
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment