Ergebnis der Suchanfrage

• Forum: Multimedia

  Re: Canvas Zeichnung drehen

    Delphi
    by hboy, 2. Jun 2006
  na großer zauberer was macht die kunst?
• Forum: Multimedia

  Re: Canvas Zeichnung drehen

    Delphi
    by hboy, 1. Jun 2006
  weil ich heut meinen guten Tag hab ;)
  
  
  unit Unit1;
  
  interface
  
  uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,Math;
• Forum: Multimedia

  Re: Canvas Zeichnung drehen

    Delphi
    by hboy, 1. Jun 2006
  naja mit der ellipse wirds schwerer, aber die Linien gehen so:
  
  
  a: single;
  
  
  
  procedure TMann2.zeichnen;
  var
  axis: TPoint;
• Forum: Multimedia

  Re: Canvas Zeichnung drehen

    Delphi
    by hboy, 1. Jun 2006
  eins vorab: Vorzeichenfehler nicht ausgeschlossen ;)
  
  Ich weiß ja nicht wie Fit du in Mathe bist, aber die Funktion wendet nur eine Rotationsmatrix an. Versuch dir jetzt mal ein normales Koordinatensystem vorzustellen, in dem ein Punkt (2|1) eingezeichnet ist. Jetzt rotiere ich den Punkt um 30° am Ursprung
  
  neues x = 2 *cos(30°) - 1 *sin(30°)
  neues y = 2 *sin(30°) + 1 *cos(30°)
  
  sin(30°) =...
• Forum: Multimedia

  Re: Canvas Zeichnung drehen

    Delphi
    by hboy, 1. Jun 2006
  function RotateCCW(position,axis: TPoint; alpha: single): TPoint;
  var relative: TPoint;
  begin
  relative := Point(position.x - axis.x,position.y - axis.y);
  result.x := axis.x + round(relative.x*cos(alpha) - relative.y*sin(alpha));
  result.y := axis.y + round(relative.x*sin(alpha) + relative.y*cos(alpha));
  end;
  
  sowas da ? (is nur kurz skizziert)