summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/latex/circuit-macros/examples/extras/Optics.m4
blob: d4fadd44652baae1f683a68b9c6b009e64b32c25 (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
.PS
# Optics.m4
# https://tex.stackexchange.com/questions/623201/geometrical-optics
gen_init
scale = 2.54

  textoffset = 4pt__
 O: dot(at (0,0)) ; "\Large $O$" below rjust
 L: line thick 1 right_ 14 with .c at O
 S: dot(at (1.8,0)) ; "\Large $S$" below rjust
  r = 7
 C: dot(at (S.x-r,0)) ; "\Large $C$" below
 F: dot(at (-1.8,0)) ; "\Large $F$" below
 I: dot(at (4,0)) ; "\Large $I$" below
  arrow dashed from I up_ 3.2 ; It: Here
 AS: C.x+sqrt(r^2-3.7^2),3.7
 Arc: arc thick 1 cw from AS to (AS.x,-AS.y) rad r with .c at C
  for y=-AS.y to AS.y+0.001 by 0.1 do { line thick 0.4 right 0.5 up 0.1 \
    from (C.x+sqrt(r^2-y^2),y) }
 M: move from C to It
 A1: arrow outlined "red" from C to LCintersect(M,C,r,R) chop -2 chop 0
  arrow outlined "red" dashed to It chop 0 chop -3
 N: move from It to F
  arrow <- outlined "red" dashed from It to LCintersect(N,C,r) chop -2 chop 0
 P: move down_ 1 from A1.start
  arrow outlined "red" from last arrow.end to Intersect_(P,N)
 Q: move up 1 from O
  arrow from O to Intersect_(Q,M)
  arrow outlined "red" to (C.x+sqrt(r^2-Here.y^2),Here.y)

.PE