code9list.ps

%!
/outer-box-width 50 def
/outer-box-height 50 def
/inner-box-width 45 def
/inner-box-height 45 def
/font-name /Courier def
/font-size 8 def
/rows-per-page 10 def

/upper-left-corner
[
  50
  outer-box-height
  font-size 2 mul
  add
  rows-per-page mul
]cvx def

/x-offset outer-box-width inner-box-width sub 2 div def
/y-offset outer-box-height inner-box-height sub 2 div def

%first-ID is the ID of the first symbol in a file
/first-ID -10 def
/row-count 0 def

/filename (LIBXX.DRW)def
/buffer 130 string def
/buffer_pos 0 def
/names
[
  (     )
  (     )
  (     )
  (     )
  (     )
  (     )
  (     )
  (     )
  (     )
  (     )
]def

%Function for reading signed 2-byte integers from the buffer
/read_word
{
  %Check whether next block has to be read into buffer
  buffer_pos 128 ge
  {
    %read next block of 130 bytes (64 words and a "trailer word")
    drw //buffer readstring pop pop
    /buffer_pos 0 def
  }if
  //buffer buffer_pos 2 getinterval     %subbuffer
  /buffer_pos buffer_pos 2 add def      %subbuffer
  {}forall                              %firstbyte secondbyte
  8 bitshift or                         %unsigned_word
  %check whether number is negative (leftmost bit is 1)
  dup -15 bitshift 1 eq
  {
    %calculate two's complement
    not
    %only use last 15 bytes
    2#111111111111111 and
    1 add neg
  }if
}bind def

%Drawing actions that are associated with certain z values
/z_action
[
  {%Line (z = 0)
    lineto
  }bind
  {%Jump (z = 1)                %paint_proc x y
    3 -1 roll exec              %x y
    moveto                      %-empty-
    {stroke}                    %paint_proc'
  }bind
  {%Fill (z = 2)                %paint_proc x y
    3 -1 roll exec
    moveto
    {gsave eofill grestore stroke}
  }bind
  {%JmpFil (z = 3)
    moveto
  }bind
]def


upper-left-corner translate
font-name font-size selectfont

