SuperStrict
SeedRnd MilliSecs()

'-----------Init-------------
Const w:Int = 1024
Const h:Int = 768

Graphics w, h

'--------------Types/Variablen---------------
Type TPerlin
   Field frequency:Int
   Field amplitude:Int
   Field noise:Float[w]
   
   Global noiselist:TList = New TList
   
   Function Generate:TPerlin(freq:Int, amp:Int)
      Local p:TPerlin = New TPerlin
      Local random:Int[freq]
      Local l:Float = w/freq
      Local y:Float
      Local b:Float
      
      p.frequency = freq
      p.amplitude = amp
      
      
      For Local i:Int = 0 To freq-1
         random[i] = Rand(-1, 1)
         Print random[i]
      Next
      
      For Local sector:Int = 0 To freq-1
         b = random[sector]*amp
         For Local x:Int = 0 To l
            y:+b/l
            p.noise[sector*l+x] = y
         Next
      Next
      
      ListAddLast noiselist, p.noise
      Return p
   End Function   
   
   Function addnoises()
   
   End Function
   
   Method draw()
      For Local x:Int = 0 To 1023
         Plot x, h/2+perlin.noise[x]
      Next
   End Method
End Type

Global perlin:TPerlin = TPerlin.generate(24, 12)




'------------------------Hauptschleife--------------------------
While Not KeyHit(KEY_ESCAPE) Or AppTerminate()
   Cls
   
   perlin.draw()
   
   Flip
Wend

End

Local l:Float = w/freq

Local l:Float = Float(w) / Float(freq)