i=i+3

i=i+1

Graphics 1024,768,0,2

SetBuffer BackBuffer()
Repeat

i=i+3

For x=1 To 1152 Step 65
   For y=1 To 864 step 30
      ;WritePixel (Sin(y+i)*20)+x,y,$FFFFFF
      Line (Sin(y+i)*20)+x,y,(Sin(y+i-13.3)*20)+x,y-13.3
   Next
Next

;FPS-----------------------------------
If (MilliSecs()-fpszeit)<200 Then     ;
fps=fps+1                             ;
Else                                  ;
fpsanzeige=fps*5                      ;
fpszeit=MilliSecs()                   ;
fps=0                                 ;
EndIf                                 ;
Text 0,0,"FPS: "+fpsanzeige           ;
;FPS-----------------------------------
Flip 0
Cls
Until KeyDown(1)
End

SuperStrict

Framework BRL.Max2D
Import BRL.GLMax2D
Import BRL.Random
Import BRL.System


SetGraphicsDriver(GLMax2DDriver())

Graphics 1024,768,32,75

Global i:Int,x:Int,tmp:Int,y:Int

Repeat
Cls

   i=i+1
   x=500
   tmp=0

   For y=1 To 864 Step 5
      DrawLine (Sin(y+i)*40)+x,y,(Cos(y+i-13.3)*40)+x,y-13.3
      tmp:+1
      SeedRnd tmp
      SetColor Rand(255),Rand(255),Rand(255)
   Next

   For x=1 To 1152 Step 65
      For y=1 To 864 Step 30
         DrawLine (Sin(y+i)*20)+x,y,(Sin(y+i-13.3)*20)+x,y-13.3
      Next
   Next
 
Flip
Until KeyDown(KEY_ESCAPE)


End

Graphics 640,480,0,2:SetBuffer BackBuffer():Color 28,180,28 :.l:For y#= 0 To 1200 Step 0.4:Cls:For x# = 0 To 37 Step 0.3:e# = (Sin(y*x)*120)+300:r#= ((Log(x)*(100+Sin(y))+120)):If x <> 0 :Line q#,w#,e,r :End If :Oval e-3,r-3,6,6,1:q=e:w=r:Next:If KeyHit(1):End:End If:Flip :Next:Goto l

Graphics 400,400,0,2
SetBuffer BackBuffer()

qq#=0
za#=0
x1#=0
y1#=0
x2#=0
y2#=0


While Not KeyHit(1)
 za=za+.5

 LockBuffer BackBuffer()

 For qq=0 To 10000
  x1=Sin(qq/3)/8
  y1=Cos(qq/2)/8
  x2=Sin(qq*x1+za)*(qq+x1)/60
  y2=Cos(qq*y1)*(qq+y1)/60
  WritePixelFast 200+x2,200+y2,14737632
 Next

 UnlockBuffer BackBuffer()

 Flip
 Cls
Wend
End

Graphics3D 1024,768,0,2

cam=createcamera()
positionentity cam,0,0,-50
Dim vertex(100,100)
wasser=createmesh()
EntityFX wasser,1+16+2
brush=createbrush(255,255,255)
surf=createsurface(wasser,brush)
Dim xxx(100)


For x=1 To 100
   SeedRnd MilliSecs()
   For y=1 To 100
      vertex(x,y)=AddVertex(surf,x*2,0,y*2)
      VertexColor surf,vertex(x,y),Rand(255),rand(255),255
   Next
next

For x=1 To 100
   For y=1 To 100
      AddTriangle(surf,vertex(x,y),vertex(x-1,y),vertex(x,y-1))
      AddTriangle(surf,vertex(x,y-1),vertex(x-1,y-1),vertex(x-1,y))
   Next
next


SetBuffer BackBuffer()
Repeat
   If (MilliSecs()-zeit)>50 Then
   zeit=millisecs()

i=i+5
   
   For x=1 To 100
      For y=1 To 100
         VertexCoords surf,vertex(x,y),VertexX(surf,vertex(x,y)),Sin(y*2+i)*30,VertexZ(surf,vertex(x,y))
      Next
   Next






   EndIf
   UpdateWorld()
   RenderWorld()
   ;FPS-----------------------------------
   If (MilliSecs()-fpszeit)<200 Then     ;
   fps=fps+1                             ;
   Else                                  ;
   fpsanzeige=fps*5                      ;
   fpszeit=MilliSecs()                   ;   
   fps=0                                 ;
   EndIf                                 ;
   Text 0,0,"FPS: "+fpsanzeige           ;
   ;FPS-----------------------------------
   Flip 0
Until KeyDown(1)
End