-0-'dan, ve yeniden programlaya başlamak ! :) tüm programlama dilleriyle !!! (2. sayfa)

open window 500,500

renk1=0
renk2=0
renk3=0

label tekrar

  for y = 0 to 3
    for x = 0 to 500 step 1.2
      gosub ucgen1
      gosub ucgen3
      gosub ucgen4
      gosub ucgen2
      sleep 0.01
    next x    
  next y

goto tekrar

label ucgen1
    if y=0 then
      renk1=x/2
      renk2=0
      renk3=0
    elseif y=1 then
      renk1=x/2
      renk2=x/2
      renk3=0
    elseif y=2 then
      renk1=0
      renk2=0
      renk3=x/2
    elseif y=3 then
      renk1=0
      renk2=x/2
      renk3=0
    endif
    
    color renk1, renk2, renk3
    line 250, 250, x, 0
return

label ucgen2
    if y=0 then
      renk1=0
      renk2=x/2
      renk3=0
    elseif y=1 then
      renk1=x/2
      renk2=0
      renk3=0
    elseif y=2 then
      renk1=x/2
      renk2=x/2
      renk3=0
    elseif y=3 then
      renk1=0
      renk2=0
      renk3=x/2
    endif
    
    color renk1, renk2, renk3
    line 250, 250, 500, x
return

label ucgen3
    if y=0 then
      renk1=0
      renk2=0
      renk3=x/2
    elseif y=1 then
      renk1=0
      renk2=x/2
      renk3=0
    elseif y=2 then
      renk1=x/2
      renk2=0
      renk3=0
    elseif y=3 then
      renk1=x/2
      renk2=x/2
      renk3=0
    endif
    
    color renk1, renk2, renk3
    line 250,250, 500-x,500
return

label ucgen4
     if y=0 then
      renk1=x/2
      renk2=x/2
      renk3=0
    elseif y=1 then
      renk1=0
      renk2=0
      renk3=x/2
    elseif y=2 then
      renk1=0
      renk2=x/2
      renk3=0
    elseif y=3 then
      renk1=x/2
      renk2=0
      renk3=0
    endif 
    
    color renk1, renk2, renk3
    line 250, 250, 0,500-x
return

open window 500,500

for x = 1 to 10

  konum=ran(400)
  renk1=ran(200)
  renk2=ran(200)
  renk3=ran(200)
  dikey=ran(50)+20
  yatay=ran(200)+50
  ek=ran(20)
  
  for y = 600 to -150 step -4

    balon(konum, y, 90+ek, renk1, renk2, renk3)
    balon(konum-yatay, y-dikey, 90-ek, renk1+50, renk2, renk3+50)
    balon(konum+yatay, y+dikey, 100+ek, renk1, renk2+50, renk3)
    sleep 0.1
    clear window
    
  next y
  
next x




sub balon(yataykonum,dikeykonum,en,kirmizi,yesil,mavi)
  
  color kirmizi,yesil,mavi
  fill circle yataykonum+ran(5),dikeykonum,en

end sub

print euler