summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/circ/optics.def
blob: 8614ae8e82736ccb2d701182e6745384b91fd4e1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
%%
%% 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'.