PumkinTime

[[code format="basic4gl"]]
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'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 "Pumpkin Time !" for window_nf as #1

    #1, "trapclose [exit]"

    call goslow 500
    #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

    [exit]
    close #1
    end

 '
 ' PAUSE
 '
 Sub goslow mil
    timer mil, [cont]
    wait
    [exit]
    close #1
    end
    [cont]
    timer 0
 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

[[code]]