Sigtelinjer fra Kamera til Bogstav1

Sigtelinjer fra Kamera til Bogstav2

Sigtelinjer fra Kamera til Bogstav3

Flyt kameraet sidelæns og lodret med:

KameraZ = 2 (slider from 0 to 5, step 0.1)
KameraY = 1 (slider from 0 to 5, step 0.1)
Kamera: (4, KameraY, KameraZ)
Bogstav1: {(0, 1, 0), (0, 1, 1), (0, 1.5, 1), (0, 1.5, 0.9), (0, 1.1, 0.9), (0, 1.1, 0.6), (0, 1.25, 0.6), (0, 1.25, 0.5), (0, 1.1, 0.5), (0, 1.1, 0), (0, 1, 0), (0, 1, 0)}
Gulv = Plane((0, 0, 0), (2, 0, 0), (0, 2, 0))
SigtelinjerBogstav1 = Sequence(Line[Kamera, Element[Bogstav1, i]], i, 1, 12)
LodretBogstav1Linjer = Sequence(Segment[Element[Bogstav1, i], Element[Bogstav1, i + 1]], i, 1, 11)
PunkterBogstav1Gulv = Sequence(Intersect[Element[SigtelinjerBogstav1, i], Gulv], i, 1, 11)
GulvBogstav1Linjer = Sequence(Segment[Element[PunkterBogstav1Gulv, i], Element[PunkterBogstav1Gulv, i + 1]], i, 1, 11)
Bogstav2: {(0, 1.8, 0), (0, 1.8, 1), (0, 1.9, 1), (0, 1.9, 0), (0, 1.8, 0), (0, 1.8, 0), (0, 1.8, 0), (0, 1.8, 0), (0, 1.8, 0), (0, 1.8, 0), (0, 1.8, 0), (0, 1.8, 0)}
LodretBogstav2Linjer = Sequence(Segment[Element[Bogstav2, i], Element[Bogstav2, i + 1]], i, 1, 11)
SigtelinjerBogstav2 = Sequence(Line[Kamera, Element[Bogstav2, i]], i, 1, 12)
PunkterBogstav2Gulv = Sequence(Intersect[Element[SigtelinjerBogstav2, i], Gulv], i, 1, 11)
GulvBogstav2Linjer = Sequence(Segment[Element[PunkterBogstav2Gulv, i], Element[PunkterBogstav2Gulv, i + 1]], i, 1, 11)
Bogstav3: {(0, 2.5, 0), (0, 2.5, 0.9), (0, 2.3, 0.9), (0, 2.3, 1), (0, 2.8, 1), (0, 2.8, 0.9), (0, 2.6, 0.9), (0, 2.6, 0), (0, 2.5, 0), (0, 2.5, 0), (0, 2.5, 0), (0, 2.5, 0)}
LodretBogstav3Linjer = Sequence(Segment[Element[Bogstav3, i], Element[Bogstav3, i + 1]], i, 1, 11)
SigtelinjerBogstav3 = Sequence(Line[Kamera, Element[Bogstav3, i]], i, 1, 12)
PunkterBogstav3Gulv = Sequence(Intersect[Element[SigtelinjerBogstav3, i], Gulv], i, 1, 11)
GulvBogstav3Linjer = Sequence(Segment[Element[PunkterBogstav3Gulv, i], Element[PunkterBogstav3Gulv, i + 1]], i, 1, 11)
liste1 = Sequence(Ray[Kamera, Element[Bogstav1, i]], i, 1, 12)
liste2 = Sequence(Ray[Kamera, Element[Bogstav2, i]], i, 1, 12)
liste3 = Sequence(Ray[Kamera, Element[Bogstav3, i]], i, 1, 12)
d = false
e = true
f = false
a = Segment(Kamera, (x(Kamera), y(Kamera), 0))
tekst1: "Kameraet er placeret på koordinaterne " + Kamera + " .
Placeringen kan ændres med skyderne.
De tre blå bogstaver er definerede med op til 11 
punkter i det lodrette plan (sådan, som man 
gerne vil se dem fra kameraet). Se Algebravinduet.
De røde bogstaver er sådan, som de skal 
tegnes på gulvet (x-y-planet).

Klik på sigtelinjerne for at se dem 
(fra kameraet til bogstaverne)."
c = Circle((x(Kamera), y(Kamera), 0), 0.3, xOyPlane)