help on candaian flag

[Mr. T]

why this no work?


var grow :int :=5
loop
grow:=grow+10
drawfillbox (80, 0+grow, 0, maxy, 7)
drawfillbox (maxx - 80, 0+grow, maxx, maxy, 7)
drawfillbox (80, 0, maxx - 80, maxy, 5)
drawfillmapleleaf (125, 30, maxx - 125, maxy - 30, 4)
delay (200)
end loop

[ssr]

What do u want it to be?
the maple leaf growing bigger? 8)

[Mr. T]

no, the borders

[MihaiG]

i assume you re trying to amke the flag grow so heres a good smooth animation working model try using a for loop this one will work to fit you ur screen good luck hope this helps you

code:

setscreen ("graphics:max;max") View.Set ("offscreenonly") for i : 1 .. 1000     cls     drawfillbox (0, 0, i * 2, i * 4, 4)     drawfillmapleleaf (i * 3, 0, i * 7, i * 4, 4)     drawfillbox (i * 8, 0, i * 10, i * 4, 4)     exit when (i) * 10 > maxx     delay (12)     View.Update end for

[ssr]

do u mean like this

code:

View.Set("offscreenonly") var grow :int :=5 loop grow:=grow+1 drawfillbox (80, maxy div 2-grow, 0, maxy div 2+grow, 7) drawfillbox (maxx - 80, maxy div 2-grow, maxx, maxy div 2+grow, 7) drawfillbox (80, 0, maxx - 80, maxy, 5) drawfillmapleleaf (125, 30, maxx - 125, maxy - 30, 4) delay (20) View.Update end loop

or this

code:

View.Set("offscreenonly") var grow :int :=5 loop grow:=grow+1 drawfillbox (80, 0, 0, 0+grow, 7) drawfillbox (maxx - 80, 0, maxx, 0+grow, 7) drawfillbox (80, 0, maxx - 80, maxy, 5) drawfillmapleleaf (125, 30, maxx - 125, maxy - 30, 4) delay (20) View.Update end loop

8)

[ssr]

Oh ic what u mean
ok
View.Update and View.Set os always a good idea to make a smooth animation 8)