program Bikes;
uses myLibrary;
const WHEEL_SIZE = 10;
const WHEEL_GAP = 10;
const SEAT_GAP = 5;
const BIKE_WIDTH = 50;
procedure DrawBike(x, y : Integer);
var
leftWheel, rightWheel: Single;
seatX, seatY: Single;
wheelY : single;
rndColour : Color;
begin
rndColour := RandomRGBColor(255);
leftWheel := x + WHEEL_SIZE;
rightWheel := leftWheel + WHEEL_SIZE * 2 + WHEEL_GAP;
wheelY := y + WHEEL_SIZE + SEAT_GAP;
seatX := (rightWheel - leftWheel) / 2.0 + leftWheel;
seatY := y + SEAT_GAP;
DrawCircle(rndColour, leftWheel, wheelY, WHEEL_SIZE);
DrawCircle(rndColour, rightWheel, wheelY, WHEEL_SIZE);
DrawTriangle(rndColour, leftWheel, wheelY, rightWheel, wheelY, seatX, seatY);
DrawLine(rndColour, rightWheel, wheelY, rightWheel, y);
end;
procedure Main();
var
x, y: Integer;
count : Integer;
begin
OpenGraphicsWindow('Bike Race!', 800, 400);
LoadDefaultColors();
ClearScreen(ColorWhite);
count := 0;
while count <> 10 do
begin
x := Random(750);
y := Random(350);
DrawBike(x, y);
count += 1;
end;
repeat
ProcessEvents();
RefreshScreen();
until WindowCloseRequested();
end;
begin
Main();
end.