Abbildungen im R3
reset: package("abb",Forced): export(abb):
Warning: Package redefined [package]
Die Figur F ist vordefiniert.
zeichne(F,ViewingBox=[-5..5,-5..5,-5..5]);
Spiegelungen spX, spY, spZ an den Achsen und Drehungen drX, drY, drz um die Achsen sind vordefiniert.
Die Figur F3 soll skaliert und zweimal gedreht werden.
Skalierung := m(2,0,0,
0,2,0,
0,0,2):
Skalierung, drX, drY, drX*Skalierung, drY*drX*Skalierung;
zeichne(
bild(Skalierung,F),
bild(drX*Skalierung,F,LineColor=RGB::Green),
bild(drY*drX*Skalierung,F,LineColor=RGB::Red)
);
N := [v(0,0,0), v(0,0,5), v(3,0,0), v(3,0,5)];
zeichne(N,LineWidth=5,bild(drX,N),LineWidth=5,LineColor=RGB::Red);
zeichne(bild(dr(0,0,i*10),N) $i=0..36)
