home *** CD-ROM | disk | FTP | other *** search
/ rtsi.com / 2014.01.www.rtsi.com.tar / www.rtsi.com / OS9 / OSK / APPS / lout2.lzh / LOUT2 / DOC / TR.LOUT / setup < prev   
Text File  |  1994-01-25  |  9KB  |  319 lines
  1.  
  2. ######################################################
  3. #                                                    #
  4. #  Lout setup file for producing the user manual.    #
  5. #                                                    #
  6. #  Jeffrey H. Kingston                               #
  7. #  20 June 1991                                      #
  8. #  22 December 1991                                  #
  9. #                                                    #
  10. ######################################################
  11.  
  12. @SysInclude { ft  }
  13. @SysInclude { dl  }
  14. @SysInclude { eq  }
  15. @SysInclude { fig }
  16. @SysInclude { tab }
  17.  
  18.  
  19.    def "->" { {Symbol Base} @Font "\256" } #174 decimal
  20.    def "=>" { {Symbol Base} @Font "\336" } #222 decimal
  21.    macro @JP    { /0.5v  }
  22.  
  23.    def @Code right x
  24.    { { Helvetica Base -1p } @Font lines @Break x }
  25.  
  26.    macro @JL { //1vx }
  27.  
  28.    ###################################################
  29.    #                                                 #
  30.    #  Lout keywords.                                 #
  31.    #                                                 #
  32.    ###################################################
  33.  
  34.    def @@Begin             { @Code "@Begin"             }
  35.    def @@Break             { @Code "@Break"             }
  36.    def @@Case              { @Code "@Case"              }
  37.    def @@Database          { @Code "@Database"          }
  38.    def @@End               { @Code "@End"               }
  39.    def @@Font              { @Code "@Font"              }
  40.    def @@Char              { @Code "@Char"              }
  41.    def @@Galley            { @Code "@Galley"            }
  42.    def @@Graphic           { @Code "@Graphic"           }
  43.    def @@HAdjust           { @Code "@HAdjust"           }
  44.    def @@HContract         { @Code "@HContract"         }
  45.    def @@HExpand           { @Code "@HExpand"           }
  46.    def @@HScale            { @Code "@HScale"            }
  47.    def @@High              { @Code "@High"              }
  48.    def @@Include           { @Code "@Include"           }
  49.    def @@IncludeGraphic    { @Code "@IncludeGraphic"    }
  50.    def @@Key               { @Code "@Key"               }
  51.    def @@LClos             { @Code "@LClos"             }
  52.    def @@LEnv              { @Code "@LEnv"              }
  53.    def @@LInput            { @Code "@LInput"            }
  54.    def @@LVis              { @Code "@LVis"              }
  55.    def @@Moment            { @Code "@Moment"            }
  56.    def @@Next              { @Code "@Next"              }
  57.    def @@Null              { @Code "@Null"              }
  58.    def @@OneCol            { @Code "@OneCol"            }
  59.    def @@OneRow            { @Code "@OneRow"            }
  60.    def @@Open              { @Code "@Open"              }
  61.    def @@PAdjust           { @Code "@PAdjust"           }
  62.    def @@PrependGraphic    { @Code "@PrependGraphic"    }
  63.    def @@Rotate            { @Code "@Rotate"            }
  64.    def @@Scale             { @Code "@Scale"             }
  65.    def @@Space             { @Code "@Space"             }
  66.    def @@SysDatabase       { @Code "@SysDatabase"       }
  67.    def @@SysInclude        { @Code "@SysInclude"        }
  68.    def @@SysIncludeGraphic { @Code "@SysIncludeGraphic" }
  69.    def @@SysPrependGraphic { @Code "@SysPrependGraphic" }
  70.    def @@Tag               { @Code "@Tag"               }
  71.    def @@Tagged            { @Code "@Tagged"            }
  72.    def @@Use               { @Code "@Use"               }
  73.    def @@VAdjust           { @Code "@VAdjust"           }
  74.    def @@VContract         { @Code "@VContract"         }
  75.    def @@VExpand           { @Code "@VExpand"           }
  76.    def @@VScale            { @Code "@VScale"            }
  77.    def @@Yield             { @Code "@Yield"             }
  78.    def @@Wide              { @Code "@Wide"              }
  79.  
  80.  
  81.    ###################################################
  82.    #                                                 #
  83.    #  Miscellaneous, mostly graphical definitions.   #
  84.    #                                                 #
  85.    ###################################################
  86.  
  87.    def @TeX { T{ /0.2fo E}X }
  88.  
  89.    export sp sb
  90.    def @Equation
  91.       body x
  92.    @Begin
  93.  
  94.       def sp left x right y { @OneRow { | "-2p" @Font y ^/0.5fk x } }
  95.       def sb left x right y { @OneRow { x ^/0.5fk | "-2p" @Font y } }
  96.  
  97.       Slope @Font x
  98.  
  99.    @End @Equation
  100.  
  101.    def @Super
  102.       left x
  103.       right y
  104.    { @OneRow { | -2p @Font y ^/0.5fk x }
  105.    }
  106.  
  107.    def @NineSquare
  108.       right x
  109.    {
  110.       def @Three { x |0.2i x |0.2i x }
  111.  
  112.       @Three /0.2i @Three /0.2i @Three
  113.    }
  114.  
  115.    def @Leaders
  116.    { ..   @Leaders
  117.    }
  118.  
  119.    def @HLine
  120.    {
  121.     { 0 0 moveto xsize 0 lineto stroke } @Graphic {}
  122.    }
  123.  
  124.    def @VDashLine
  125.       right length
  126.    {
  127.       length @High {
  128.     { 0 0 moveto 0 ysize lineto [ 3 pt ] 0 setdash stroke } @Graphic {}
  129.       }
  130.    }
  131.  
  132.    def @LBox
  133.       right offset
  134.    {  @HContract @VContract
  135.       {
  136.         {  //0.2c
  137.            0.6c @High 1.2c @Wide
  138.            { 0 0 moveto xsize 0 lineto
  139.          xsize ysize lineto 0 ysize lineto closepath
  140.          gsave 0.9 setgray fill grestore stroke }
  141.            @Graphic {}
  142.         }
  143.         ||offset @VDashLine 1c
  144.       }
  145.    }
  146.  
  147.    def @Arrow
  148.       right length
  149.    {  @OneCol @OneRow
  150.       {
  151.        30d @Rotate {0.12c @Wide @HLine}
  152.        //
  153.        length @Wide @HLine
  154.        //
  155.        "-30d" @Rotate {0.12c @Wide @HLine}
  156.       }
  157.    }
  158.  
  159.    def @DoubleArrow
  160.       right length
  161.    {  @OneCol @OneRow
  162.       { 
  163.          & 180d @Rotate @Arrow length
  164.          |0io @Arrow length
  165.       }
  166.    }
  167.  
  168.    def @Put
  169.      left coord
  170.      right x
  171.    { @OneCol @OneRow
  172.      { coord / | @OneCol @OneRow x
  173.      }
  174.    }
  175.    
  176.    macro @At { //0io }
  177.  
  178.  
  179.    ###################################################
  180.    #                                                 #
  181.    #  Interpolated example documents.                #
  182.    #                                                 #
  183.    ###################################################
  184.  
  185.    def @LittleEndRunPlace { @Galley }
  186.    def @LittleEndRun
  187.       force into { @LittleEndRunPlace&&preceding }
  188.    {}
  189.  
  190.    def @LittleTextPlace { @Galley }
  191.    def @LittleText into { @LittleTextPlace&&preceding }
  192.       right x
  193.    { x
  194.    }
  195.  
  196.    def @LittleFootPlace { @Galley }
  197.    def @LittleFootNote into { @LittleFootPlace&&following }
  198.       right x
  199.    { x
  200.    }
  201.  
  202.    def @LittlePageColumn
  203.       right x
  204.    {
  205.         9px @Break 8p @Font
  206.         2.8c @Wide x
  207.    }
  208.  
  209.    def @LittlePage
  210.       right x
  211.    {
  212.       @HContract @VContract {
  213.         { 0 0 moveto xsize 0 lineto xsize ysize lineto
  214.           0 ysize lineto closepath stroke } @Graphic
  215.         {  //0.3c ||0.3c
  216.            9px @Break 8p @Font
  217.            2.8c @Wide 3.8c @High x
  218.            ||0.3c //0.3c
  219.         }
  220.       }
  221.    }
  222.  
  223.    def @LittleFootSect
  224.    {  1c @Wide @HLine
  225.       //0.3v @LittleFootPlace ||0.5c
  226.    }
  227.  
  228.    def @LittlePageList
  229.      right @PageNum
  230.    {
  231.       @LittlePage { # |0.5rt @PageNum //0.8v
  232.         //0.3v @LittleTextPlace
  233.         //1rt @LittleFootSect
  234.          }
  235.       //
  236.       @LittlePageList @Next @PageNum
  237.    }
  238.  
  239.    def @LittleDocument
  240.    {  @LittlePage
  241.       {  @LittleTextPlace
  242.          //1rt @LittleFootSect
  243.       }
  244.       // @LittlePageList 2
  245.       // @LittleEndRunPlace
  246.    }
  247.         
  248.    def @ShowMarks
  249.       named linewidth  { 0.015 cm }
  250.       named linestyle  { dashed   }
  251.       named dashlength { 0.15 cm  }
  252.       named paint      { light    }
  253.       right x
  254.    {
  255.       @HContract @VContract @Fig
  256.       {   @Box margin { 0c } linewidth { linewidth } paint { paint }
  257.       {   @Figure
  258.          shape { -0.3 cm ymark
  259.              {xsize ymark} ++ {0.3 cm 0}  []
  260.              xmark -0.3 cm
  261.              {xmark ysize} ++ {0 0.3 cm}
  262.                }
  263.          linewidth { linewidth }
  264.          linestyle { linestyle }
  265.          dashlength { dashlength }
  266.           x
  267.       }
  268.  
  269.       }
  270.    }
  271.  
  272.    def @ShowVMark
  273.       named linewidth  { 0.015 cm }
  274.       named linestyle  { dashed   }
  275.       named dashlength { 0.15 cm  }
  276.       named paint      { light    }
  277.       right x
  278.    {
  279.       @Fig
  280.       {   
  281.      @Figure
  282.          shape {
  283.              xmark -0.3 cm
  284.              {xmark ysize} ++ {0 0.3 cm}
  285.                }
  286.          linewidth { linewidth }
  287.          linestyle { linestyle }
  288.          dashlength { dashlength }
  289.      x
  290.       }
  291.    }
  292.  
  293.    def @Strange
  294.        named @Format right @Val { [@Val] }
  295.        right x
  296.    {   @Format x
  297.    }
  298.  
  299.    def @Box right x
  300.    {
  301.      "0 0 moveto xsize 0 lineto xsize ysize lineto 0 ysize lineto closepath stroke"
  302.      @Graphic x
  303.    }
  304.  
  305.    def @GreyBox right x
  306.    {
  307.      "0 0 moveto xsize 0 lineto xsize ysize lineto 0 ysize lineto closepath 0.8 setgray fill"
  308.      @Graphic x
  309.    }
  310.  
  311. @Use { @DocumentLayout
  312.   @MakeIndex        { Yes                  }
  313.   @TableOfContents  { Yes                  }
  314.   @AppendixGap      { 1.10b                }
  315.   @BookTitleFormat  { {Bold 2.0f} @Font {//2.0f @Title //0.5f} }
  316. }
  317.  
  318. @SysDatabase @Reference { loutrefs }
  319.