Sutherland-Hodgman polygon clipping: Difference between revisions
Content added Content deleted
No edit summary |
mNo edit summary |
||
Line 1,485: | Line 1,485: | ||
300.00000000000000 300.00000000000000 |
300.00000000000000 300.00000000000000 |
||
=={{header| |
=={{header|FreeBASIC}}== |
||
FreeBASIC has inbuilt gfx graphics (a main feature), but I have no access to graphics uploads. |
|||
So no extra credits. |
So no extra credits. |
||
<lang freebasic> |
<lang freebasic> |
||
Type Point |
Type Point |
||
As Double x,y |
As Double x,y |
||
Line 1,519: | Line 1,518: | ||
Return 1 |
Return 1 |
||
End Function |
End Function |
||
Dim As Point p1(...)={(50,150),(200,50),(350,150),(350,300),(250,300),(200,250), _ |
Dim As Point p1(...)={(50,150),(200,50),(350,150),(350,300),(250,300),(200,250), _ |