Obrazek 2

program perspektywa2;
uses graph, crt;
var
        driver, mode: integer;
        x,y,i: integer;
        a,b: integer;
begin
        driver:=DETECT;
        InitGraph(driver, mode, 'D:/FPC/2.4.0/bin/');
        x:=GetMaxX;
        y:=GetMaxY;
SetLineStyle(0,15,3);
        Line(0,y div 2,x,y div 2);
SetFillStyle(1,9);
FloodFill(0,0,15);
SetColor(14);
        Circle((x div 2)+400,150,100);
SetFillStyle(1,14);
FloodFill(1038,240,14);
SetColor(2);
        Line(300,y,620,(y div 2)+20);
        Line(x-300,y,x-620,(y div 2)+20);
        Line(620,(y div 2)+20,x-620,(y div 2)+20);
SetFillStyle(1,2);
Bar(0, y div 2,x,(y div 2)+10);
a:=x div 2;
b:=y div 2;
        SetFillStyle(1,15);
        Bar(a-13,y-40,a+13,y);
        Bar(a-10,y-150,a+10,y-90);
        Bar(a-8,y-240,a+8,y-180);
        Bar(a-5,y-320,a+5,y-270);
        Bar(a-4,y-395,a+4,y-345);
        Bar(a-4,y-450,a+4,y-415);
SetFillStyle(1,2);
        FloodFill(0,y,2);
        FloodFill(x,y,2);
SetColor(6);
        Line(220,y-20,220,y-130);
        Line(260,y-70,260,y-170);

        Line(220,y-20,260,y-70);
        Line(220,y-130,260,y-170);
SetFillStyle(1,6);
FloodFill(230,y-50,6);
SetColor(11);
Circle(220,y-200,60);
SetFillStyle(1,11);
FloodFill(230,y-201,11);
SetColor(6);
        Line(360,y-170,360,y-250);
        Line(390,y-220,390,y-290);
        Line(360,y-170,390,y-220);
        Line(360,y-240,390,y-290);
        SetFillStyle(1,6);
        FloodFill(370,y-220,6);
SetColor(11);
Circle(350,y-305,50);
SetFillStyle(1,11);
FloodFill(350,y-305,11);
SetColor(6);
        Line(460,y-310,460,y-380);
        Line(485,y-355,485,y-425);
        Line(460,y-310,485,y-355);
        Line(460,y-380,485,y-425);
        SetFillStyle(1,6);
        FloodFill(470,y-380,6);
SetColor(11);
Circle(460,y-440,45);
SetFillStyle(1,11);
FloodFill(460,y-440,11);
SetColor(6);
        Line(x-220,y-30,x-220,y-130);
        Line(x-260,y-70,x-260,y-170);
        Line(x-220,y-30,x-260,y-70);
        Line(x-220,y-130,x-260,y-170);
        SetFillStyle(1,6);
        FloodFill(x-230,y-50,6);
SetColor(11);
Circle(x-220,y-200,60);
SetFillStyle(1,11);
FloodFill(x-220,y-200,11);
SetColor(6);
        Line(x-360,y-170,x-360,y-250);
        Line(x-390,y-220,x-390,y-290);
        Line(x-360,y-170,x-390,y-220);
        Line(x-360,y-240,x-390,y-290);
        SetFillStyle(1,6);
        FloodFill(x-370,y-220,6);
SetColor(11);
Circle(x-350,y-305,50);
SetFillStyle(1,11);
FloodFill(x-350,y-305,11);
SetColor(6);
        Line(x-460,y-310,x-460,y-380);
        Line(x-485,y-355,x-485,y-425);
        Line(x-460,y-310,x-485,y-355);
        Line(x-460,y-380,x-485,y-425);
        SetFillStyle(1,6);
        FloodFill(x-470,y-380,6);
SetColor(11);
Circle(x-460,y-440,45);
SetFillStyle(1,11);
FloodFill(x-460,y-440,11);
repeat until KeyPressed;
CloseGraph;
end.