%! % start user definition % % < X unit length (point) > % /SYS_Char {72.00 10 div} def % % < Y unit length (point) > % /SYS_Line {72.00 6 div} def % % < X bias (Char) > % /SYS_Xbias {2 SYS_Char mul} def % % < Y bias (Line) > % /SYS_Ybias {-2 SYS_Line mul} def % % < max printable width (Char) > % /SYS_MaxWidth 80 def % % < max printable height (Line) > % /SYS_MaxHeight 66 def % % end user definition % %---------------------------------------------------------------------- % % start system definition % % CHAR c2p ... convert Char to point % /c2p { /SYS_c2p_CHAR_X exch def SYS_c2p_CHAR_X SYS_Char mul SYS_Xbias add } def % % LINE l2p ... convert Line to point % /l2p { /SYS_l2p_LINE_Y exch def SYS_MaxHeight SYS_Line mul SYS_Ybias sub SYS_l2p_LINE_Y SYS_Line mul sub } def % % DASH setLineStyle (DASH is 0 or 1 or ... ) % /setLineStyle { /SYS_setLineStyle_DASH exch def 0 SYS_setLineStyle_DASH eq {[] 0 setdash} {[SYS_setLineStyle_DASH] 0 setdash} ifelse } def % % GRAY setGrayScale (GRAY is 0 to 1) % /setGrayScale { setgray } def % % X0 Y0 X1 Y1 WIDTH drawLine % /drawLine { /SYS_drawLine_WIDTH exch def /SYS_drawLine_Y1 exch def /SYS_drawLine_X1 exch def /SYS_drawLine_Y0 exch def /SYS_drawLine_X0 exch def newpath SYS_drawLine_WIDTH setlinewidth SYS_drawLine_X0 c2p SYS_drawLine_Y0 l2p moveto SYS_drawLine_X1 c2p SYS_drawLine_Y1 l2p lineto stroke } def % % X0 Y0 X1 Y1 WIDTH XDELTA YDELTA REPEAT drawRepeatLine % /drawRepeatLine { /SYS_drawRepeatLine_REPEAT exch def /SYS_drawRepeatLine_YDELTA exch def /SYS_drawRepeatLine_XDELTA exch def /SYS_drawRepeatLine_WIDTH exch def /SYS_drawRepeatLine_Y1 exch def /SYS_drawRepeatLine_X1 exch def /SYS_drawRepeatLine_Y0 exch def /SYS_drawRepeatLine_X0 exch def SYS_drawRepeatLine_REPEAT { SYS_drawRepeatLine_X0 SYS_drawRepeatLine_Y0 SYS_drawRepeatLine_X1 SYS_drawRepeatLine_Y1 SYS_drawRepeatLine_WIDTH drawLine SYS_drawRepeatLine_X0 SYS_drawRepeatLine_XDELTA add /SYS_drawRepeatLine_X0 exch def SYS_drawRepeatLine_Y0 SYS_drawRepeatLine_YDELTA add /SYS_drawRepeatLine_Y0 exch def SYS_drawRepeatLine_X1 SYS_drawRepeatLine_XDELTA add /SYS_drawRepeatLine_X1 exch def SYS_drawRepeatLine_Y1 SYS_drawRepeatLine_YDELTA add /SYS_drawRepeatLine_Y1 exch def } repeat } def % % X0 Y0 X1 Y1 WIDTH drawBox % /drawBox { /SYS_drawBox_WIDTH exch def /SYS_drawBox_Y1 exch def /SYS_drawBox_X1 exch def /SYS_drawBox_Y0 exch def /SYS_drawBox_X0 exch def SYS_drawBox_X0 SYS_drawBox_Y0 SYS_drawBox_X0 SYS_drawBox_Y1 SYS_drawBox_WIDTH drawLine SYS_drawBox_X0 SYS_drawBox_Y1 SYS_drawBox_X1 SYS_drawBox_Y1 SYS_drawBox_WIDTH drawLine SYS_drawBox_X1 SYS_drawBox_Y1 SYS_drawBox_X1 SYS_drawBox_Y0 SYS_drawBox_WIDTH drawLine SYS_drawBox_X1 SYS_drawBox_Y0 SYS_drawBox_X0 SYS_drawBox_Y0 SYS_drawBox_WIDTH drawLine } def % % X0 Y0 X1 Y1 fillBox % /fillBox { /SYS_fillBox_Y1 exch def /SYS_fillBox_X1 exch def /SYS_fillBox_Y0 exch def /SYS_fillBox_X0 exch def newpath SYS_fillBox_X0 c2p SYS_fillBox_Y0 l2p moveto SYS_fillBox_X0 c2p SYS_fillBox_Y1 l2p lineto SYS_fillBox_X1 c2p SYS_fillBox_Y1 l2p lineto SYS_fillBox_X1 c2p SYS_fillBox_Y0 l2p lineto closepath fill } def % % POINT FONT setChar % /FONT_NORMAL 0 def /FONT_ITALIC 1 def /FONT_BOLD 2 def /FONT_BOLDITALIC 3 def % /setChar { /SYS_setChar_FONT exch def /SYS_setChar_POINT exch def SYS_setChar_FONT FONT_NORMAL eq {/Courier findfont} if SYS_setChar_FONT FONT_ITALIC eq {/Courier_Italic findfont} if SYS_setChar_FONT FONT_BOLD eq {/Courier_Bold findfont} if SYS_setChar_FONT FONT_BOLDITALIC eq {/Courier_BoldItalic findfont} if SYS_setChar_POINT scalefont setfont } def % % POINT KFONT setKanjiChar % /KFONT_RYUMIN 0 def /KFONT_RYUMIN_V 1 def /KFONT_GOTHIC 2 def /KFONT_GOTHIC_V 3 def % /setKanjiChar { /SYS_setKanjiChar_KFONT exch def /SYS_setKanjiChar_POINT exch def SYS_setKanjiChar_KFONT KFONT_RYUMIN eq {/Ryumin-Light-H findfont} if SYS_setKanjiChar_KFONT KFONT_RYUMIN_V eq {/Ryumin-Light-V findfont} if SYS_setKanjiChar_KFONT KFONT_GOTHIC eq {/GothicBBB-Medium-H findfont} if SYS_setKanjiChar_KFONT KFONT_GOTHIC_V eq {/GothicBBB-Medium-V findfont} if SYS_setKanjiChar_POINT scalefont setfont } def % % X Y (TEXT) drawText % X Y drawText % /drawText { /SYS_drawText_TEXT exch def /SYS_drawText_Y exch def /SYS_drawText_X exch def SYS_drawText_X c2p SYS_drawText_Y 1 add l2p moveto SYS_drawText_TEXT show } def % % end system definition % %---------------------------------------------------------------------- % % 0 0.2 72 11.2 2 drawBox 0 1.2 72 1.2 1 0 1 10 drawRepeatLine % 5 0.2 5 11.2 1 drawLine 26 0.2 26 11.2 1 drawLine 30 0.2 30 11.2 1 drawLine 41 0.2 41 11.2 1 drawLine % % 10 KFONT_GOTHIC setKanjiChar 10 FONT_NORMAL setChar 1 0 (No.) drawText 6 0 (Name) drawText 27 0 (Sex) drawText 31 0 (Birthday) drawText 42 0 (Address) drawText 10 FONT_NORMAL setChar 1 1 (0001) drawText 6 1 (Katsumi Sato) drawText 27 1 (M) drawText 31 1 (1922.06.26) drawText 42 1 (Osaka Japan) drawText 1 2 (0002) drawText 6 2 (Kiyoshi Kinoshita) drawText 27 2 (M) drawText 31 2 (1922.09.03) drawText 42 2 (Hyougo Japan) drawText 1 3 (0003) drawText 6 3 (Masaharu Sakamoto) drawText 27 3 (M) drawText 31 3 (1924.10.23) drawText 42 3 (Kyoto Japan) drawText 1 4 (0004) drawText 6 4 (Masahiko Sawada) drawText 27 4 (M) drawText 31 4 (1927.01.22) drawText 42 4 (Osaka Japan) drawText 1 5 (0005) drawText 6 5 (Masao Ito) drawText 27 5 (M) drawText 31 5 (1965.01.08) drawText 42 5 (Osaka Japan) drawText 1 6 (0006) drawText 6 6 (Kiyoshi Sato) drawText 27 6 (M) drawText 31 6 (1922.06.26) drawText 42 6 (Osaka Japan) drawText 1 7 (0007) drawText 6 7 (Masaharu Kinoshita) drawText 27 7 (M) drawText 31 7 (1922.09.03) drawText 42 7 (Hyougo Japan) drawText 1 8 (0008) drawText 6 8 (Masahiko Sakamoto) drawText 27 8 (M) drawText 31 8 (1924.10.23) drawText 42 8 (Kyoto Japan) drawText 1 9 (0009) drawText 6 9 (Masao Sawada) drawText 27 9 (M) drawText 31 9 (1927.01.22) drawText 42 9 (Osaka Japan) drawText 1 10 (0010) drawText 6 10 (Katsumi Ito) drawText 27 10 (M) drawText 31 10 (1965.01.08) drawText 42 10 (Osaka Japan) drawText showpage % 0 0.2 72 11.2 2 drawBox 0 1.2 72 1.2 1 0 1 10 drawRepeatLine % 5 0.2 5 11.2 1 drawLine 26 0.2 26 11.2 1 drawLine 30 0.2 30 11.2 1 drawLine 41 0.2 41 11.2 1 drawLine % % 10 KFONT_GOTHIC setKanjiChar 10 FONT_NORMAL setChar 1 0 (No.) drawText 6 0 (Name) drawText 27 0 (Sex) drawText 31 0 (Birthday) drawText 42 0 (Address) drawText 10 FONT_NORMAL setChar 1 1 (0011) drawText 6 1 (Masaharu Sato) drawText 27 1 (M) drawText 31 1 (1922.06.26) drawText 42 1 (Osaka Japan) drawText 1 2 (0012) drawText 6 2 (Masahiko Kinoshita) drawText 27 2 (M) drawText 31 2 (1922.09.03) drawText 42 2 (Hyougo Japan) drawText 1 3 (0013) drawText 6 3 (Masao Sakamoto) drawText 27 3 (M) drawText 31 3 (1924.10.23) drawText 42 3 (Kyoto Japan) drawText 1 4 (0014) drawText 6 4 (Katsumi Sawada) drawText 27 4 (M) drawText 31 4 (1927.01.22) drawText 42 4 (Osaka Japan) drawText 1 5 (0015) drawText 6 5 (Kiyoshi Ito) drawText 27 5 (M) drawText 31 5 (1965.01.08) drawText 42 5 (Osaka Japan) drawText showpage