/* Now overlay white ellipses to create the bursting effect */
/*radio 1.5 ; ancho del rectangulo 2 ; largo 5; */
rad=1;ancho=3.8;largo=9
/*check number of sides 100 (by the time for made it), not small that 3 sides*/
if numlados<3 then numlados=3
if numlados>100 then do
numlados=3
RC=RxMessageBox("If you indicate more that 100 sizes, the aplication change to 3, by the time for made it. You can change the rexx scrit. " ,"TO MANY SIDES","OK")
end
do n=0 to numlados-1
angulop=360*n/numlados
/*pasarlo a radianes*/
angulop=angulop*2*Pi/360
angulo=(360/numlados)
if n=0 then
do
inclinacion=180
end
else
do
inclinacion=inclinacion-angulo
/*if inclinacion>180 then inclinacion=inclinacion-180
if inclinacion<180 then inclinacion=inclinacion+180*/
end
x1c=(rad+ancho/2)*seno(angulop)+4
y1c=(rad+ancho/2)*coseno(angulop)+4
/*RC=RxMessageBox("VALORES DEL RECTANGULO x , y, angulop inclinacion " x1c y1c angulop inclinacion ,"Merge?","OK")*/