setscreen ("graphics")

%Christmas Scene Summative



type FlakeType :                            %This is a type d
    record
        x, y, speed, size : real
    end record

var x, y, button : int := 0
var size : int := 200
var inuse : boolean := false
var Snow : array 1 .. size of FlakeType
const delaytime := 1000000

procedure DrawBack
    var cox : array 1 .. 11 of int := init (123, 35, 85, 35, 85, 35, 211, 161, 211, 161, 211)
    var coy : array 1 .. 11 of int := init (400, 300, 300, 230, 230, 150, 150, 230, 230, 300, 300)
    var conx : array 1 .. 3 of int := init (400, 400, 470)
    var cony : array 1 .. 3 of int := init (295, 275, 285)
    var roofx : array 1 .. 4 of int := init (300, 400, 610, 700)
    var roofy : array 1 .. 4 of int := init (300, 450, 450, 300)

end DrawBack

procedure GenerateFlakeArray
    for i : 1 .. size
        Snow (i).x := Rand.Int (0, maxx)
        Snow (i).y := Rand.Int (0, maxy)
        Snow (i).speed := Rand.Real * Rand.Int (1, 3)
        Snow (i).size := Snow (i).speed
    end for
end GenerateFlakeArray

process GenerateX
    if (not (inuse)) then
        x := Rand.Int (-600, 600)
        inuse := true
        delay (1500)
        inuse := false
    end if
end GenerateX

process LetItSnow
    loop
        fork GenerateX
        for i : 1 .. size


            if x < 500 and x > 300 then
                x := 0
            elsif x < 600 and x > 500 then
                x := 200
            elsif x < 700 and x > 600 then
                x := 400
            elsif x < 800 and x > 700 then
                x := 600

            elsif x < 300 and x > 200 then
                x := -200
            elsif x < 200 and x > 100 then
                x := -400
            elsif x < 100 and x > 0 then
                x := -600
            end if

            Snow (i).y -= Snow (i).speed
            Snow (i).x += round (x / 100)

            if Snow (i).y < 0 then
                Snow (i).y := Rand.Int (maxy, maxy + 100)
            end if

            if Snow (i).x > maxx then
                Snow (i).x := Rand.Int (-10, 0)
            end if

            if Snow (i).x < 0 then
                Snow (i).x := Rand.Int (maxx, maxx + 100)
            end if

            drawfilloval (round (Snow (i).x), round (Snow (i).y), round (Snow (i).size), round (Snow (i).size), white)
        end for
    end loop
    View.Update

    for o : 1 .. size
        drawfilloval (round (Snow (o).x), round (Snow (o).y), round (Snow (o).size), round (Snow (o).size), blue)

    end for
end LetItSnow
DrawBack         %Prevents scratching the whole picture

for i : 0 .. maxx
    %Draw the Ground
    drawfillbox (0, 0, 680, 380, white)

    %Draw the Background
    drawfillbox (0, 100, 650, 900, black)

    %Draw a house
    drawfillbox (5, 150, 125, 100, 3)

    drawfilloval (maxx div 2, 125, 35, 25, white)
    drawfilloval (maxx div 2, 175, 30, 25, white)
    drawfilloval (maxx div 2, 225, 25, 25, white)
    drawline (maxx div 2 - 25
     j : 1 .. 15
        drawfillstar (x, y, x + 20, y + 20, yellow)
    end for

    delay (50)

    %Draw a sled
    drawline (50 + i, 100, 0 - 50 + 1, 100, black)
    drawfillbox (150 + i, 50, 50 + i, 75, 2)
    delay (20)
    cls
    drawfillbox (150 + i, 110, 130 + i, 60, 2)
    delay (20)
    cls
    drawfillbox (0 - 150 + i, 50, 0 - 50 + i, 75, black)
end for

%Main function:

View.Set ("offscreenonly")
View.Set ("title: Winter Scene With a Snowman!!")                %Set drawing to offscreen only.


    GenerateFlakeArray                      %Generate the snow flake array.
    fork LetItSnow                          %Let it snow!