%% %% This is file `optics.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% circ.dtx (with options: `optics') %% CIRC is a LaTeX package to typeset circuit and optics diagrams. %% Copyright (C) 1997,1998,2003 Sebastian Tannert and Andreas Tille %% %% This program is free software; you can redistribute it and/or modify %% it under the terms of the GNU General Public License as published by %% the Free Software Foundation; either version 2 of the License, or %% (at your option) any later version. %% %% This program 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. See the %% GNU General Public License for more details. %% %% You should have received a copy of the GNU General Public License %% along with this program; if not, write to the Free Software %% Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA %% %% For error reports concerning UNCHANGED versions of this file no %% more than one year old, see CIRC.DVI after installation. %% If installation fails search thru this file for 'bug'. \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'.