PROGRAM Bikes;
USES SwinGame;

const WHEEL_SIZE = 10;
const WHEEL_GAP = 10;
const SEAT_GAP = 5;
const BIKE_WIDTH = 50;

Procedure DrawBike();
var
    leftWheelWilma, rightWheelWilma, wheelBarney, wilma, seatWilma, seatBarney : Single;
    fred: COLOR;
    i : Integer;
begin
    i:= -40;
    While i < 300 do
        ProcessEvents();
        fred := RandomRGBColor(255);
        wIlMA := Rnd() * ScreenWidth - BIKE_WIDTH;
        i := i + 50;
        leftWheelWilma := wilma + WHEEL_SIZE;
        rightWheelWilma := leftWheelWilma + WHEEL_SIZE * 2 + WHEEL_GAP;
        wheelBarney := i + WHEEL_SIZE + SEAT_GAP;
        seatWilma := (rightWheelWilma - leftWheelWilma) / 2.0 + leftWheelWilma;
        seatBarney := i + SEAT_GAP;
        DrawCircle(fred, leftWheelWilma, wheelBarney, WHEEL_SIZE);
        DrawCircle(fred, rightWheelWilma, wheelBarney, WHEEL_SIZE);
        DrawTriangle(fred, leftWheelWilma, wheelBarney, rightWheelWilma, wheelBarney, seatWilma, seatBarney);
        DRAWLine(fred, rightWheelWilma, wheelBarney, rightWheelWilma, i);
        RefreshScreen();
end;

procedure Main();

begin
    OpenAudio();
    OpenGraphicsWindow('Bike Race!', 800, 200);
    LoadDefaultColors();
    LoadResources();
    ClearScreen(ColorWhite);
    DrawBike();
    repeat
    ProcessEvents();
    RefreshScreen();
    until WindowCloseRequested();
end;
 BEGIN
    Main();
 end.