home *** CD-ROM | disk | FTP | other *** search
/ Internet Magazine 2002 February / INTERNET88.ISO / pc / software / windows / bits / pdf995 / data1.cab / Program_Executable_Files / res / font2pcl.ps < prev    next >
Encoding:
Text File  |  2001-12-08  |  18.0 KB  |  607 lines
  1. %    Copyright (C) 1993, 1994, 1995, 1997 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This file is part of GNU Ghostscript.
  4. % 
  5. % GNU Ghostscript is distributed in the hope that it will be useful, but
  6. % WITHOUT ANY WARRANTY.  No author or distributor accepts responsibility
  7. % to anyone for the consequences of using it or for whether it serves any
  8. % particular purpose or works at all, unless he says so in writing.  Refer
  9. % to the GNU General Public License for full details.
  10. % 
  11. % Everyone is granted permission to copy, modify and redistribute GNU
  12. % Ghostscript, but only under the conditions described in the GNU General
  13. % Public License.  A copy of this license is supposed to have been given
  14. % to you along with GNU Ghostscript so you can know your rights and
  15. % responsibilities.  It should be in a file named COPYING.  Among other
  16. % things, the copyright notice and this notice must be preserved on all
  17. % copies.
  18.  
  19. % $RCSfile: font2pcl.ps,v $ $Revision: 1.2.2.1 $
  20. % font2pcl.ps
  21. % Write out a font as a PCL bitmap font.
  22.  
  23. /pcldict 60 dict def
  24.  
  25. % Write out the current font as a PCL bitmap font.
  26. % The current transformation matrix defines the font size and orientation.
  27.  
  28. /WriteResolution? false def    % true=use "resolution bound font" format,
  29.                 % false=use older format
  30.  
  31. /LJ4 false def            % true=use LJ4 Typeface code
  32.                 % false=use LJIIP/IID/IIIx Typeface code
  33.  
  34. pcldict begin        % internal procedures
  35.  
  36. /findstring    % <string> <substring> findstring <bool>
  37.  { search { pop pop pop true } { pop false } ifelse
  38.  } def
  39.  
  40.     % Determine which set of keywords is present in a string.
  41.     % The last keyword set must be empty.
  42.  
  43. /keysearch    % <string> <array of arrays of keywords> keysearch <index>
  44.  { 0 1 2 index length 1 sub
  45.     { 2 copy get true exch
  46.        {    % Stack: <string> <a.a.k.> <index> <bool> <keyword>
  47.          4 index exch findstring and
  48.        }
  49.       forall
  50.        { 0 exch getinterval exit
  51.        }
  52.       if pop
  53.     }
  54.    for
  55.    exch pop length    % invalid index if missing
  56.  } def
  57.  
  58.     % Determine the device height of a string in quarter-dots.
  59.  
  60. /charheight        % <string> charheight <int>
  61.  { gsave newpath 0 0 moveto false charpath
  62.    pathbbox exch pop exch sub exch pop 0 exch grestore
  63.    dtransform add abs 4 mul cvi
  64.  } def
  65.  
  66.     % Compute an integer version of the transformed FontBBox.
  67.  
  68. /inflate        % <num> inflate <num>
  69.  { dup 0 gt { ceiling } { floor } ifelse
  70.  } def
  71. /ixbbox            % - ixbbox <llx> <lly> <urx> <ury>
  72.  { /FontBBox load aload pop        % might be executable or literal
  73.    4 2 roll transform exch truncate cvi exch truncate cvi
  74.    4 2 roll transform exch inflate cvi exch inflate cvi
  75.  } def
  76.  
  77.     % Determine the original font of a possibly transformed font.
  78.     % Since some badly behaved PostScript files construct transformed
  79.     % fonts "by hand", we can't just rely on the OrigFont pointers.
  80.     % Instead, if a font with the given name exists, and if its
  81.     % entries for FontType and UniqueID match those of the font we
  82.     % obtain by following the OrigFont chain, we use that font.
  83.  
  84. /origfont
  85.  {  { dup /OrigFont known not { exit } if /OrigFont get } loop
  86.    FontDirectory 1 index /FontName get .knownget
  87.     {        % Stack: origfont namedfont
  88.       1 index /FontType get 1 index /FontType get eq
  89.        { 1 index /UniqueID .knownget
  90.       { 1 index /UniqueID .knownget
  91.          { eq { exch } if }
  92.          { pop }
  93.             ifelse
  94.       }
  95.      if
  96.        }
  97.       if pop
  98.     }
  99.    if
  100.  } def
  101.  
  102.  
  103.     % Determine the bounding box of the current device's image.
  104.     % Free variables: row, zerow.
  105.  
  106. /devbbox        % <rw> <rh> devbbox <ymin> <ymax1> <xmin> <xmax1>
  107.  {        % Find top and bottom whitespace.
  108.    dup
  109.     { dup 0 eq { exit } if 1 sub
  110.       dup currentdevice exch row copyscanlines
  111.       zerow ne { 1 add exit } if
  112.     }
  113.    loop        % ymax1
  114.    0
  115.     { 2 copy eq { exit } if
  116.       dup currentdevice exch row copyscanlines
  117.       zerow ne { exit } if
  118.       1 add
  119.     }
  120.    loop        % ymin
  121.    exch
  122.         % Find left and right whitespace.
  123.    3 index 0
  124.         % Stack: rw rh ymin ymax1 xmin xmax1
  125.    3 index 1 4 index 1 sub
  126.     { currentdevice exch row copyscanlines .findzeros
  127.       exch 4 1 roll max 3 1 roll min exch
  128.     }
  129.    for        % xmin xmax1
  130.         % Special check: xmin > xmax1 if height = 0
  131.    2 copy gt { exch pop dup } if
  132.    6 -2 roll pop pop
  133.  
  134.  } def
  135.  
  136.     % Write values on outfile.
  137.  
  138.  /w1 { 255 and outfile exch write } def
  139.  /w2 { dup -8 bitshift w1 w1 } def
  140.  /wbyte            % <byte> <label> wbyte
  141.   { VDEBUG { print ( =byte= ) print dup == flush } { pop } ifelse w1
  142.   } def
  143.  /wword            % <word16> <label> wword
  144.   { VDEBUG { print ( =word= ) print dup == flush } { pop } ifelse w2
  145.   } def
  146.  /wdword        % <word32> <label> wdword
  147.   { VDEBUG { print ( =dword= ) print dup == flush } { pop } ifelse
  148.     dup -16 bitshift w2 w2
  149.   } def
  150.  
  151. /style.posture.keys
  152.  [ { (Italic) } { (Oblique) }
  153.    { }
  154.  ] def
  155. /style.posture.values <010100> def
  156.  
  157. /style.appearance.width.keys
  158.  [ { (Ultra) (Compressed) }
  159.    { (Extra) (Compressed) }
  160.    { (Extra) (Condensed) }
  161.    { (Extra) (Extended) }
  162.    { (Extra) (Expanded) }
  163.    { (Compressed) }
  164.    { (Condensed) }
  165.    { (Extended) }
  166.    { (Expanded) }
  167.    { }
  168.  ] def
  169. /style.appearance.width.values <04030207070201060600> def
  170.  
  171. /width.type.keys
  172.  [ { (Ultra) (Compressed) }
  173.    { (Extra) (Compressed) }
  174.    { (Extra) (Condensed) }
  175.    { (Extra) (Expanded) }
  176.    { (Compressed) }
  177.    { (Condensed) }
  178.    { (Expanded) }
  179.    { }
  180.  ] def
  181. /width.type.values <fbfcfd03fdfe0200> def
  182.  
  183. /stroke.weight.keys
  184.  [ { (Ultra) (Thin) }
  185.    { (Ultra) (Black) }
  186.    { (Extra) (Thin) }
  187.    { (Extra) (Light) }
  188.    { (Extra) (Bold) }
  189.    { (Extra) (Black) }
  190.    { (Demi) (Light) }
  191.    { (Demi) (Bold) }
  192.    { (Semi) (Light) }
  193.    { (Semi) (Bold) }
  194.    { (Thin) }
  195.    { (Light) }
  196.    { (Bold) }
  197.    { (Black) }
  198.    { }
  199.  ] def
  200. /stroke.weight.values <f907fafc0406fe02ff01fbfd030500> def
  201.  
  202. /vendor.keys
  203.  [ { (Agfa) }
  204.    { (Bitstream) }
  205.    { (Linotype) }
  206.    { (Monotype) }
  207.    { (Adobe) }
  208.    { }
  209.  ] def
  210. /vendor.default.index 4 def        % might as well be Adobe
  211. /old.vendor.values <020406080a00> def
  212. /new.vendor.values <010203040500> def
  213. /vendor.initials (CBLMA\000) def
  214.  
  215. currentdict readonly end pop        % pcldict
  216.  
  217.  
  218. % Convert and write a PCL font for the current font and transformation.
  219.  
  220. % Write the font header.  We split this off only to avoid overflowing
  221. % the limit on the maximum size of a procedure.
  222. % Free variables: outfile uury u0y rw rh orientation uh ully
  223. /writefontheader
  224.  { outfile (\033\)s) writestring
  225.    outfile 64 WriteResolution? { 4 add } if
  226.      Copyright length add write==only
  227.    outfile (W) writestring
  228.    WriteResolution? { 20 68 } { 0 64 } ifelse
  229.      (Font Descriptor Size) wword
  230.      (Header Format) wbyte
  231.    1 (Font Type) wbyte
  232.    FullName style.posture.keys keysearch style.posture.values exch get
  233.    FullName style.appearance.width.keys keysearch
  234.      style.appearance.width.values exch get 4 mul add
  235.    PaintType 2 eq { 32 add } if
  236.      /style exch def
  237.    style -8 bitshift (Style MSB) wbyte
  238.    0 (Reserved) wbyte
  239.    /baseline uury 1 sub u0y sub def
  240.      baseline (Baseline Position) wword
  241.    rw (Cell Width) wword
  242.    rh (Cell Height) wword
  243.    orientation (Orientation) wbyte
  244.    FontInfo /isFixedPitch .knownget not { false } if
  245.     { 0 } { 1 } ifelse (Spacing) wbyte
  246.     % Use loop/exit to fake a multiple-exit block.
  247.     { Encoding StandardEncoding eq { 10 (J) exit } if
  248.       Encoding ISOLatin1Encoding eq { 11 (J) exit } if
  249.       Encoding SymbolEncoding eq { 19 (M) exit } if
  250.       Encoding DingbatsEncoding eq { 10 (L) exit } if
  251. %      (Warning: unknown Encoding, using ISOLatin1.\n) print flush
  252.       11 (J) exit
  253.     }
  254.    loop
  255.    0 get 64 sub exch 32 mul add (Symbol Set) wword
  256.    ( ) stringwidth pop 0 dtransform add abs 4 mul
  257.      /pitch exch def
  258.    pitch cvi (Pitch) wword
  259.    uh 4 mul (Height) wword            % Height
  260.    (x) charheight (x-Height) wword
  261.    FullName width.type.keys keysearch
  262.      width.type.values exch get (Width Type) wbyte
  263.    style 255 and (Style LSB) wbyte
  264.    FullName stroke.weight.keys keysearch
  265.      stroke.weight.values exch get (Stroke Weight) wbyte
  266.    FullName vendor.keys keysearch
  267.      dup vendor.initials exch get 0 eq
  268.       {        % No vendor in FullName, try Notice
  269.         pop Copyright vendor.keys keysearch
  270.     dup vendor.initials exch get 0 eq { pop vendor.default.index } if
  271.       }
  272.      if
  273.      /vendor.index exch def
  274.    0 (Typeface LSB) wbyte        % punt
  275.    0 (Typeface MSB) wbyte        % punt
  276.    0 (Serif Style) wbyte        % punt
  277.    2 (Quality) wbyte
  278.    0 (Placement) wbyte
  279.    gsave FontMatrix concat rot neg rotate
  280.    /ulwidth
  281.      FontInfo /UnderlineThickness .knownget
  282.       { 0 exch dtransform exch pop abs }
  283.       { resolution 100 div }
  284.      ifelse def
  285.    FontInfo /UnderlinePosition .knownget
  286.     { 0 exch transform exch pop negY ulwidth 2 div add }
  287.     { ully ulwidth add }
  288.    ifelse u0y sub
  289.    round cvi 1 max 255 min (Underline Position) wbyte
  290.    ulwidth round cvi 1 max 255 min (Underline Thickness) wbyte
  291.    grestore
  292.    uh 1.2 mul 4 mul cvi (Text Height) wword
  293.    (average lowercase character) dup stringwidth
  294.      pop 0 dtransform add abs
  295.      exch length div 4 mul cvi (Text Width) wword
  296.    0
  297.     { dup Encoding exch get /.notdef ne { exit } if
  298.       1 add
  299.     }
  300.    loop (First Code) wword
  301.    255
  302.     { dup Encoding exch get /.notdef ne { exit } if
  303.       1 sub
  304.     }
  305.    loop (Last Code) wword
  306.    pitch dup cvi sub 256 mul cvi (Pitch Extended) wbyte
  307.    0 (Height Extended) wbyte
  308.    0 (Cap Height) wword            % (default)
  309.    currentfont /UniqueID known { UniqueID } { 0 } ifelse
  310.      16#c1000000 add (Font Number (Adobe UniqueID)) wdword
  311.    FontName length 16 max string
  312.      dup FontName exch cvs pop
  313.      outfile exch 0 16 getinterval writestring    % Font Name
  314.    WriteResolution?
  315.     { resolution dup (X Resolution) wword (Y Resolution) wword
  316.     }
  317.    if
  318.    outfile Copyright writestring    % Copyright
  319.  } def
  320.  
  321. /writePCL        % <fontfile> <resolution> writePCL -
  322.  {
  323.    save
  324.    currentfont begin
  325.    pcldict begin
  326.    80 dict begin        % allow for recursion
  327.      /saved exch def
  328.      /resolution exch def
  329.      /outfile exch def
  330.    matrix currentmatrix dup 4 0 put dup 5 0 put setmatrix
  331.  
  332.     % Supply some default values so we don't have to check later.
  333.  
  334.    currentfont /FontInfo known not { /FontInfo 1 dict def } if
  335.    currentfont /FontName known not { /FontName () def } if
  336.    /Copyright   FontInfo /Notice .knownget not { () } if   def
  337.    /FullName
  338.      FontInfo /FullName .knownget not
  339.       { FontName dup length string cvs }
  340.      if def
  341.  
  342.     % Determine the original font, and its relationship to this one.
  343.  
  344.    /OrigFont currentfont origfont def
  345.    /OrigMatrix OrigFont /FontMatrix get def
  346.    /OrigMatrixInverse OrigMatrix matrix invertmatrix def
  347.    /ScaleMatrix matrix currentfont OrigFont ne
  348.     { FontMatrix exch OrigMatrixInverse exch concatmatrix
  349.     } if
  350.    def
  351.    /CurrentScaleMatrix
  352.      matrix currentmatrix
  353.      matrix defaultmatrix
  354.      dup 0 get 1 index 3 get mul 0 lt
  355.      1 index dup 1 get exch 2 get mul 0 gt or
  356.        /flipY exch def
  357.      dup invertmatrix
  358.      dup concatmatrix
  359.    def
  360.    /negY flipY { {neg} } { {} } ifelse def
  361.  
  362.     % Print debugging information.
  363.  
  364.    /CDEBUG where { pop } { /CDEBUG false def } ifelse
  365.    /VDEBUG where { pop } { /VDEBUG false def } ifelse
  366.    CDEBUG { /VDEBUG true def } if
  367.    DEBUG
  368.     { (currentmatrix: ) print matrix currentmatrix ==
  369.       (defaultmatrix: ) print matrix defaultmatrix ==
  370.       (flipY: ) print flipY ==
  371.       (scaling matrix: ) print CurrentScaleMatrix ==
  372.       (FontMatrix: ) print FontMatrix ==
  373.       (FontBBox: ) print /FontBBox load ==
  374.       currentfont OrigFont ne
  375.        { OrigFont /FontName .knownget { (orig FontName: ) print == } if
  376.          (orig FontMatrix: ) print OrigMatrix ==
  377.        } if
  378.       currentfont /ScaleMatrix .knownget { (ScaleMatrix: ) print == } if
  379.       gsave
  380.     FontMatrix concat
  381.     (combined matrix: ) print matrix currentmatrix ==
  382.       grestore
  383.       flush
  384.     } if
  385.  
  386.     % Determine the orientation.
  387.  
  388.    ScaleMatrix matrix currentmatrix dup concatmatrix
  389.    0 1 3
  390.     { 1 index 1 get 0 eq 2 index 2 get 0 eq and 2 index 0 get 0 gt and
  391.        { exit } if
  392.       pop -90 matrix rotate exch dup concatmatrix
  393.     }
  394.    for
  395.    dup type /integertype ne
  396.     { (Only rotations by multiples of 90 degrees are supported:\n) print
  397.       == flush
  398.       saved end end end restore stop
  399.     }
  400.    if
  401.    /orientation exch def
  402.    /rot orientation 90 mul def
  403.    DEBUG { (orientation: ) print orientation == flush } if
  404.  
  405.    dup dup 0 get exch 3 get negY sub abs 0.5 ge
  406.     { (Only identical scaling in X and Y is supported:\n) print
  407.       exch flipY 3 array astore ==
  408.       currentdevice .devicename ==
  409.       matrix defaultmatrix == flush
  410.       saved end end end restore stop
  411.     }
  412.    if pop
  413.  
  414.     % Determine the font metrics, in the PCL character coordinate system,
  415.     % which has +Y going towards the top of the page.
  416.  
  417.    gsave
  418.    FontMatrix concat
  419.      0 0 transform
  420.      negY round cvi /r0y exch def
  421.      round cvi /r0x exch def
  422.    ixbbox
  423.      negY /rury exch def  /rurx exch def
  424.      negY /rlly exch def  /rllx exch def
  425.      /rminx rllx rurx min def
  426.      /rminy rlly negY rury negY min def
  427.      /rw rurx rllx sub abs def
  428.      /rh rury rlly sub abs def
  429.    gsave rot neg rotate
  430.      0 0 transform
  431.      negY round cvi /u0y exch def
  432.      round cvi /u0x exch def
  433.    ixbbox
  434.      negY /uury exch def   /uurx exch def
  435.      negY /ully exch def   /ullx exch def
  436.      /uw uurx ullx sub def
  437.      /uh uury ully sub def
  438.    grestore
  439.    DEBUG 
  440.     { (rmatrix: ) print matrix currentmatrix ==
  441.       (rFontBBox: ) print [rllx rlly rurx rury] ==
  442.       (uFontBBox: ) print [ullx ully uurx uury] ==
  443.       flush
  444.     } if
  445.    grestore
  446.  
  447.     % Disable the character cache, to avoid excessive allocation
  448.     % and memory sandbars.
  449.  
  450.    mark cachestatus   /upper exch def
  451.    cleartomark 0 setcachelimit
  452.    
  453.     % Write the font header.
  454.  
  455.    writefontheader
  456.  
  457.     % Establish an image device for rasterizing characters.
  458.  
  459.    matrix currentmatrix
  460.      dup 4 rminx neg put
  461.      dup 5 rminy neg put
  462.     % Round the width up to a multiple of 8
  463.     % so we don't get garbage bits in the last byte of each row.
  464.    rw 7 add -8 and rh <ff 00> makeimagedevice
  465.      /cdevice exch def
  466.    nulldevice            % prevent page device switching
  467.    cdevice setdevice
  468.  
  469.     % Rasterize each character in turn.
  470.  
  471.    /raster   rw 7 add 8 idiv   def
  472.    /row   raster string   def
  473.    /zerow   row length string   def
  474.    0 1 Encoding length 1 sub
  475.     { /cindex exch def
  476.       Encoding cindex get /.notdef ne
  477.        { VDEBUG { Encoding cindex get == flush } if
  478.          erasepage initgraphics
  479.      0 0 moveto currentpoint transform add
  480.      ( ) dup 0 cindex put show
  481.      currentpoint transform add exch sub round cvi
  482.        /cwidth exch abs def
  483.      rw rh devbbox
  484.      VDEBUG
  485.       { (image bbox: ) print 4 copy 4 2 roll 4 array astore == flush
  486.       } if
  487.         % Save the device bounding box.
  488.         % Note that this is in current device coordinates,
  489.         % not PCL (right-handed) coordinates.
  490.      /bqx exch def  /bpx exch def  /bqy exch def  /bpy exch def
  491.         % Re-render with the character justified to (0,0).
  492.         % This may be either the lower left or the upper left corner.
  493.      bpx neg bpy neg idtransform moveto
  494.      erasepage
  495.      VDEBUG { (show point: ) print [ currentpoint transform ] == flush } if
  496.      ( ) dup 0 cindex put show
  497.         % Find the bounding box.  Note that xmin and ymin are now 0,
  498.         % xmax1 = xw, and ymax1 = yh.
  499.      rw rh devbbox
  500.        /xw exch def
  501.         % xmin or ymin can be non-zero only if the character is blank.
  502.        xw 0 eq
  503.         { pop }
  504.         { dup 0 ne { (Non-zero xmin! ) print = } { pop } ifelse }
  505.        ifelse
  506.        /yh exch def
  507.        yh 0 eq
  508.         { pop }
  509.         { dup 0 ne { (Non-zero ymin! ) print = } { pop } ifelse }
  510.        ifelse
  511.  
  512.      /xbw xw 7 add 8 idiv def
  513.      /xright raster 8 mul xw sub def
  514.         % Write the Character Code command.
  515.      outfile (\033*c) writestring
  516.      outfile cindex write==only
  517.      outfile (E) writestring
  518.          % Write the Character Definition command.
  519.      outfile (\033\(s) writestring
  520.      yh xbw mul 16 add
  521.      outfile exch write=only
  522.         % Record the character position for the .PCM file.
  523.      /cfpos outfile fileposition 1 add def
  524.      outfile (W\004\000\016\001) writestring
  525.      orientation (Orientation) wbyte 0 (Reserved) wbyte
  526.      rminx bpx add r0x sub (Left Offset) wword
  527.      flipY { rminy bpy add neg } { rminy bqy add } ifelse r0y sub
  528.        (Top Offset) wword
  529.      xw (Character Width) wword
  530.      yh (Character Height) wword
  531.      cwidth orientation 2 ge { neg } if 4 mul (Delta X) wword
  532.         % Write the character data.
  533.      flipY { 0 1 yh 1 sub } { yh 1 sub -1 0 } ifelse
  534.       { cdevice exch row copyscanlines
  535.         0 xbw getinterval
  536.         CDEBUG
  537.          { dup
  538.             { 8
  539.            { dup 128 ge { (+) } { (.) } ifelse print
  540.              127 and 1 bitshift
  541.            }
  542.           repeat pop
  543.             }
  544.            forall (\n) print
  545.          }
  546.         if
  547.         outfile exch writestring
  548.       }
  549.      for
  550.        }
  551.        { /bpx 0 def   /bpy 0 def   /bqx 0 def   /bqy 0 def
  552.      /cwidth 0 def
  553.      /cfpos 0 def
  554.        }
  555.       ifelse
  556.  
  557.     }
  558.    for
  559.  
  560.     % Wrap up.
  561.  
  562.    upper setcachelimit
  563.    outfile closefile
  564.  
  565.    nulldevice            % prevent page device switching
  566.    saved end end end restore
  567.  
  568.  } def
  569.  
  570. % Provide definitions for testing with older or non-custom interpreters.
  571.  
  572. /.findzeros where { pop (%END) .skipeof } if
  573. /.findzeros
  574.  { userdict begin   /zs exch def   /zl zs length def
  575.    0 { dup zl ge { exit } if dup zs exch get 0 ne { exit } if 1 add } loop
  576.    zl { dup 0 eq { exit } if dup 1 sub zs exch get 0 ne { exit } if 1 sub } loop
  577.    exch 3 bitshift exch 3 bitshift
  578.    2 copy lt
  579.     { exch zs 1 index -3 bitshift get
  580.        { dup 16#80 and 0 ne { exit } if exch 1 add exch 1 bitshift } loop pop
  581.       exch zs 1 index -3 bitshift 1 sub get
  582.        { dup 1 and 0 ne { exit } if exch 1 sub exch -1 bitshift } loop pop
  583.     }
  584.    if end
  585.  } bind def
  586. %END
  587.  
  588. /write=only where { pop (%END) .skipeof } if
  589. /w=s 128 string def
  590. /write=only
  591.  { w=s cvs writestring
  592.  } bind def
  593. %END
  594.  
  595. %**************** Test
  596. /PCLTEST where {
  597.   pop
  598.   /DEBUG true def
  599.   /CDEBUG true def
  600.   /VDEBUG true def
  601.   /Times-Roman findfont 10 scalefont setfont
  602.   (t.pcf) (w) file
  603.   300 72 div dup scale
  604.   300 writePCL
  605.   flush quit
  606. } if
  607.