alix
Oct 17, 2009
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'pumpkin.bas by Alix - 17/10/2009
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
nomainwin
WindowWidth=600
WindowHeight=600
UpperLeftX=Int((DisplayWidth-WindowWidth)/2)
UpperLeftY=Int((DisplayHeight-WindowHeight)/2)
graphicbox #1.g, 0,0,600,600
open"Pumkin"Pumpkin Time !" for window_nf as #1
#1, "trapclose [quit]"
#1.g "size 10"
#1.g "color 252 171 3"
#1.g "backcolor black"
#1.g "fill black"
#1.g "down"
'
'Read x and y coordinates
'
read oldx2
read oldy2
while x2<>700 OR y2<>700
#1.g "color 252 171 3"
x1=oldx2
y1=oldy2
read x2
read y2
if x2<50 AND y2<50 then
#1.g "color black"
read x2
read y2
end if
oldx2=x2
oldy2=y2
if x2=700 or y2=700 then exit while
call goSlow 50
#1.g, "line ";x1;" ";y1;" ";x2;" ";y2
wend
'
' Add some shapes to the drawing
'
#1.g "backcolor 255 255 72"
#1.g "place 180 260; circlefilled 35"
#1.g "place 400 260; circlefilled 35"
#1.g "backcolor red; color red"
#1.g "place 290 430; size 1; ellipsefilled 150 15"
#1.g, "flush"
wait
[quit]
close #1
end
sub goSlow speed
calldll #kernel32, "Sleep",_
speed as long,_
r as void
end sub
DATA 197,104,205,110,218,117,229,122,243,128,256,130,276,131,296,131,315,129,330,123,344,
DATA 117,354,112,362,106,371,101,383,94,393,91,408,91,429,96,448,105,467,113,482,120,496,
DATA 130,508,139,520,154,528,167,536,182,539,196,541,214,546,230,550,246,550,262,552,280,
DATA 552,304,549,323,542,341,536,366,527,395,519,419,509,443,497,462,483,479,463,491,446,
DATA 501,424,506,402,511,376,512,342,512,315,512,289,512,263,512,240,512,204,506,177,499,
DATA 151,490,129,478,97,460,81,450,68,437,56,420,51,403,48,381,48,352,48,328,49,300,52,
DATA 277,55,252,60,228,68,205,79,181,91,157,103,136,112,120,126,109,138,104,160,102,175,
DATA 102,188,102,11,11,238,103,241,92,244,78,251,65,256,54,264,46,281,37,296,32,306,27,
DATA 316,25,329,26,343,29,350,33,355,44,358,54,356,64,341,64,331,62,318,62,307,64,299,72,
DATA 294,81,289,93,288,102,288,113,288,124,20,8,142,212,152,212,163,212,176,212,185,214,
DATA 196,222,211,231,222,241,230,250,235,259,240,268,246,279,254,290,249,297,240,301,230,
DATA 302,220,302,210,302,200,302,186,302,175,300,163,297,149,291,142,284,134,277,129,268,
DATA 125,261,120,251,117,240,114,231,114,221,114,210,122,206,134,209,21,11,325,276,330,269,
DATA 336,261,345,252,355,244,362,235,373,228,386,221,400,214,409,209,420,205,433,203,447,
DATA 204,459,207,467,211,475,219,480,228,482,239,484,249,490,258,481,260,473,264,465,269,
DATA 456,272,447,278,436,285,427,290,416,293,405,294,395,295,383,295,371,295,360,294,351,
DATA 289,341,283,332,278,16,16,199,386,202,395,207,405,216,410,224,405,229,396,230,385,
DATA 241,393,249,404,254,412,264,413,271,406,277,398,284,389,291,389,298,397,305,407,
DATA 312,415,320,413,329,405,339,398,345,389,354,394,359,405,367,416,378,412,387,407,
DATA 402,400,413,395,413,411,412,428,408,439,404,449,399,459,395,471,390,478,380,478,
DATA 372,470,362,461,354,453,346,451,339,458,333,464,326,471,317,477,306,466,296,458,
DATA 288,449,278,448,268,455,257,461,246,463,233,464,224,454,218,446,212,437,204,440,
DATA 195,445,183,448,178,440,173,425,171,405,166,382,163,362,159,351,161,348,171,356,
DATA 181,364,187,372,194,379,700,700