| Summary: | full requires for fpc | ||
|---|---|---|---|
| Product: | Mageia | Reporter: | Alex Loginov <loginov_alex> |
| Component: | RPM Packages | Assignee: | Mageia Bug Squad <bugsquad> |
| Status: | RESOLVED FIXED | QA Contact: | |
| Severity: | normal | ||
| Priority: | Normal | CC: | benoit.tuduri |
| Version: | Cauldron | Keywords: | Junior_job |
| Target Milestone: | --- | ||
| Hardware: | All | ||
| OS: | Linux | ||
| Whiteboard: | |||
| Source RPM: | fpc | CVE: | |
| Status comment: | |||
|
Alex Loginov
2013-01-24 15:12:39 CET
Keywords:
(none) =>
Junior_job 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 |
Description of problem: If to use ptcGraph, then error with requires. Fix for spec file: Requires: glibc-devel, gcc, %{_lib}x11_6-devel, %{_lib}xrandr2-devel, %{_lib}xxf86vm-devel, %{_lib}xext6-devel, %{_lib}xxf86dga-devel