[Axe] Angle-based laser routine

:Lbl Laser
:r1*128→r1
:r2*128→r2
:.IDK why +64 but it works
:-2
:For(2)
:+1→r6*cos(r3+64)+64+r1?{(r6+1??,1)*4+L4}r
:r6*sin(r3+64)+64+r2?{(r6+1??,1)*4+2+L4}r
:1
:End
:sin(r3)→r4
:cos(r3)→r3
:
:For(r5,0,1)
:{r5*4+L4}r→r1
:{r5*4+2+L4}r→r2
:0→r6
:While 1
:r1+r3Asm(E5)>12160??r6Asm(E1)r1,Asm(E1)
:→r1
:r2+r4Asm(E5)>8064??r6Asm(E1)r2,Asm(E1)
:→r2
:EndIf r6
:r2/128*256+(r1/128)→{r5*2+8+L4}r
:End
:{L4+2}r/128*256+({L4}r/128)→{L4}r
:{L4+6}r/128*256+({L4+4}r/128)→{L4+2}r
:. You will need my axiom AxeJh3D
:. See http://www.omnimaga.org/index.php?topic=15855.0
:Triangle({L4}r,{L4+2}r,{L4+10}r,0)
:Triangle({L4}r,{L4+8}r,{L4+10}r,0)
:Return