EllipseHitMap

Collision = EllipseHitMap(ThisMap, TheLevel, EllipseX, EllipseY, RadiusX, RadiusY)

Parameters:     ThisMap = The Index of the map you query for a collision     TheLevel = The level within the map to query     EllipseX = The X coordinate of the ellipse relative to the level     EllipseY = The Y coordinate of the ellipse relative to the level     RadiusX = The X RadiusX of the ellipse     RadiusY = The Y Radius of the ellipse

Returns:     Collision = The collision state. It'll return True (1) with the ellipse hit something and false (0) if it didn't

The EllipseHitMap() function checks if a ellipse region collides (overlaps) a map level. The collision in this command is based on the regions and not the pixels. Each block in the level has a rectangualer region that it covers. So this command compares it's area with the regions of the level it overlays. If any overlap, it'll return a true(1) for an impact, it not it'll return a false (0) FACTS:       * EllipseHitMap(compares the the region with the map not at pixel level, but at the rectangular level. Use EllipseHitMapPixels for a pixel to pixel level impact.

Example Source: Download This Example ;     ------------------------------------------------- ;           --------->> SET UP <<------------ ;     -------------------------------------------------         SetFPS 100       ; Radius of test ellipse   RadiusX=50   RadiusY=100       ; create the random map from some circles   Map,Level=Build_Random_Map(32,32)       ; make a backdrop picture   BackDrop=NewImage(800,600)   RenderToImage Backdrop   c1=RndRGB()   c2=RndRGB()   ShadeBox 0,0,800,600,c1,c1,c2,c2   RenderToScreen       ; create a camera to view the scene with   Cam=NewCamera()   CameraCls Cam,off             ;     ------------------------------------------------- ;      --------->> MAIN LOOP OF PROGRAM <<------------ ;     -------------------------------------------------         Do          ; Get the camera current position      CamX=GetCameraX(cam)      CamY=GetCameraY(cam)          ; Get the mouse position      MX=MouseX()+CamX      MY=MouseY()+CamY          ; Check if the Left Mouse is pressed ?      If LeftMouseButton()         RadiusX=Mod(RadiusX+1,400)      EndIf          ; Check if the RIGHT Mouse is pressed ?      If RightMouseButton()         RadiusY=Mod(RadiusY+1,400)      EndIf                        Method$="EllipseHitMap"      If Method=0       ; Test if the Ellipse Hits the Map blocks         Collision=EllipseHitMap(Map,Level,MX,MY,RAdiusX,RadiusY)      Else       ; Test if the Ellipse Hits the Map at pixel level         Collision=EllipseHitMapPixels(Map,Level,MX,MY,RAdiusX,RAdiusY)         Method$+="Pixels"      EndIf                  If Collision         Colour=$ff0000         Message$="Hit"      Else         Colour=$0000ff         Message$="Missed"      EndIf                ; tell PB to capture the following drawing commands      CaptureToScene          ; clear the scene buffer so it's empty      ClsScene          ; set the capture depth of the next item to a depth of    ; 100 units      CaptureDepth 100      DrawImage BackDrop,CamX,CamY,false                ; draw the map level      CaptureDepth 10      DrawMap map,Level,0,0                ; draw the Ellipse at this depth      CaptureDepth 20      EllipseC MX,MY,RadiusX,RadiusY,true,colour                ; draw the scene with this camera      DrawCamera cam                ; Check if the Space key was pressed      If SpaceKey()       ; if so, change the collision method         Method=1-Method         FlushKeys      EndIf          ; check if the ENTER key was pressed      If EnterKey()       ; If so, toggle Debug mode on the map         MapDebug Map,1-GetMapDebug(Map)         FlushKeys      EndIf                            ; check if the users wanted to move the camera      If LeftKey()  Then     MoveCamera Cam,-2,0      If RightKey() Then     MoveCamera Cam,2,0      If UpKey()    Then     MoveCamera Cam,0,-2      If DownKey()  Then     MoveCamera Cam,0,2            SetCursor 0,0      Ink $ffffff      Print "Press Space To Change Methods"      Print "Mouse Buttons To Change Size"      Print "Method:"+Method$      Print  Message$      Sync   Loop          ;     ------------------------------------------------- ;      --------->> Build Random Map Scene <<--------- ;     -------------------------------------------------       Function Build_Random_Map(BlockWidth,BlockHeight)      BackdropColour=$008f00      screen=NewFXImage(2400,1600)   RenderToImage screen   Cls  BackdropColour   CircleC 800,400,400,true,$8f8f8f   CircleC 1700,400,400,true,$0f8faf      For lp=0 To 200      x=Rnd(2400)      y=Rnd(1600)      rx=RndRange(50,150)      ry=RndRange(10,50)      EllipseC x,y,rx,ry,true, BackdropColour   Next            Map=NewMap(50)    ; Create 1024 FX BLocks for this map   CreateMapGFX  Map,BlockWidth,BlockHeight,1024,_   BackdropColour,2      BlocksX=GetSurfaceWidth()/BlockWidth   BlocksY=GetSurfaceHeight()/BlockWidth      Level=NewLevel(Map,BlocksX,BlocksY)   LevelTransparent Map,Level,0   GetMapBlk Map,Tile,0,0      Tile=1   For ylp=0 To GetLevelHeight(map,level)-1      Ypos=ylp*BlockHeight      If Ypos+BlockHeight<=GetSurfaceHeight()         For xlp=0 To GetLevelWidth(map,level)-1            Xpos=xlp*BlockWidth            GetMapBlk Map,Tile,Xpos,ypos                        If GetMapBlockTransparent(Map,Tile)>-1               PokeLevelTile Map,Level,xlp,ylp,tile               tile++            EndIf            If Tile=>GetMapBlocks(Map)               ExitFor ylp            EndIf         Next      EndIf   Next      RenderToScreen    ; Turn Debug Map for this map   MapDebug Map,on    EndFunction Map,Level

Related Info:	CircleHitMap | CircleHitMapPixels | EllipseHitMapPixels | GetMapBlockTransparent | PointHitMapPixels | RayHitMapPixels :

(c) Copyright 2002 - 2024 - Kevin Picone - PlayBASIC.com