This is done with the following code lines...
Code: Select all
;***Google Maps***
;GoogleMapsAvailable=0
If GoogleMapsAvailable
If Start3D()
TransformSprite3D(#GoogleMapSprite,Polygon(0),Polygon(1),Polygon(6),Polygon(7),Polygon(4),Polygon(5),Polygon(2),Polygon(3))
DisplaySprite3D(#GoogleMapSprite,0,0,255)
Stop3D()
EndIf
EndIf
windc=StartDrawing(ScreenOutput())
;***Google Maps***
Box(Polygon(0),Polygon(1),6,6,#Yellow)
Box(Polygon(2),Polygon(3),6,6,#Green)
Box(Polygon(4),Polygon(5),6,6,#Red)
Box(Polygon(6),Polygon(7),6,6,#Blue)
:
:
If GoogleMapsAvailable=0
SelectObject_(windc,winbrush)
Polygon_(windc,@Polygon(),4)
EndIf