Graphics 800,600,0,2
SetBuffer BackBuffer()

Function FillScreen1()
	LockBuffer BackBuffer()
	
	For x=0 To GraphicsWidth()-1
		For y=0 To GraphicsHeight()-1
			WritePixelFast x,y,$ffffff
		Next
	Next
	
	UnlockBuffer BackBuffer()
End Function

Function FillScreen2()
	LockBuffer BackBuffer()
	
	width=GraphicsWidth()-1
	For y=0 To GraphicsHeight()-1
		Line 0,y,width,y
	Next
	
	UnlockBuffer BackBuffer()
End Function

While Not KeyHit(1)
	If MouseHit(1)
		mode=Not mode
	EndIf
	
	If mode
		FillScreen1()
	Else
		FillScreen2()
	EndIf
	
	Color 255,0,0
	fps=fps+1
	If MilliSecs()-fpstime>999
		fpscur=fps
		fps=0
		fpstime=MilliSecs()
	EndIf
	Text 10,10,fpscur
	If mode
		Text 10,30,"WPF"
	Else
		Text 10,30,"Line"
	EndIf
	Color 255,255,255
	
	Flip 0
	Cls
Wend
End

Type Vector
	Field X#
	Field Y#
	
	Field used
End Type

Type Polygon
	Field P.Vector[64]
	Field count
End Type

