23 replies to this topic

[cHackAll]

delphi

procedure DrawTriangle(Canvas: TCanvas; Axis: TPoint; Radix: Cardinal; Angle: Real);
var Index, X, Y: Cardinal; Value: Real;
begin
 for Index := 0 to 3 do
  begin
   Value := Angle + ((Index * 2) / 3) * Pi;
   X := Axis.X + Round(Radix * Cos(Value));
   Y := Axis.Y + Round(Radix * Sin(Value));
   if Index = 0 then
    Canvas.MoveTo(X, Y)
   else
    Canvas.LineTo(X, Y);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 DrawTriangle(Canvas, Point(6, 6), 6, 0);
end;

Attached Files

•  386_.zip   1.37KB   7 downloads

[egostar]

Hey Little Bro

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

Salud OS

[off-topic]La verdad es que eres genial bro [/off-topic]

[eduarcol]

:-# guau

[axesys]

Excelente esos triangulos si que se voltean