Olympiad-tasks---Python/Z1.pas at master · mind-protector/Olympiad-tasks---Python · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
program Z;
  uses graphABC;
  const
    H = 480;
    W = 600;

    winColor = clWhite;

  procedure Brush
  (
   color: System.Drawing.Color;
   style: System.Drawing.Drawing2D.DashStyle;
   width: integer
  );
  { Sets brush options }
  begin
    SetPenColor(color);
    SetPenStyle(style);
    SetPenWidth(width)
  end;

  procedure Parallelepiped
  (
    X, Y, // Front-bottom-right corner coordinates
    sideX, sideY, sideZ, // The lengths of the sides
    outlineWidth: integer;
    color: System.Drawing.Color
  );
  { Draws a parallelepiped with a 45 degree slant top and left }
  var
    V, Vx, Vy: integer;
  begin

    { Devide by 3 to make Y dimension volumetric }
    V := round(sideY / 3);

    { Back-bottom-right corner coordinates }
    Vx := X + V;
    Vy := Y - V;

    { The front side of the figure (draws clockwise) }
    Brush(color, psSolid, outlineWidth);
    line(X, Y, (X + sideX), Y);
    line(X, Y, X, (Y - sideZ));
    line(X, (Y - sideZ), (X + sideX), (Y - sideZ));
    line((X + sideX), Y, (X + sideX), (Y - sideZ));

    { The invisible sides of the figure (draws clockwise) }
    Brush(color, psDash, outlineWidth);
    line(X, Y, Vx, Vy);
    line(Vx, Vy, Vx, (Vy - sideZ));
    line(Vx, Vy, (Vx + sideX), Vy);

    { Finish painting the second square }
    Brush(color, psSolid, outlineWidth);
    line(Vx, (Vy - sideZ), (Vx + sideX), (Vy - sideZ));
    line((Vx + sideX), Vy, (Vx + sideX), (Vy - sideZ));

    { Establish a connection between squares to form a parallelepiped }
    line(X, (Y - sideZ), Vx, (Vy - sideZ));
    line((X + sideX), Y, (Vx + sideX), Vy);
    line((X + sideX), (Y - sideZ), (Vx + sideX), (Vy - sideZ));
  end;

begin
    SetWindowSize(W, H);
    ClearWindow(winColor);

    Parallelepiped(100, 400, 150, 200, 300, 3, clBlack);
end.