%%
%% This is file `optics.def',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% circ.dtx  (with options: `optics')
%% Copyright 1997-98  Sebastian Tannert / Andreas Tille
%% 
%% This file is part of the CIRC package
%% -------------------------------------
%%   This package is distributed in the hope that it will be useful,
%%   but WITHOUT ANY WARRANTY; without even the implied warranty of
%%   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
%% 
%%   For error reports concerning UNCHANGED versions of this file no
%%   more than one year old, see CIRC.DVI.
%% 
%% IMPORTANT COPYRIGHT NOTICE:
%% 
%% You are NOT ALLOWED to distribute this file alone.
%% 
%% You are allowed to distribute this file under the condition that it
%% is distributed together with all the files listed in circ.txt.
%% 
%% If you receive only some of these files from someone, complain!
%% 
%% You are NOT ALLOWED to change this file.
\ProvidesFile{optics.def}
\freecirc
\safedef{Dtext}#1 from #2 to #3 {{
  \frompin{#2} \save*XY\frompin{#3} \diff*XY
    \ifdim\**X=0pt
      \dimen0\**Y
      \ifdim\**Y<0pt\dimen0-\dimen0\fi
      \c*fnts\setbox0=\hbox{\char9}\setbox1=\hbox{\char11}%
      \c*fnt\setbox2=\hbox{\char132}\dp1=0pt
        \advance\dimen0-\ht0\calc*u
        \setbox\*bbox=
          \vtop{\box1\loop\ifnum\cntb*>0\copy2
            \advance\cntb*-1\repeat\box0}%
      \put*box\advance\*X*\*spc\advance\*Y*.5\**Y\put\vc*{\hbox{#1}}
    \else
    \ifdim\**Y=0pt
      \advance\*X*\**X
      \dimen0\**X
      \ifdim\**X<0pt\dimen0-\dimen0\fi
        \c*fnts\setbox0=\hbox{\char8}\setbox1=\hbox{\char10}%
        \c*fnt\advance\dimen0-\wd0\calc*u
        \setbox\*bbox=\hbox{\box0\loop\ifnum\cntb*>0\advance\cntb*-1
        \char129\repeat\box1}%
      \put*box\advance\*X*-.5\**X\advance\*Y*\*spc\put\hc*{#1}
    \else\errhelp{Only horizontal or vertical labeling allowed.}%
    \errmessage{Bad points!}\fi\fi}}
\addCIRCfont cioptic
\cwdef     oa          {128\CIRCcioptic}
\cdef      SLens    L  \CIRCcioptic   0
\cdefiv    HSLens   L  \CIRCcioptic   2 | )
\cdef      BLens    L  \CIRCcioptic   6
\cdefiv    HBLens   L  \CIRCcioptic   8 | )
\cdef      VLens    L  \CIRCcioptic  12
\cdefiv    HVLens   L  \CIRCcioptic  14 | (
\cdefviii  Mirror   M  \CIRCcioptic  85 * . +
\cdefviii  BSplit   BS \CIRCcioptic  36 * . +
\cdef      Polar    P  \CIRCcioptic  44
\cdef      Pinhole  {} \CIRCcioptic  46
\cdefiv    Cam      {} \CIRCcioptic  66  . |
\cdef      ScrL     {} \CIRCcioptic  72
\cdef      ScrR     {} \CIRCcioptic  74
\cdef      ScrBL    {} \CIRCcioptic  76
\cdef      ScrBR    {} \CIRCcioptic  78
\cdef      ScrTL    {} \CIRCcioptic  80
\cdef      ScrTR    {} \CIRCcioptic  82
\cdef      Laser    {} \CIRCcioptic 160
\cdef      PM       {} \CIRCcioptic 162
\bbdefNeTii  OM          \CIRCcioptic 164  {}
\protectcirc
\endinput
%%
%% End of file `optics.def'.
