PointInWhichSector ( sec, MapX, MapY )

light = 240
lightstep = 0-8
dist = 128      
dista = 4
distb = 16

ya = MapY - dist
yb = MapY + dist
xaa = MapX
xab = MapX
xba = MapX
xbb = MapX
ofs1 = 0
ofs2 = 0

For i, 1, 14

       SectorDuplicate ( sec )
       SetSectorProperty ( nSectors, Light, light )
       light = light + lightstep
       
       LineDefFrontSector = nSectors
       
       xac = xaa
       xad = xab
       xaa = xaa + dista
       xab = xab + distb
       
       LineDefFrontXOffset = 0
       NewLineDef xaa, yb, xab, ya
       LineDefFrontXOffset = ( 128 - distb - ofs1 ) \ 128
       NewLineDef xab, ya, xad, ya
       LineDefFrontXOffset = 0
       NewLineDef xad, ya, xac, yb
       LineDefFrontXOffset = ofs2
       NewLineDef xac, yb, xaa, yb
       
       xbc = xba
       xbd = xbb
       xba = xba - dista
       xbb = xbb - distb      
       LineDefFrontXOffset = 0
       NewLineDef xbb, ya, xba, yb               
       LineDefFrontXOffset = ofs1
       NewLineDef xbd, ya, xbb, ya
       LineDefFrontXOffset = 0
       NewLineDef xbc, yb, xbd, ya
       LineDefFrontXOffset = ( 128 - dista - ofs2 ) \ 128
       NewLineDef xba, yb, xbc, yb
       
       ofs1 = ( ofs1 + distb ) \ 128
       ofs2 = ( ofs2 + dista ) \ 128
Next
