screen 0,800,600
    title "朝顔の観察"
    randomize
    gradf 0,0,800,600,1,$0066ff,$22aaff

buffer 1,200,200
    color
    boxf
    color 255,255,255
    circle 0,0,200,200

buffer 2,200,200
    color 255,150+rnd(50),150+rnd(50)
    gosub *asagao


buffer 3,200,200
    color 150+rnd(50),150+rnd(50),255
    gosub *asagao


buffer 4,200,200
    color 255,150+rnd(50),255
    gosub *asagao



gsel 0
    gmode 4,200,200,255
    color
    
    repeat 3
    
        pos rnd(50)+250*cnt,rnd(50)+50
        gcopy 2+cnt,0,0,200,200
        
        pos rnd(50)+250*cnt,rnd(50)+300
        gcopy 2+((cnt+1)\3),0,0,200,200
    
    loop

    stop


*asagao
    circle -100,-100,100,100
    circle -100,100,100,300
    circle 100,-100,300,100
    circle 100,100,300,300
    
    gmode 4,200,200,255
    color 255,255,255
    
    gcopy 1,0,0,200,200
    
    return