2 %%Title: PYCALCULATOR_en.xml
3 %%For: Nicolas CROUZET - SFME/LGLS
4 %%Creator: a2ps version 4.13
5 %%CreationDate: Tue Nov 4 17:58:50 2003
6 %%BoundingBox: 24 24 588 768
7 %%DocumentData: Clean7Bit
8 %%Orientation: Landscape
11 %%DocumentMedia: Letter 612 792 0 () ()
12 %%DocumentNeededResources: font Courier
14 %%+ font Courier-BoldOblique
15 %%+ font Courier-Oblique
17 %%+ font Helvetica-Bold
21 %%DocumentProcessColors: Black
22 %%DocumentSuppliedResources: procset a2ps-a2ps-hdr
23 %%+ procset a2ps-black+white-Prolog
24 %%+ encoding ISO-8859-1Encoding
26 /a2psdict 200 dict def
29 %%Copyright: (c) 1988, 89, 90, 91, 92, 93 Miguel Santana
30 %%Copyright: (c) 1995, 96, 97, 98 Akim Demaille, Miguel Santana
31 % Check PostScript language level.
32 /languagelevel where {
33 pop /gs_languagelevel languagelevel def
35 /gs_languagelevel 1 def
38 % EPSF import as in the Red Book
40 /b4_Inc_state save def % Save state for cleanup
41 /dict_count countdictstack def % Count objects on dict stack
42 /op_count count 1 sub def % Count objects on operand stack
44 0 setgray 0 setlinecap
45 1 setlinewidth 0 setlinejoin
46 10 setmiterlimit [ ] 0 setdash newpath
47 gs_languagelevel 1 ne {
48 false setstrokeadjust false setoverprint
53 count op_count sub { pos } repeat % Clean up stacks
54 countdictstack dict_count sub { end } repeat
68 /page_prefeed { % bool -> -
69 statusdict /prefeed known {
70 statusdict exch /prefeed exch put
77 findfont exch scalefont def
81 findfont reencode 2 copy definefont pop def
84 % Function c-show (str => -)
85 % centers text only according to x axis.
92 % Function l-show (str => -)
93 % prints texts so that it ends at currentpoint
95 dup stringwidth pop neg
100 % center-fit show (str w => -)
101 % show centered, and scale currentfont so that the width is less than w
103 exch dup stringwidth pop
104 % If the title is too big, try to make it smaller
109 currentfont exch scalefont setfont
114 c-show % center title
117 % Return the y size of the current font
120 currentfont /FontType get 0 eq {
121 currentfont /FontMatrix get 3 get
123 currentfont /FontMatrix get 3 get 1000 mul
128 % <encoding-vector> <fontdict> -> <newfontdict>
130 dup length 5 add dict begin
133 { def }{ pop pop } ifelse
137 % Use the font's bounding box to determine the ascent, descent,
138 % and overall height; don't forget that these values have to be
139 % transformed using the font's matrix.
140 % We use `load' because sometimes BBox is executable, sometimes not.
141 % Since we need 4 numbers an not an array avoid BBox from being executed
142 /FontBBox load aload pop
143 FontMatrix transform /Ascent exch def pop
144 FontMatrix transform /Descent exch def pop
145 /FontHeight Ascent Descent sub def
147 % Define these in case they're not in the FontInfo (also, here
148 % they're easier to get to.
149 /UnderlinePosition 1 def
150 /UnderlineThickness 1 def
152 % Get the underline position and thickness if they're defined.
153 currentdict /FontInfo known {
156 dup /UnderlinePosition known {
157 dup /UnderlinePosition get
158 0 exch FontMatrix transform exch pop
159 /UnderlinePosition exch def
162 dup /UnderlineThickness known {
163 /UnderlineThickness get
164 0 exch FontMatrix transform exch pop
165 /UnderlineThickness exch def
173 % composite fonts for ASCII-EUC mixed string
174 % Version 1.2 1/31/1990
175 % Orignal Ken'ichi HANDA (handa@etl.go.jp)
176 % Modified Norio Katayama (katayama@rd.nacsis.ac.jp),1998
177 % Extend & Fix Koji Nakamaru (maru@on.cs.keio.ac.jp), 1999
178 % Anyone can freely copy, modify, distribute this program.
180 /copyfont { % font-dic extra-entry-count copyfont font-dic
181 1 index maxlength add dict begin
182 { 1 index /FID ne 2 index /UniqueID ne and
183 {def} {pop pop} ifelse
189 /compositefont { % ASCIIFontName EUCFontName RomanScale RomanOffset Rot(T/F) compositefont font
190 /RomanRotation exch def
191 /RomanOffset exch def
193 userdict /fixeucfont_dict known not {
195 /fixeucfont_dict 2 dict begin
197 16#00 1 16#20 { pop 0 } for
198 16#21 1 16#28 { 16#20 sub } for
199 16#29 1 16#2F { pop 0 } for
200 16#30 1 16#74 { 16#27 sub } for
201 16#75 1 16#FF { pop 0 } for
204 16#00 1 16#A0 { pop /.notdef } for
205 16#A1 1 16#FE { 16#80 sub 16 2 string cvrs
206 (cXX) dup 1 4 -1 roll
207 putinterval cvn } for
214 findfont dup /FontType get 0 eq {
221 /FontInfo (7+8 bit EUC font) readonly def
224 /FontMatrix matrix def
226 /Encoding fixeucfont_dict /UpperByteEncoding get def
229 { EUCFont /WMode get /WMode exch def }
230 { /WMode 0 def } ifelse
232 EUCFont /FDepVector get 0 get
233 [ 16#21 1 16#28 {} for 16#30 1 16#74 {} for ]
237 /UpperByte exch 16#80 add def
239 /FontInfo (EUC lower byte font) readonly def
242 /FontMatrix matrix def
243 /FontBBox {0 0 0 0} def
245 fixeucfont_dict /LowerByteEncoding get def
250 exch dup /EUCFont get setfont
255 dup stringwidth setcharwidth
261 /lowerbytefont exch definefont
266 /eucfont exch definefont
268 findfont 1 copyfont dup begin
270 /FontMatrix FontMatrix
271 [ 0 RomanScale neg RomanScale 0 RomanOffset neg 0 ]
272 matrix concatmatrix def
274 /FontMatrix FontMatrix
275 [ RomanScale 0 0 RomanScale 0 RomanOffset ] matrix concatmatrix
278 {pop pop pop pop 0 exch -1000 exch 2 div 880} def
281 /asciifont exch definefont
283 /FDepVector [ 4 2 roll ] def
287 /FontMatrix matrix def
289 /FontBBox {0 0 0 0} def
290 % /FontHeight 1.0 def % XXXX
291 /FontHeight RomanScale 1.0 ge { RomanScale }{ 1.0 } ifelse def
292 /Descent -0.3 def % XXXX
295 /tmpfont exch definefont
299 pop findfont 0 copyfont
303 /slantfont { % FontName slant-degree slantfont font'
304 exch findfont 1 copyfont begin
305 [ 1 0 4 -1 roll 1 0 0 ] FontMatrix exch matrix concatmatrix
311 % Function print line number (<string> # -)
314 sx cw mul neg 2 div 0 rmoveto
320 % -------- Some routines to enlight plain b/w printings ---------
328 0 currentfont /Descent get currentfontsize mul rmoveto
345 % Draw a box of WIDTH wrt current font
352 0 currentfont /Descent get currentfontsize mul rmoveto
354 0 currentfont /FontHeight get currentfontsize mul rlineto
373 % ------------- Color routines ---------------
375 /FG /setrgbcolor load def
377 % Draw the background
384 0 currentfont /Descent get currentfontsize mul rmoveto
386 0 currentfont /FontHeight get currentfontsize mul rlineto
389 bgcolor aload pop setrgbcolor
394 % Draw bg for a string
396 /dobackgroundstring {
404 { mark 4 1 roll ] /bgcolor exch store } if
409 bg { dup dobackgroundstring } if
410 ul { dup dounderlinestring } if
411 bx { dup doboxstring } if
415 % Function T(ab), jumps to the n-th tabulation in the current line
418 bg { dup currentpoint pop sub dobackground } if
419 ul { dup currentpoint pop sub dounderline } if
420 bx { dup currentpoint pop sub dobox } if
424 % Function n: move to the next line
430 % Function N: show and move to the next line
441 %%BeginResource: procset a2ps-a2ps-hdr 2.0 2
442 %%Copyright: (c) 1988, 89, 90, 91, 92, 93 Miguel Santana
443 %%Copyright: (c) 1995, 96, 97, 98 Akim Demaille, Miguel Santana
444 % Function title: prints page header.
445 % <ct> <rt> <lt> are passed as argument
447 % 1. Draw the background
448 x v get y v get moveto
450 0 th 2 div neg rmoveto
464 x v get y v get th sub 1 add moveto
465 %%IncludeResource: font Helvetica
466 fHelvetica fnfs 0.8 mul scalefont setfont
469 dup stringwidth pop fnfs 0.8 mul add exch % leave space took on stack
470 fnfs 0.8 mul hm rmoveto
477 dup stringwidth pop fnfs 0.8 mul add exch % leave space took on stack
479 pw exch stringwidth pop fnfs 0.8 mul add sub
485 % 5. the center title
490 % Move to the center of the left room
491 sub add 2 div hm rmoveto
492 % What is the available space in here?
493 add sub fnfs 0.8 mul sub fnfs 0.8 mul sub
495 %%IncludeResource: font Helvetica-Bold
496 fHelvetica-Bold fnfs scalefont setfont
501 % Function border: prints virtual page border
503 gsave % print four sides
505 x v get y v get moveto
506 0.7 setlinewidth % of the square
514 % Function water: prints a water mark in background
517 scx scy moveto rotate
518 %%IncludeResource: font Times-Bold
519 fTimes-Bold 100 scalefont setfont
521 dup stringwidth pop 2 div neg -50 rmoveto
526 % Function rhead: prints the right header
529 fHelvetica fnfs 0.8 mul scalefont setfont
533 % Function footer (cf rf lf -> -)
535 fHelvetica fnfs 0.8 mul scalefont setfont
546 %%BeginResource: procset a2ps-black+white-Prolog 2.0 1
548 % Function T(ab), jumps to the n-th tabulation in the current line
550 cw mul x0 add y0 moveto
553 % Function n: move to the next line
559 % Function N: show and move to the next line
573 fCourier bfs scalefont setfont
580 fSymbol bfs scalefont setfont
587 fCourier-Oblique bfs scalefont setfont
594 fCourier-Bold bfs scalefont setfont
601 fCourier-Oblique bfs scalefont setfont
608 fCourier-BoldOblique bfs scalefont setfont
615 fHelvetica bfs scalefont setfont
622 fHelvetica-Bold bfs scalefont setfont
629 fTimes-Roman bfs scalefont setfont
636 fHelvetica-Bold bfs scalefont setfont
643 %%IncludeResource: font Courier
644 %%IncludeResource: font Courier-Oblique
645 %%IncludeResource: font Courier-Bold
646 %%IncludeResource: font Times-Roman
647 %%IncludeResource: font Symbol
648 %%IncludeResource: font Courier-BoldOblique
649 %%BeginResource: encoding ISO-8859-1Encoding
650 /ISO-8859-1Encoding [
651 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
652 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
653 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
654 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
655 /space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright
656 /parenleft /parenright /asterisk /plus /comma /minus /period /slash
657 /zero /one /two /three /four /five /six /seven
658 /eight /nine /colon /semicolon /less /equal /greater /question
659 /at /A /B /C /D /E /F /G
660 /H /I /J /K /L /M /N /O
661 /P /Q /R /S /T /U /V /W
662 /X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore
663 /quoteleft /a /b /c /d /e /f /g
664 /h /i /j /k /l /m /n /o
665 /p /q /r /s /t /u /v /w
666 /x /y /z /braceleft /bar /braceright /asciitilde /.notdef
667 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
668 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
669 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
670 /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef
671 /space /exclamdown /cent /sterling /currency /yen /brokenbar /section
672 /dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron
673 /degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /bullet
674 /cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown
675 /Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla
676 /Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis
677 /Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply
678 /Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls
679 /agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla
680 /egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis
681 /eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide
682 /oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis
685 % Initialize page description variables.
698 % Dictionary for ISO-8859-1 support
699 /iso1dict 8 dict begin
700 /fCourier ISO-8859-1Encoding /Courier reencode_font
701 /fCourier-Bold ISO-8859-1Encoding /Courier-Bold reencode_font
702 /fCourier-BoldOblique ISO-8859-1Encoding /Courier-BoldOblique reencode_font
703 /fCourier-Oblique ISO-8859-1Encoding /Courier-Oblique reencode_font
704 /fHelvetica ISO-8859-1Encoding /Helvetica reencode_font
705 /fHelvetica-Bold ISO-8859-1Encoding /Helvetica-Bold reencode_font
706 /fTimes-Bold ISO-8859-1Encoding /Times-Bold reencode_font
707 /fTimes-Roman ISO-8859-1Encoding /Times-Roman reencode_font
709 /bgcolor [ 0 0 0 ] def
713 % The font for line numbering
714 /f# /Helvetica findfont bfs .6 mul scalefont def
715 /fSymbol /Symbol findfont def
716 /hm fnfs 0.25 mul def
730 pmh ph add 0 mul ph add
741 /ly ury fnfs 0.8 mul sub def
751 sh 0 translate 90 rotate
755 llx lly 12 add translate
757 /x0 x v get 3.360000 add sx cw mul add store
758 /y0 y v get bfs th add sub store
760 (<?xml version='1.0' encoding='us-ascii'?>) p n
761 (<!DOCTYPE application PUBLIC "" "desktop.dtd">) N
762 (<application title="PYCALCULATOR component" date="9/12/2001" author="C Caremoli" appId="PYCALCULATOR" >) N
764 (<!-- ### MENUBAR ### -->) N
766 ( <menu-item label-id="PYCALCULATOR" item-id="90" pos-id="3">) N
767 ( <popup-item item-id="941" label-id="Lancer IHM" icon-id="" tooltip-id="Lancer IHM PYCALCULATOR" accel-id="" toggle-id="" execute-action=""/>) N
770 (<!-- ### TOOLBAR ### -->) N
771 (<toolbar label-id="PYCALCULATOR">) N
772 ( <toolbutton-item item-id="941" label-id="Lancer IHM" icon-id="ExecPYCALCULATOR.png" tooltip-id="Lancer IHM PYCALCULATOR" accel-id="" toggle-id="" execute-action=") N
778 (PYCALCULATOR_en.xml) (Page 1/1) (Oct 14, 03 10:41) title
781 (Printed by Nicolas CROUZET - SFME/LGLS) rhead
782 (PYCALCULATOR_en.xml) (1/1) (Tuesday November 04, 2003) footer