Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Rotation im Raum klappt nicht richtig

   
    by Kytrix, 31. Dez 2009
  danke für den tipp :roll:
  
  das ändert aber nichts an dem problem das mein würfel nach jeder rotationsausführung schrumpft ..... also wenn ich die rotation ausführe schrumpfen meine abstände zwischen den punkten
• Forum: Multimedia

  Re: Rotation im Raum klappt nicht richtig

   
    by Kytrix, 31. Dez 2009
  procedure TWürfel.Rotate(Punkt: Integer; Achse: Char; Winkel: Integer);
  Var x, y, z: Extended;
  begin
  case Achse of
  'x': begin
  x:=GetPunktKoordinate(Punkt,'x');
  y:=GetPunktKoordinate(Punkt,'y');
  z:=GetPunktKoordinate(Punkt,'z');
  //Neue Werte errechnen
  x:=(x*1);
• Forum: Multimedia

  Re: Rotation im Raum klappt nicht richtig

   
    by Kytrix, 31. Dez 2009
  die lösung ist mir gerade selber eingefallen ..... ich hatte das koordinatensystem nicht in das zentrum des objekts (würfels) gelget jetz rotiert er richtig .... muss nur noch mal meinen code überarbeten weil mein würfel merkwürdigerweise mit jeder Rotationsausführung kleiner wird :D
• Forum: Multimedia

  Rotation im Raum klappt nicht richtig

   
    by Kytrix, 31. Dez 2009
  Hi mein Würfel den ich erstelle wird nicht richtig gedrecht entsprechend den Achsenangaben....
  
  liegt es daran das ich mir das zeichnen erleichtert habe indem ich einfach die Z-koordinaten weggelassen habe ?
  
  (Es wird immer vom aktuellen stand weiter gedreht)