x = MapX
y = MapY
PointInWhichSector ( sec, x, y )

GetSectorProperty ( fh, sec, FloorHeight )
GetSectorProperty ( ch, sec, CeilingHeight )

LineDefFlags = 0
LineDefFrontMainTexture = "-"
LineDefFrontBelowTexture = "STEP4"
LineDefFrontAboveTexture = "STEP4"

astep = 15
mindist = 64
maxdist = 256       
step = 32

fh = fh + 128
fd = 4 
        
SectorDuplicate ( sec )
SetSectorProperty ( nSectors, FloorHeight, fh )
LineDefFrontSector = nSectors
RotatePoint ( xa, ya, x, y, mindist, 0 )
for angl, astep, 360, astep
       xb = xa
       yb = ya                          
       RotatePoint ( xa, ya, x, y, mindist, angl )
       NewLineDef xb, yb, xa, ya
next

for dist, mindist, maxdist, step

       RotatePoint ( xa, ya, x, y, dist, 0 )
       RotatePoint ( xb, yb, x, y, dist + step, 0 )
       
       for angl, astep, 360, astep
       	SectorDuplicate ( sec )                          
       	SetSectorProperty ( nSectors, FloorHeight, fh )
       	
       	LineDefFrontSector = nSectors
       
       	xc = xa
       	yc = ya
       	xd = xb
       	yd = yb
       	RotatePoint ( xa, ya, x, y, dist, angl )
       	RotatePoint ( xb, yb, x, y, dist + step, angl )
       	
              LineDefFlags = LF_TWOSIDED
              LineDefBackSector = sec
       	LineDefType = 0-75
       	LineDefArg1 = 1
       	NewLineDef xd, yd, xb, yb
       	                          
              LineDefFlags = 0
              LineDefType = 0
       	LineDefArg1 = 0
       	NewLineDef xb, yb, xa, ya
       	NewLineDef xa, ya, xc, yc
       	NewLineDef xc, yc, xd, yd
       	
       next
       
       fh = fh - fd
       fd = fd + 4
       
next
