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

ch = ch + 128
cd = 4 
        
SectorDuplicate ( sec )
SetSectorProperty ( nSectors, CeilingHeight, ch )
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 xa, ya, xb, yb
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, CeilingHeight, ch )
       	
	       	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 = 181
		LineDefArg2 = 1
		NewLineDef xb, yb, xd, yd
		                  
		LineDefFlags = 0
		LineDefType = 0
		LineDefArg1 = 0
		NewLineDef xa, ya, xb, yb
		NewLineDef xc, yc, xa, ya
		NewLineDef xd, yd, xc, yc
       	
	next
       
	ch = ch - cd
	cd = cd + 4
       
next