Function cVector.Vector(x#, y#)
	Local V.Vector
	
	V=New Vector
	V\X=x
	V\Y=y
	
	Return V
End Function

Function ClipPoly(P.Polygon)
	Local Width, Vnew.Vector, PX#, PY#, DX#, DY#, k#, PnewY
	
	Width=GraphicsWidth()
	
	j=P\count-1
	For i=0 To P\count-1
		If Not (P\P[i]\X<0 And P\P[j]\X<0)
			PX=P\P[i]\X
			PY=P\P[i]\Y
			
			DX=P\P[j]\X-P\P[i]\X
			DY=P\P[j]\Y-P\P[i]\Y
			
			k=-PX/DX
			If k>0 And k<1
				PnewY=PY+k*DY
				
				Vnew=cVector(1,PnewY)
				
				InsertPointToPoly(P, Vnew, j+1)
				
				If i<>0
					i=i+1
				EndIf
			EndIf
			
			k=(Width-PX)/DX
			If k>0 And k<1
				PnewX=PX+k*DX
				PnewY=PY+k*DY
				
				Vnew=cVector(Width-1,PnewY)
				
				InsertPointToPoly(P, Vnew, j+1)
				
				If i<>0
					i=i+1
				EndIf
			EndIf
		EndIf
		
		j=i
	Next
	
	For i=0 To P\count-1
		If P\P[i]\X<0 Or P\P[i]\X>Width
			RemovePointFromPoly(P, i)
			i=i-1
		EndIf
	Next
End Function

Function InsertPointToPoly(P.Polygon, V.Vector, i)
	If P\count=64
		Return ;error!
	EndIf
	
	For j=P\count-1 To i Step -1
		P\P[j+1]=P\P[j]
	Next
	P\P[i]=V
	
	P\count=P\count+1
End Function

Function RemovePointFromPoly(P.Polygon, i)
	If P\count=0
		Return ;error!
	EndIf
	
	For j=i+1 To P\count-1
		P\P[j-1]=P\P[j]
	Next
	P\P[P\count-1]=Null
	
	P\count=P\count-1
End Function

Type LList
	Field X
	
	Field Succ.LList
End Type

Function FillPoly(P.Polygon, RGB)
	Local MinX#, MinY#, MaxX#, MaxY#, SX#, SY#, DX#, PX#, PY#, VX#, VY#, k#, CX#, Fill
	Local LStart.LList, LIter.LList, Tmp.LList
	
	r=(RGB And $FF0000)/$10000
	g=(RGB And $FF00)/$100
	b=RGB And $FF
	Color r,g,b
	
	MinX=GraphicsWidth()
	MinY=GraphicsHeight()
	MaxX=0
	MaxY=0
	
	For i=0 To P\count-1
		If P\P[i]\X<MinX
			MinX=P\P[i]\X
		EndIf
		If P\P[i]\X>MaxX
			MaxX=P\P[i]\X
		EndIf
		
		If P\P[i]\Y<MinY
			MinY=P\P[i]\Y
		EndIf
		If P\P[i]\Y>MaxY
			MaxY=P\P[i]\Y
		EndIf
	Next
	
	MaxX=Min(GraphicsWidth(),MaxX)
	MaxY=Min(GraphicsHeight(),MaxY)
	
	MinX=Max(0,MinX)
	MinY=Max(0,MinY)
	
	For SY=MinY+1 To MaxY
		Delete Each LList
		Fill=0
		
		SX=MinX
		
		DX=MaxX-MinX
		
		j=P\count-1
		For i=0 To P\count-1
			PX=P\P[i]\X
			PY=P\P[i]\Y+0.1
			
			VX=P\P[j]\X-P\P[i]\X
			VY=P\P[j]\Y-P\P[i]\Y
			
			If VY<>0
				k=(SY-PY)/VY
				If k>=0 And k<=1
					CX=PX+k*VX
					
					k=(CX-SX)/DX
					If k>=0 And k<=1
						CX=Int(CX)
						
						If LStart=Null
							LStart=New LList
							LStart\X=CX
						Else
							If CX<LStart\X
								Tmp=LStart
								
								LStart=New LList
								LStart\X=CX
								LStart\Succ=Tmp
							Else
								LIter=LStart
								While LIter<>Null
									If Int(CX)=LIter\X
										Tmp=LIter\Succ
										
										LIter\Succ=New LList
										LIter\Succ\X=CX
										LIter\Succ\Succ=Tmp
										
										Exit
									Else
										If CX>LIter\X
											If LIter\Succ<>Null
												If CX<LIter\Succ\X
													Tmp=LIter\Succ
													
													LIter\Succ=New LList
													LIter\Succ\X=CX
													LIter\Succ\Succ=Tmp
													
													Exit
												EndIf
											Else
												LIter\Succ=New LList
												LIter\Succ\X=CX
												
												Exit
											EndIf
										EndIf
									EndIf
									
									LIter=LIter\Succ
								Wend
							EndIf
						EndIf
					EndIf
				EndIf
			EndIf
			
			j=i
		Next
		
		LIter=LStart
		If LIter<>Null
			While LIter\Succ<>Null
				Line LIter\X,SY,LIter\Succ\X,SY
				LIter=LIter\Succ\Succ
				
				If LIter=Null
					Exit
				EndIf
			Wend
		EndIf
		
		;LIter=LStart
		;If LIter<>Null
		;	For SX=Int(LIter\X) To MaxX
		;		If LIter\Succ<>Null
		;			If SX>LIter\X
		;				Fill=1-Fill
		;				
		;				LIter=LIter\Succ
		;				
		;				If LIter<>Null
		;					If Not Fill
		;						SX=LIter\X-1
		;					EndIf
		;				Else
		;					Exit
		;				EndIf
		;			EndIf
		;		Else
		;			If SX>LIter\X
		;				Exit
		;			EndIf
		;		EndIf
		;		
		;		If Fill
		;			WritePixelFast SX,SY,RGB
		;		EndIf
		;	Next
		;EndIf
	Next
	
	Delete Each LList
End Function

Function DrawPolys()
	Local P.Polygon, Tmp.Polygon
	
	LockBuffer BackBuffer()
	
	Color 255,0,0
	For P.Polygon=Each Polygon
		Tmp.Polygon=New Polygon
		For i=0 To P\count-1
			Tmp\P[i]=cVector(P\P[i]\X,P\P[i]\Y)
		Next
		Tmp\count=P\count
		
		ClipPoly(Tmp)
		FillPoly(Tmp, $ffffff)
		DrawOutLine(Tmp, 255, 0, 0)
		
		Delete Tmp
	Next
	
	UnlockBuffer BackBuffer()
End Function

Function DrawOutLine(P.Polygon, R, G, B)
	Color R,G,B
	
	j=P\count-1
	For i=0 To P\count-1
		Line P\P[i]\X,P\P[i]\Y,P\P[j]\X,P\P[j]\Y
		
		j=i
	Next
End Function

Function Max#(A#,B#)
	If A>B
		Return A
	Else
		Return B
	EndIf
End Function

Function Min#(A#,B#)
	If A<B
		Return A
	Else
		Return B
	EndIf
End Function

Graphics 800,600,0,2
SetBuffer BackBuffer()

Local Test.Polygon, DX, DY

Test.Polygon=New Polygon
Test\P[0]=cVector(300,200)
Test\P[1]=cVector(400,250)
Test\P[2]=cVector(520,160)
Test\P[3]=cVector(375,350)
Test\P[4]=cVector(200,450)
Test\P[5]=cVector(350,325)
Test\count=6

For i=0 To 5
	Test\P[i]\X=Test\P[i]\X
Next

While Not KeyHit(1)
	DrawPolys()
	
	Text 100,10,Test\P[0]\X
	
	Color 0,255,0
	;Line 0,250,800,250
	Color 255,255,255
	
	DX=KeyDown(205)-KeyDown(203)
	DY=KeyDown(208)-KeyDown(200)
	For i=0 To Test\count-1
		Test\P[i]\X=Test\P[i]\X+DX
		Test\P[i]\Y=Test\P[i]\Y+DY
	Next
	
	fps=fps+1
	If MilliSecs()-fpstime>999
		fpscur=fps
		fps=0
		fpstime=MilliSecs()
	EndIf
	Text 10,10,fpscur
	
	Flip 0
	Cls
Wend
End