Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Polygon drehen

   
    by Bjoerk, 30. Jun 2011
  Wenn x und y integer sind, ist es folgerichtig, wenn u und v auch integer sind.
  x,y,u,v: array of integer;
  
  Procedure Transformiere (const x,y: integer; w: double; var u,v: integer);
  begin
  w:= w * 3.1416/180;
  u := Round( x * cos (w) + y * sin(w));
  v := Round( -x * sin (w) + y * cos(w));
  end;