%Step through files: Increment first letter
(R)0 get 1 (Z)0 get
{
  //filename 3                  %char filename 3
  3 -1 roll                     %filename 3 char
  put                           %-empty-
  %Increment second letter
  (A)0 get 1 (Z)0 get           %'a' 1 'z'
  {%for
    /first-ID first-ID 10 add def
    //filename 4                %char filename 4
    3 -1 roll                   %filename 4 char
    put                         %-empty-
    %If the above created filename does not exist, this repeat
    %loop is exited with the help of the below stopped context


    1
    {%repeat
      {%stopped
        /drw //filename(r)file def
      }stopped
      {%if
        pop pop pop
        exit
      } if
      drw //filename cvn def
      (file read: )print //filename =
      %Read first four bytes, and check whether they are as
      %expected
      drw (    ) readstring pop <4b 48 01 00> ne
      {(Warning: File possibly is not a draw file or corrupted!)=}if


      %Read next 10 words
      drw                         %drw_file
      //buffer 0 20 getinterval   %drw_file buffer
      readstring                  %buffer bool
      pop pop                     %
      /buffer_pos 0 def

      %Derive number of vectors in each symbol from next 10
      %2-byte signed integers
      /number_of_vectors
      [
        1
        10
        {
          read_word dup           %last_abs word word
          3 -1 roll               %word word last_abs
          sub                     %word number_of_vector_components
          3 idiv                  %word number_of_vectors
          exch                    %number_of_vectors word
        } repeat
        pop
      ]def

      %Read the ten symbol names
      drw dup
      //names                   %file file names_array
      {%forall                  %file file string
        readstring pop =        %file
        dup                     %file file
      }forall
      pop pop


      %skip two bytes
      drw (  ) readstring pop pop
      %read block into buffer
      drw buffer readstring pop pop
      /buffer_pos 0 def


      /row-count row-count            %/row-count row-count
      dup //rows-per-page eq          %/row-count row-count bool
      {%if
        showpage
        upper-left-corner translate
        pop 0
      }if
      1 add                           %/row-count row-count
      pstack
      def                             %-empty-

      %Print filename
      gsave
      90 rotate
      0 font-size .5 mul moveto
      //filename show
      grestore
      gsave

      %Get symbol paths of all ten symbols, draw them
      0 1 9
      {%for                           %index
        gsave
        %Exit the for loop if there isn't another symbol in the file
        //names                       %index names_array
        1 index                       %index names_array index
        get                           %index name
        dup (     ) eq                %index name bool
        {pop pop grestore exit}if     %index name

        %Print frame with symbol name and ID
        1 index                       %index name index
        first-ID add                  %index name ID
        (     ) cvs                   %index name index_string
        0 //outer-box-height //font-size .5 mul add moveto
        show ( ) show show            %index
        0 0 //outer-box-width //outer-box-height rectstroke


        number_of_vectors exch get    %number_of_vectors
        [
          [                           %number_of_vectors [ [
            %Read first triple, create first element of dummy path for bounding box calculation
            3 //read_word repeat          %number_of_vectors [ [ x0 y0 z0
            newpath                       %number_of_vectors [ [ x0 y0 z0
            3 copy pop moveto             %number_of_vectors [ [ x0 y0 z0
          ]                           %number_of_vectors [ v_0

          %Read remaining vector elements, append them to the path
          3 -1 roll                   %[ v_0 number_of_vectors
          1 sub                       %[ v_0 number_of_vectors-1
          {                           %[ v_0 ... v_n-1 [
            [
              3 //read_word repeat    %[ v_0 ... v_n-1 [ x_n y_n z_n
              3 copy pop lineto       %[ v_0 ... v_n-1 [ x_n y_n z_n
            ]                         %[ v_0 ... v_n-1 v_n
          }repeat
                                      %[ v_0 ... v_n
        ]                             %vector_list

        %Get pathbbox, scale and translate to make the path fit into given box
        pathbbox newpath              %vector_list llx lly urx ury
        4 copy                        %vector_list llx lly urx ury llx lly urx ury
        pop pop                       %vector_list llx lly urx ury llx lly
        3 -1 roll                     %vector_list llx lly urx llx lly ury
        sub neg                       %vector_list llx lly urx llx height
        3 1 roll                      %vector_list llx lly height urx llx
        sub                           %vector_list llx lly height width
        %Calculate scaling factors to fit symbol's width/height into the box
        //inner-box-width exch        %vector_list llx lly height //box-width width
        div                           %vector_list llx lly height horiz_scaling_factor
        exch                          %vector_list llx lly horiz_scaling_factor height
        //inner-box-height exch       %vector_list llx lly horiz_scaling_factor box-height height
        div                           %vector_list llx lly horiz_scaling_factor vert_scaling_factor
        2 copy gt                     %vector_list llx lly horiz_scaling_factor vert_scaling_factor bool
        {exch}if                      %vector_list llx lly smaller_scaling_factor larger_scaling_factor
        pop                           %vector_list llx lly smaller_scaling_factor
        %Translate and scale accordingly
        x-offset y-offset translate
        dup scale                     %vector_list llx lly
        neg exch neg exch
        translate                     %vector_list

        {}exch                        %paint_proc vector_list
        %Draw the symbol
        {                             %paint_proc vector
          aload pop                   %paint_proc x y z
          %Ignore negative z's (they are handled like 0)
          dup 0 lt {pop 0}if          %paint_proc x y z'
          %Execute drawing action associated with the z value
          //z_action exch get exec    %paint_proc'
        }forall
        exec
        grestore
        //outer-box-width 0 translate

      }for
      grestore
      0 //outer-box-height //font-size 2 mul add neg translate
    }repeat
  }for
}bind for