Ir al contenido


Un Triangulo usando canvas


  • Por favor identifícate para responder
23 respuestas en este tema

#21 cHackAll

cHackAll

    Advanced Member

  • Moderador
  • PipPipPip
  • 598 mensajes

Escrito 27 marzo 2009 - 05:43



delphi
  1. procedure DrawTriangle(Canvas: TCanvas; Axis: TPoint; Radix: Cardinal; Angle: Real);
  2. var Index, X, Y: Cardinal; Value: Real;
  3. begin
  4. for Index := 0 to 3 do
  5.   begin
  6.   Value := Angle + ((Index * 2) / 3) * Pi;
  7.   X := Axis.X + Round(Radix * Cos(Value));
  8.   Y := Axis.Y + Round(Radix * Sin(Value));
  9.   if Index = 0 then
  10.     Canvas.MoveTo(X, Y)
  11.   else
  12.     Canvas.LineTo(X, Y);
  13.   end;
  14. end;
  15.  
  16. procedure TForm1.Button1Click(Sender: TObject);
  17. begin
  18. DrawTriangle(Canvas, Point(6, 6), 6, 0);
  19. end;

Archivos adjuntos


  • 0

#22 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.259 mensajes
  • LocationMéxico

Escrito 27 marzo 2009 - 05:51

Hey Little Bro

:o Te pasas, eso esta de pelos, se mueven las figuras con el mouse :s

Salud OS

[off-topic]La verdad es que eres genial bro :)[/off-topic]
  • 0

#23 eduarcol

eduarcol

    Advanced Member

  • Moderador
  • PipPipPip
  • 4.483 mensajes
  • LocationVenezuela

Escrito 28 marzo 2009 - 07:30

:-# 8-| guau
  • 0

#24 axesys

axesys

    Advanced Member

  • Moderadores
  • PipPipPip
  • 640 mensajes
  • LocationLos Mochis

Escrito 28 marzo 2009 - 08:37

Excelente (y) esos triangulos si que se voltean
  • 0