🚀 go-pugleaf

EPS Sample is...

%%Creator:RYU SANG CHUL
%%Title:RYU EPS MAKE
%%CreationDate:Tuesday, July 08, 2003
%%BoundingBox:0 0 380 380
%%LanguageLevel: 2
%%DocumentFonts: GulimChe
% World Bounding Box : 0 0 380 380
%Begin Operators Definitions:
%Name, description, stack state
%EWRightShow, right aligned text, text
/EWRightShow { dup stringwidth pop -1 mul 0 rmoveto show } def
%EWCenterShow, centered text, text
/EWCenterShow { dup stringwidth pop -0.5 mul 0 rmoveto show } def
%EWDownCenterShow, centered text down of cursor, text
/EWDownCenterShow { dup stringwidth pop -0.5 mul exch neg rmoveto show } def
%EWBox, startx starty dx dy
/EWBox {/dy exch def /dx exch def newpath moveto 0 dy rlineto dx 0 rlineto 0 dy -1 mul rlineto closepath} def
%EWCircle, no fill, centerx centery radius
/EWCircle { 0 360 arc} def
%EWTriangle, a triangle inside a circle, centerx centery radius
/EWTriangle {dup 1.73205 mul /c 2 1 roll def newpath add moveto
 c 2 div c -1 mul rlineto c -1 mul 0 rlineto closepath} def
%EWSquare, square inside center, centerx centery radius
/EWSquare {/r 2 1 roll def newpath moveto r 2 div r 2 div rmoveto
 0 r -1 mul rlineto r -1 mul 0 rlineto 0 r rlineto closepath} def
%EWArrow, an arrow, tailx taily tipx tipy tailthickness headthickness headlength
%See Postscript language Cookbook, Program 4
%Setting arrow dictionnary
/EWArrowDict 14 dict def EWArrowDict begin /mtrx matrix def end
%Defining arrow procedure
/EWArrow { EWArrowDict begin /headlength exch def /halfheadthickness exch 2 div def /halfthickness exch 2 div def /tipy exch def /tipx exch def /taily exch def /tailx exch def /dx tipx tailx sub def /dy tipy taily sub def /arrowlength dx dx mul dy dy mul add sqrt def /angle dy dx atan def /base arrowlength headlength sub def /savematrix mtrx currentmatrix def tailx taily translate angle rotate 0 halfthickness neg moveto base halfthickness neg lineto base halfheadthickness neg lineto arrowlength 0 lineto base halfheadthickness lineto base halfthickness lineto 0 halfthickness lineto closepath savematrix setmatrix end }def %End Preliminary Definitions
gsave
 gsave

% ������ �׸���
newpath
0 380
380 380
380 0
0 0
moveto 3 {lineto} repeat closepath
1 1 1 setrgbcolor
fill grestore
grestore

0 0 0 setrgbcolor
newpath
0.5 setlinewidth
30 10 moveto 30 370 lineto stroke
50 10 moveto 50 370 lineto stroke
70 10 moveto 70 370 lineto stroke
90 10 moveto 90 370 lineto stroke
110 10 moveto 110 370 lineto stroke
130 10 moveto 130 370 lineto stroke
150 10 moveto 150 370 lineto stroke
170 10 moveto 170 370 lineto stroke
190 10 moveto 190 370 lineto stroke
210 10 moveto 210 370 lineto stroke
230 10 moveto 230 370 lineto stroke
250 10 moveto 250 370 lineto stroke
270 10 moveto 270 370 lineto stroke
290 10 moveto 290 370 lineto stroke
310 10 moveto 310 370 lineto stroke
330 10 moveto 330 370 lineto stroke
350 10 moveto 350 370 lineto stroke

%Line �׸���(����)
newpath
0.5 setlinewidth

10 30 moveto 370 30 lineto stroke
10 50 moveto 370 50 lineto stroke
10 70 moveto 370 70 lineto stroke
10 90 moveto 370 90 lineto stroke
10 110 moveto 370 110 lineto stroke
10 130 moveto 370 130 lineto stroke
10 150 moveto 370 150 lineto stroke
10 170 moveto 370 170 lineto stroke
10 190 moveto 370 190 lineto stroke
10 210 moveto 370 210 lineto stroke
10 230 moveto 370 230 lineto stroke
10 250 moveto 370 250 lineto stroke
10 270 moveto 370 270 lineto stroke
10 290 moveto 370 290 lineto stroke
10 310 moveto 370 310 lineto stroke
10 330 moveto 370 330 lineto stroke
10 350 moveto 370 350 lineto stroke

% �ٵ��� ������ �׸���
0 0 0 setrgbcolor
0 setgray 0 setlinecap % Prepare graphics state
1 setlinewidth 0 setlinejoin
newpath
10 10
10 370
370 370
370 10
moveto 3 {lineto} repeat
closepath stroke

newpath
1 setlinewidth
70 310 fill 1.7
1 { EWCircle fill } repeat
70 190 fill 1.7
1 { EWCircle fill } repeat
70 70 fill 1.7
1 { EWCircle fill } repeat
150 210 fill 9.5
1 { EWCircle fill } repeat
190 310 fill 1.7
1 { EWCircle fill } repeat
190 190 fill 1.7
1 { EWCircle fill } repeat
190 70 fill 1.7
1 { EWCircle fill } repeat
230 250 fill 9.5
1 { EWCircle fill } repeat
250 130 fill 9.5
1 { EWCircle fill } repeat
310 310 fill 1.7
1 { EWCircle fill } repeat
310 190 fill 1.7
1 { EWCircle fill } repeat
310 70 fill 1.7
1 { EWCircle fill } repeat
130 170 fill 9.5
1 1 1 setrgbcolor
1 { EWCircle fill } repeat
130 170 fill 9.5
0 0 0 setrgbcolor
1 { EWCircle stroke } repeat
170 150 fill 9.5
1 1 1 setrgbcolor
1 { EWCircle fill } repeat
170 150 fill 9.5
0 0 0 setrgbcolor
1 { EWCircle stroke } repeat

1 1 1 setrgbcolor
270 190 fill 9.5
1 { EWCircle fill } repeat

1 1 1 setrgbcolor
/GulimChe findfont 12 scalefont setfont
150 206 moveto (��) EWCenterShow
/GulimChe findfont 14 scalefont setfont
230 245 moveto (1) EWCenterShow
/GulimChe findfont 10 scalefont setfont
250 126 moveto (A) EWCenterShow

0 0 0 setrgbcolor
/GulimChe findfont 12 scalefont setfont
130 166 moveto (2) EWCenterShow
/GulimChe findfont 12 scalefont setfont
170 146 moveto (��) EWCenterShow
/GulimChe findfont 12 scalefont setfont
270 186 moveto (B) EWCenterShow