kommu=0
*Do,winkel,1,960,1

*Do,iz2,1,z2
r,r1p%iz2%,1e6
r,r2p%iz2%,1e6
*EndDo

umdr=mod(winkel+kommu,360)
wi=(360-umdr)/(360/z2)

lamp=nint(wi+lbue/2)-1
*If,lamp,lt,1,then
lamp=lamp+z2
*EndIf
*If,lamp,gt,z2,then
lamp=lamp-z2
*EndIf
!!!*If,wi,lt,lbue/2,then
!!!lamm=nint(wi+360/z2-lbue/2)-1
!!!*Else
lamm=nint(wi-lbue/2)-1
!!!*EndIf
*If,lamm,lt,1,then
lamm=lamm+z2
*EndIf
*If,lamm,gt,z2,then
lamm=lamm-z2
*EndIf

/output,lam,lis,,append
 *VWrite,winkel,umdr,wi,lamp,lamm
 (5(g16.6,' '))
/output,term

slamm=lamm
slamp=lamp
*If,lamm,gt,lamp,then
slamm=lamp
slamp=lamm
*EndIf
lamm=slamm
lamp=slamp

*stat,lamm
*stat,lamp

*Do,lamel,lamm,lamp,1

*Do,ip,1,p
lamelp=lamel+(ip-1)*z2/2
*If,lamelp,gt,z2,then
lamelp=lamelp-z2
*EndIf
*If,lamelp,gt,z2,then
lamelp=lamelp-z2
*EndIf
*If,lamelp,lt,1,then
lamelp=lamelp+z2
*EndIf
*If,lamelp,lt,1,then
lamelp=lamelp+z2
*EndIf

lamelm=lamelp+z2/(2*p)
*If,lamelm,gt,z2,then
lamelm=lamelm-z2
*EndIf
*If,lamelm,gt,z2,then
lamelm=lamelm-z2
*EndIf
*If,lamelm,lt,1,then
lamelm=lamelm+z2
*EndIf
*If,lamelm,lt,1,then
lamelm=lamelm+z2
*EndIf
*stat,lampelp
*stat,lampelm

r,r1p%lamelp%,1e-6
r,r2p%lamelm%,1e-6
*EndDo

*EndDo


*EndDo