%%
%% This is file `optics.def',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% circ.dtx  (with options: `optics')
%% Copyright 1997  Andreas Tille / Sebastian Tannert
%% 
%% 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
\def\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\text\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\text\hc*{#1}
    \else\errhelp{Only horizontal or vertical labeling allowed.}%
    \errmessage{Bad points!}\fi\fi}}
\def\opticfontinit{\font\c*fnto=optic     scaled \*mag}
\cwdef     oa          {128\c*fnto}
\cdef      SLens    L  \c*fnto   0
\cdefiv    HSLens   L  \c*fnto   2 {} {}
\cdef      BLens    L  \c*fnto   6
\cdefiv    HBLens   L  \c*fnto   8 {} {}
\cdef      VLens    L  \c*fnto  12
\cdefiv    HVLens   L  \c*fnto  14 {} {}
\cdefviii  Mirror   M  \c*fnto  85 * . {}
\cdefviii  BSplit   BS \c*fnto  36 * . +
\cdef      Polar    P  \c*fnto  44
\cdef      Pinhole  {} \c*fnto  46
\cdefiv    Cam      {} \c*fnto  66 {} {}
\cdef      ScrL     {} \c*fnto  72
\cdef      ScrR     {} \c*fnto  74
\cdef      ScrBL    {} \c*fnto  76
\cdef      ScrBR    {} \c*fnto  78
\cdef      ScrTL    {} \c*fnto  80
\cdef      ScrTR    {} \c*fnto  82
\cdef      Laser    {} \c*fnto 160
\cdef      PM       {} \c*fnto 162
\bbdefNeTii  OM          \c*fnto 164  {}
\protectcirc
\endinput
%%
%% End of file `optics.def'.