Hello Alex Loginov,

What's ptcGraph ?

Your problem is on package generation or if you code an fpc (pascal) program ?

CC: (none) => benoit.tuduri

Hello,
There are problems if to code in fpc with help fp:

Program TriaFractal;
Uses ptcGraph, ptcCrt;

Type
  TTriaPoints = array[0..3] of PointType;
  
Procedure Triangle1(Points: TTriaPoints; N: Integer);
Var
  Points1: TTriaPoints;
Begin
  If N>0 Then
  Begin
    Delay(200);
    SetColor(Random(14)+1);
    
    Points1[0].X:=(Points[1].X+Points[0].X) div 2;
    Points1[0].Y:=(Points[1].Y+Points[0].Y) div 2;
    Points1[1].X:=(Points[2].X+Points[0].X) div 2;
    Points1[1].Y:=(Points[2].Y+Points[0].Y) div 2;
    Points1[2].X:=(Points[1].X+Points[2].X) div 2;
    Points1[2].Y:=(Points[1].Y+Points[2].Y) div 2;
    Points1[3].X:=Points1[0].X;
    Points1[3].Y:=Points1[0].Y;
    
    DrawPoly(4, Points1);
    
    Triangle1(Points1, N-1);
  End;
End;

Var
  Driver: SmallInt;
  Mode  : SmallInt;
  Points: TTriaPoints;

Begin
  Randomize;
  Driver:=VGA;
  Mode:=VGAHi;
  InitGraph(Driver, Mode, '');
  
  Points[0].X:=0;
  Points[0].Y:=400;
  Points[1].X:=600;
  Points[1].Y:=400;
  Points[2].X:=300;
  Points[2].Y:=0;
  Points[3].X:=Points[0].X;
  Points[3].Y:=Points[0].Y;
  DrawPoly(4, Points);
  Triangle1(Points, 6);
  
  Points[0].X:=150;
  Points[0].Y:=200;
  Points[1].X:=450;
  Points[1].Y:=200;
  Points[2].X:=300;
  Points[2].Y:=0;
  Points[3].X:=Points[0].X;
  Points[3].Y:=Points[0].Y;
  Triangle1(Points, 6);  
                       
  Points[0].X:=0;
  Points[0].Y:=400;
  Points[1].X:=300;
  Points[1].Y:=400;
  Points[2].X:=150;
  Points[2].Y:=200;
  Points[3].X:=Points[0].X;
  Points[3].Y:=Points[0].Y;
  Triangle1(Points, 6);

  Points[0].X:=300;
  Points[0].Y:=400;
  Points[1].X:=600;
  Points[1].Y:=400;
  Points[2].X:=450;
  Points[2].Y:=200;
  Points[3].X:=Points[0].X;
  Points[3].Y:=Points[0].Y;
  Triangle1(Points, 6);

  ReadLn;
  CloseGraph;
End.

I closed this bug, because fpc-2.6.2-5.mga4.i586.rpm is with fix.

Status: NEW => RESOLVED
Resolution: (none) => FIXED