Program do obrotu bryl

[Hemulon]

Czy zna ktos sposob implementacji programu obracajacego bryly wokol punktu?

[W_Zygmunt]

To jest fragment programu w którym można obracać bryłe wokół wybranej osi :

sin_O:=sin(rad(kat_obrotu_O));
cos_O:=cos(rad(kat_obrotu_O));

repeat

CZYT_3;
IF WYBRANA_OS='X' THEN
BEGIN
xoY:= x_ ;
yoY:= cos_O * y_ - sin_O * z_;
zoY:= sin_O * y_ + cos_O * z_;
END;
IF WYBRANA_OS='Y' THEN
BEGIN
xoY:= cos_O * x_ - sin_O * z_;
yoY:= y_;
zoY:= sin_O * x_ + cos_O * z_;
END;
IF WYBRANA_OS='Z' THEN
BEGIN

xoY:= cos_O * x_ -sin_O * y_;
yoY:= sin_O * x_ +cos_O * y_;
zoY:= z_;
END;
xe:=x_o(xoY,yoY,zoY);
ye:=y_o(xoY,yoY,zoY) ;
xep:=x_o(x_pop,y_pop,z_pop);
yep:=y_o(x_pop,y_pop,z_pop) ;