SuperStrict

SeedRnd MilliSecs()

Global height:Float[513,513]

Type qt
   
   Field x:Int, y:Int
   Field sz:Int, amp:Float
   
   Function Create:qt()
      height=New Float[513,513]
   
      height[0,0]=Rnd(0,1.0)
      height[512,0]=Rnd(0,1.0)
      height[0,512]=Rnd(0,1.0)
      height[512,512]=Rnd(0,1.0)
      
      Local d:qt=New qt
      d.sz=512
      d.amp=1.0
      d.Fill()
      d.Split()
      
      For Local i:Int=0 Until 15
         Smooth()
      Next
   End Function
   
   
   Method Fill()
      If height[x+sz/2, y]=0 Then height[x+sz/2, y]=0.5*(height[x,y]+height[x+sz,y])*(1.0-amp)+Rnd(-0.5,1.0)*amp
      If height[x+sz/2, y+sz]=0 Then height[x+sz/2, y+sz]=0.5*(height[x,y+sz]+height[x+sz,y+sz])*(1.0-amp)+Rnd(-0.5,1.0)*amp
      
      If height[x, y+sz/2]=0 Then height[x, y+sz/2]=0.5*(height[x,y]+height[x,y+sz])*(1.0-amp)+Rnd(-0.5,1.0)*amp
      If height[x+sz, y+sz/2]=0 Then height[x+sz, y+sz/2]=0.5*(height[x+sz,y]+height[x+sz,y+sz])*(1.0-amp)+Rnd(-0.5,1.0)*amp

      height[x+sz/2, y+sz/2]=0.25*(height[x,y]+height[x+sz,y+sz]+height[x+sz,y]+height[x,y+sz])*(1.0-amp*0.38)+Rnd(-0.5,1.0)*amp*0.38
   End Method
   
   
   Method Split()
      If sz<=1 Then Return
      For Local s:Int=0 To 1
         For Local t:Int=0 To 1
            Local d:qt=New qt
            d.sz=sz/2
            d.x=x+d.sz*s
            d.y=y+d.sz*t
            d.amp=amp*0.7
            d.Fill()
            d.Split()
         Next
      Next
   End Method
   
   
   Function Smooth()
      Local st:Float[513,513]
      For Local x:Int=1 Until 512
         For Local y:Int=1 Until 512
            st[x,y]=height[x,y]*0.5+0.125*(height[x+1,y]+height[x,y+1]+height[x-1,y]+height[x,y-1])
         Next
      Next
      height=st
   End Function
   
   
   
   
End Type














Graphics(800,600)
qt.Create()

Repeat

For Local x:Int=0 Until 512
   For Local y:Int=0 Until 512
      Color(height[x,y])
      Plot(x,y)
   Next
Next


If KeyHit(KEY_ENTER) Then qt.Create()
If KeyDown(KEY_SPACE) Then qt.Smooth()








Flip
Until KeyHit(KEY_ESCAPE) Or AppTerminate()
End




Function Color(h:Float)
   h=Max(0.0, Min(1.0, h*1.5))
   h=0.5*(1.0+Sin(-90+h*180.0))
   
   Local r:Float, g:Float, b:Float
   Select True
      Case h<0.2
         b=0.5+h
         g=0.05
         r=0.05
      Case h<0.25
         b=0.5+h
         g=0.3+h
         r=0.2
      Case h<0.3
         r=0.9
         g=0.9+0.2*h
      Case h<0.7
         g=0.5+h*0.2
         r=0.1
      Default
         r=h
         g=h
         b=h
   End Select
   
   SetColor(r*255, g*255, b*255)
End Function