need help on improving code for christmas animations
| Author |
Message |
spacedout
|
 Posted: Fri Dec 19, 2008 10:20 pm Post subject: need help on improving code for christmas animations |
|
|
can someone please help me shorten this code and help me fix a problem? its due soon. its a snowman decorating a tree but i dont know how to make him throw a star onto the top of the tree at the last lines of the program (so far).
| Turing: | View.Set ("graphics")
setscreen ("graphics:800;600")
View.Set ("offscreenonly")
colourback (blue)
type SnowType :
record
X, Y, Spd, Size : int
end record
var Snow : array 1 .. 100 of SnowType
for rep : 1 .. 100
Snow (rep ).X := Rand.Int (0, 800)
Snow (rep ).Y := Rand.Int (0, 600)
Snow (rep ).Spd := Rand.Int (1, 3)
Snow (rep ).Size := Snow (rep ).Spd
end for
var n : array 1 .. 3 of int := init (350, 650, 500) %tree
var m : array 1 .. 3 of int := init (164, 164, 350)
var q : array 1 .. 3 of int := init (350, 650, 500) %tree
var w : array 1 .. 3 of int := init (250, 250, 400)
var e : array 1 .. 3 of int := init (350, 650, 500) %tree
var r : array 1 .. 3 of int := init (325, 325, 450)
var c : array 1 .. 3 of int := init (375, 625, 500) %tree
var v : array 1 .. 3 of int := init (400, 400, 500)
var l : array 1 .. 3 of int := init (400, 600, 500) %tree
var k : array 1 .. 3 of int := init (450, 450, 575)
loop
for decreasing armmove: 325.. 300
cls
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
Draw.ThickLine (armmove,armmove, 350, 105, 15, grey)%tinsel
drawbox (300, 100, 400, 200, black) %box
Draw.FillBox (300, 100, 400, 200, brown)
drawpolygon (n, m, 3, 1)% tree
Draw.FillPolygon (n, m, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (q, w, 3, 1)
Draw.FillPolygon (q, w, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (e, r, 3, 1)
Draw.FillPolygon (e, r, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (c, v, 3, 1)
Draw.FillPolygon (c, v, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (l, k, 3, 1)
Draw.FillPolygon (l, k, 3, green)
drawbox (475, 100, 525, 164, black) % trunk
Draw.FillBox (475, 100, 525, 164, brown)
drawfilloval (400, 250, 5, 10, blue) % christmas lights1
drawfilloval (450, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 250, 5, 10, blue) % christmas lights
drawfilloval (550, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 325, 5, 10, red) % christmas lights2
drawfilloval (450, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 325, 5, 10, yellow) % christmas lights
drawfilloval (550, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 175, 5, 10, yellow) % christmas lights3
drawfilloval (450, 225, 5, 10, red) % christmas lights
drawfilloval (600, 175, 5, 10, blue) % christmas lights
drawfilloval (550, 225, 5, 10, brightred) % christmas lights
drawfilloval (400, 400, 5, 10, brightred) % christmas lights4
drawfilloval (450, 425, 5, 10, blue) % christmas lights
drawfilloval (600, 400, 5, 10, brightgreen) % christmas lights
drawfilloval (550, 425, 5, 10, yellow) % christmas lights
drawfilloval (200, 400, 50, 50, white) % snowman
drawfilloval (200, 300, 75, 75, 0)
drawfilloval (200, 200, 100, 100, 0)
drawfilloval (215, 400, 5, 5, black) %eyes
drawfilloval (235, 400, 5, 5, black) %eyes
var ex : array 1 .. 3 of int := init (220, 220, 250)
var why : array 1 .. 3 of int := init (390, 380, 385)
Draw.FillPolygon (ex, why, 3, brightred)
Draw.Polygon (ex, why, 3, black)
drawline (200, 325, armmove, armmove, black)% arm
for rep : 1 .. 100
Snow (rep ).Y - = Snow (rep ).Spd
if Snow (rep ).Y < Snow (rep ).Size then
Snow (rep ).Y := Rand.Int (600, 800)
end if
drawfilloval (Snow (rep ).X, Snow (rep ).Y, Snow (rep ).Size, Snow (rep ).Size, white)
end for
View.Update
delay (50)
end for
delay (25)
View.Update
cls
exit
end loop
loop
for armmove: 300.. 350 by 10
cls
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
Draw.ThickLine (armmove,armmove, 350, 105, 15, grey)%tinsel
drawbox (300, 100, 400, 200, black) %box
Draw.FillBox (300, 100, 400, 200, brown)
drawpolygon (n, m, 3, 1)
Draw.FillPolygon (n, m, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (q, w, 3, 1)
Draw.FillPolygon (q, w, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (e, r, 3, 1)
Draw.FillPolygon (e, r, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (c, v, 3, 1)
Draw.FillPolygon (c, v, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (l, k, 3, 1)
Draw.FillPolygon (l, k, 3, green)
drawbox (475, 100, 525, 164, black) % trunk
Draw.FillBox (475, 100, 525, 164, brown)
drawfilloval (400, 250, 5, 10, blue) % christmas lights1
drawfilloval (450, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 250, 5, 10, blue) % christmas lights
drawfilloval (550, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 325, 5, 10, red) % christmas lights2
drawfilloval (450, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 325, 5, 10, yellow) % christmas lights
drawfilloval (550, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 175, 5, 10, yellow) % christmas lights3
drawfilloval (450, 225, 5, 10, red) % christmas lights
drawfilloval (600, 175, 5, 10, blue) % christmas lights
drawfilloval (550, 225, 5, 10, brightred) % christmas lights
drawfilloval (400, 400, 5, 10, brightred) % christmas lights4
drawfilloval (450, 425, 5, 10, blue) % christmas lights
drawfilloval (600, 400, 5, 10, brightgreen) % christmas lights
drawfilloval (550, 425, 5, 10, yellow) % christmas lights
drawfilloval (200, 400, 50, 50, white) % snowman
drawfilloval (200, 300, 75, 75, 0)
drawfilloval (200, 200, 100, 100, 0)
drawfilloval (215, 400, 5, 5, black) %eyes
drawfilloval (235, 400, 5, 5, black) %eyes
var ex : array 1 .. 3 of int := init (220, 220, 250)
var why : array 1 .. 3 of int := init (390, 380, 385)
Draw.FillPolygon (ex, why, 3, brightred)
Draw.Polygon (ex, why, 3, black)
drawline (200, 325, armmove, armmove, black)% arm
for rep : 1 .. 100
Snow (rep ).Y - = Snow (rep ).Spd
if Snow (rep ).Y < Snow (rep ).Size then
Snow (rep ).Y := Rand.Int (600, 800)
end if
drawfilloval (Snow (rep ).X, Snow (rep ).Y, Snow (rep ).Size, Snow (rep ).Size, white)
end for
View.Update
delay (50)
end for
delay (25)
View.Update
cls
exit
end loop
loop
for tinselthrow: 350.. 525 by 20
cls
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
Draw.ThickLine (tinselthrow,tinselthrow, 350, 105, 15, grey)%tinsel
drawbox (300, 100, 400, 200, black) %box
Draw.FillBox (300, 100, 400, 200, brown)
drawpolygon (n, m, 3, 1)% tree
Draw.FillPolygon (n, m, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (q, w, 3, 1)
Draw.FillPolygon (q, w, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (e, r, 3, 1)
Draw.FillPolygon (e, r, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (c, v, 3, 1)
Draw.FillPolygon (c, v, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (l, k, 3, 1)
Draw.FillPolygon (l, k, 3, green)
drawbox (475, 100, 525, 164, black) % trunk
Draw.FillBox (475, 100, 525, 164, brown)
drawfilloval (400, 250, 5, 10, blue) % christmas lights1
drawfilloval (450, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 250, 5, 10, blue) % christmas lights
drawfilloval (550, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 325, 5, 10, red) % christmas lights2
drawfilloval (450, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 325, 5, 10, yellow) % christmas lights
drawfilloval (550, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 175, 5, 10, yellow) % christmas lights3
drawfilloval (450, 225, 5, 10, red) % christmas lights
drawfilloval (600, 175, 5, 10, blue) % christmas lights
drawfilloval (550, 225, 5, 10, brightred) % christmas lights
drawfilloval (400, 400, 5, 10, brightred) % christmas lights4
drawfilloval (450, 425, 5, 10, blue) % christmas lights
drawfilloval (600, 400, 5, 10, brightgreen) % christmas lights
drawfilloval (550, 425, 5, 10, yellow) % christmas lights
drawfilloval (200, 400, 50, 50, white) % snowman
drawfilloval (200, 300, 75, 75, 0)
drawfilloval (200, 200, 100, 100, 0)
drawfilloval (215, 400, 5, 5, black) %eyes
drawfilloval (235, 400, 5, 5, black) %eyes
var ex : array 1 .. 3 of int := init (220, 220, 250)
var why : array 1 .. 3 of int := init (390, 380, 385)
Draw.FillPolygon (ex, why, 3, brightred)
Draw.Polygon (ex, why, 3, black)
drawline (200, 325, 350, 350, black)% arm
for rep : 1 .. 100
Snow (rep ).Y - = Snow (rep ).Spd
if Snow (rep ).Y < Snow (rep ).Size then
Snow (rep ).Y := Rand.Int (600, 800)
end if
drawfilloval (Snow (rep ).X, Snow (rep ).Y, Snow (rep ).Size, Snow (rep ).Size, white)
end for
View.Update
delay (50)
end for
delay (25)
View.Update
cls
exit
end loop
loop
for decreasing armmove: 350.. 200 by 5
cls
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawbox (300, 100, 400, 200, black) %box
Draw.FillBox (300, 100, 400, 200, brown)
drawpolygon (n, m, 3, 1)% tree
Draw.FillPolygon (n, m, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (q, w, 3, 1)
Draw.FillPolygon (q, w, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (e, r, 3, 1)
Draw.FillPolygon (e, r, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (c, v, 3, 1)
Draw.FillPolygon (c, v, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (l, k, 3, 1)
Draw.FillPolygon (l, k, 3, green)
drawbox (475, 100, 525, 164, black) % trunk
Draw.FillBox (475, 100, 525, 164, brown)
Draw.ThickLine (550, 512, 450, 450, 15, grey) %tinsel
Draw.ThickLine (562, 450, 437, 400, 15, grey) %tinsel
Draw.ThickLine (575, 384, 425, 325, 15, grey) %tinsel
Draw.ThickLine (575, 325, 425, 250, 15, grey) %tinsel
Draw.ThickLine (575, 257, 425, 164, 15, grey) %tinsel
drawfilloval (400, 250, 5, 10, blue) % christmas lights1
drawfilloval (450, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 250, 5, 10, blue) % christmas lights
drawfilloval (550, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 325, 5, 10, red) % christmas lights2
drawfilloval (450, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 325, 5, 10, yellow) % christmas lights
drawfilloval (550, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 175, 5, 10, yellow) % christmas lights3
drawfilloval (450, 225, 5, 10, red) % christmas lights
drawfilloval (600, 175, 5, 10, blue) % christmas lights
drawfilloval (550, 225, 5, 10, brightred) % christmas lights
drawfilloval (400, 400, 5, 10, brightred) % christmas lights4
drawfilloval (450, 425, 5, 10, blue) % christmas lights
drawfilloval (600, 400, 5, 10, brightgreen) % christmas lights
drawfilloval (550, 425, 5, 10, yellow) % christmas lights
drawfilloval (200, 400, 50, 50, white) % snowman
drawfilloval (200, 300, 75, 75, 0)
drawfilloval (200, 200, 100, 100, 0)
drawfilloval (215, 400, 5, 5, black) %eyes
drawfilloval (235, 400, 5, 5, black) %eyes
var ex : array 1 .. 3 of int := init (220, 220, 250)
var why : array 1 .. 3 of int := init (390, 380, 385)
Draw.FillPolygon (ex, why, 3, brightred)
Draw.Polygon (ex, why, 3, black)
drawline (200, 325, 350, armmove, black)% arm
for rep : 1 .. 100
Snow (rep ).Y - = Snow (rep ).Spd
if Snow (rep ).Y < Snow (rep ).Size then
Snow (rep ).Y := Rand.Int (600, 800)
end if
drawfilloval (Snow (rep ).X, Snow (rep ).Y, Snow (rep ).Size, Snow (rep ).Size, white)
end for
View.Update
delay (50)
end for
delay (25)
View.Update
cls
exit
end loop
loop
for armmove: 200.. 350 by 15
cls
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawbox (300, 100, 400, 200, black) %box
Draw.FillBox (300, 100, 400, 200, brown)
drawpolygon (n, m, 3, 1)% tree
Draw.FillPolygon (n, m, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (q, w, 3, 1)
Draw.FillPolygon (q, w, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (e, r, 3, 1)
Draw.FillPolygon (e, r, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (c, v, 3, 1)
Draw.FillPolygon (c, v, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (l, k, 3, 1)
Draw.FillPolygon (l, k, 3, green)
drawbox (475, 100, 525, 164, black) % trunk
Draw.FillBox (475, 100, 525, 164, brown)
Draw.ThickLine (550, 512, 450, 450, 15, grey) %tinsel
Draw.ThickLine (562, 450, 437, 400, 15, grey) %tinsel
Draw.ThickLine (575, 384, 425, 325, 15, grey) %tinsel
Draw.ThickLine (575, 325, 425, 250, 15, grey) %tinsel
Draw.ThickLine (575, 257, 425, 164, 15, grey) %tinsel
drawfilloval (400, 250, 5, 10, blue) % christmas lights1
drawfilloval (450, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 250, 5, 10, blue) % christmas lights
drawfilloval (550, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 325, 5, 10, red) % christmas lights2
drawfilloval (450, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 325, 5, 10, yellow) % christmas lights
drawfilloval (550, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 175, 5, 10, yellow) % christmas lights3
drawfilloval (450, 225, 5, 10, red) % christmas lights
drawfilloval (600, 175, 5, 10, blue) % christmas lights
drawfilloval (550, 225, 5, 10, brightred) % christmas lights
drawfilloval (400, 400, 5, 10, brightred) % christmas lights4
drawfilloval (450, 425, 5, 10, blue) % christmas lights
drawfilloval (600, 400, 5, 10, brightgreen) % christmas lights
drawfilloval (550, 425, 5, 10, yellow) % christmas lights
drawfilloval (200, 400, 50, 50, white) % snowman
drawfilloval (200, 300, 75, 75, 0)
drawfilloval (200, 200, 100, 100, 0)
drawfilloval (215, 400, 5, 5, black) %eyes
drawfilloval (235, 400, 5, 5, black) %eyes
var ex : array 1 .. 3 of int := init (220, 220, 250)
var why : array 1 .. 3 of int := init (390, 380, 385)
Draw.FillPolygon (ex, why, 3, brightred)
Draw.Polygon (ex, why, 3, black)
drawline (200, 325, 350, armmove, black)% arm
drawstar (325,armmove- 50, 375,armmove, black) % star
Draw.FillStar (325,armmove- 50, 375,armmove, yellow)
for rep : 1 .. 100
Snow (rep ).Y - = Snow (rep ).Spd
if Snow (rep ).Y < Snow (rep ).Size then
Snow (rep ).Y := Rand.Int (600, 800)
end if
drawfilloval (Snow (rep ).X, Snow (rep ).Y, Snow (rep ).Size, Snow (rep ).Size, white)
end for
View.Update
delay (50)
end for
delay (25)
View.Update
cls
exit
end loop
loop
for ystarthrow: 350.. 600 by 20
cls
var x1starthrow: real: = ystarthrow
var x2starthrow: real: = ystarthrow
x1starthrow: = ystarthrow* 0. 6+ 115
x2starthrow: = ystarthrow* 0. 6+ 165
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawfill (0, 0, cyan, grey)
drawline (400, 200, 450, 200, grey)
drawline (425, 225, 425, 175, grey)
drawline (400, 225, 450, 175, grey)
drawline (400, 175, 450, 225, grey)
Draw.FillBox (0, 0, 800, 100, white) %ground
drawbox (759, 50, 729, 0, black) %boxes
drawbox (799, 50, 769, 0, black)
drawline (759, 48, 729, 48, brightred) % letter J
drawline (749, 48, 749, 15, brightred)
drawarc (739, 15, 10, 14, 180, 360, brightred)
drawline (799, 0, 792, 50, brightred) % letter M
drawline (784, 12, 791, 50, brightred)
drawline (784, 12, 777, 50, brightred)
drawline (769, 0, 776, 50, brightred)
drawbox (300, 100, 400, 200, black) %box
Draw.FillBox (300, 100, 400, 200, brown)
drawpolygon (n, m, 3, 1)% tree
Draw.FillPolygon (n, m, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (q, w, 3, 1)
Draw.FillPolygon (q, w, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (e, r, 3, 1)
Draw.FillPolygon (e, r, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (c, v, 3, 1)
Draw.FillPolygon (c, v, 3, green)
% This polygon was created using Gurjant Kalsi's Polygon Generator
drawpolygon (l, k, 3, 1)
Draw.FillPolygon (l, k, 3, green)
drawbox (475, 100, 525, 164, black) % trunk
Draw.FillBox (475, 100, 525, 164, brown)
Draw.ThickLine (550, 512, 450, 450, 15, grey) %tinsel
Draw.ThickLine (562, 450, 437, 400, 15, grey) %tinsel
Draw.ThickLine (575, 384, 425, 325, 15, grey) %tinsel
Draw.ThickLine (575, 325, 425, 250, 15, grey) %tinsel
Draw.ThickLine (575, 257, 425, 164, 15, grey) %tinsel
drawfilloval (400, 250, 5, 10, blue) % christmas lights1
drawfilloval (450, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 250, 5, 10, blue) % christmas lights
drawfilloval (550, 275, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 325, 5, 10, red) % christmas lights2
drawfilloval (450, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (600, 325, 5, 10, yellow) % christmas lights
drawfilloval (550, 375, 5, 10, brightgreen) % christmas lights
drawfilloval (400, 175, 5, 10, yellow) % christmas lights3
drawfilloval (450, 225, 5, 10, red) % christmas lights
drawfilloval (600, 175, 5, 10, blue) % christmas lights
drawfilloval (550, 225, 5, 10, brightred) % christmas lights
drawfilloval (400, 400, 5, 10, brightred) % christmas lights4
drawfilloval (450, 425, 5, 10, blue) % christmas lights
drawfilloval (600, 400, 5, 10, brightgreen) % christmas lights
drawfilloval (550, 425, 5, 10, yellow) % christmas lights
drawfilloval (200, 400, 50, 50, white) % snowman
drawfilloval (200, 300, 75, 75, 0)
drawfilloval (200, 200, 100, 100, 0)
drawfilloval (215, 400, 5, 5, black) %eyes
drawfilloval (235, 400, 5, 5, black) %eyes
var ex : array 1 .. 3 of int := init (220, 220, 250)
var why : array 1 .. 3 of int := init (390, 380, 385)
Draw.FillPolygon (ex, why, 3, brightred)
Draw.Polygon (ex, why, 3, black)
drawline (200, 325, 350, 350, black)% arm
drawstar (x1starthrow,ystarthrow- 50,x2starthrow,ystarthrow, black) % star
Draw.FillStar (x1starthrow,ystarthrow- 50,x2starthrow,ystarthrow, yellow)
for rep : 1 .. 100
Snow (rep ).Y - = Snow (rep ).Spd
if Snow (rep ).Y < Snow (rep ).Size then
Snow (rep ).Y := Rand.Int (600, 800)
end if
drawfilloval (Snow (rep ).X, Snow (rep ).Y, Snow (rep ).Size, Snow (rep ).Size, white)
end for
View.Update
delay (50)
end for
delay (25)
View.Update
cls
exit
end loop |
Mod Edit: Instead of quote tags, using syntax tags make the code look better  | code: | [syntax="Turing"]Code Here[/syntax] |
|
|
|
|
|
 |
Sponsor
Sponsor
|
|
|
|
|
Register
Wiki
Blog
Search
Turing
Chat Room
Members
