tipo_de_macro=R2
id='ancho' expresin='200' evaluar='una-sola-vez' constante='si'
id='alto' expresin='50' evaluar='una-sola-vez' constante='si'
id='m' expresin='0.5' evaluar='una-sola-vez' constante='si'
id='Mv' expresin='0.7' evaluar='una-sola-vez' constante='si'
id='Mh' expresin='0.9' evaluar='una-sola-vez' constante='si'
id='Rojo' expresin='0.2' evaluar='una-sola-vez' constante='si'
id='Verde' expresin='1' evaluar='una-sola-vez' constante='si'
id='Azul' expresin='0.4' evaluar='una-sola-vez' constante='si'
id='c' expresin='1' evaluar='una-sola-vez' constante='si'
id='faux(t)' expresin='(alto/2)-sqrt(abs(alto*t/c-(t/c)^2))'
hacer='t=ancho/2-s;t=(s<0)?t-0.5:t;t=(s>0)?t+0.5:t;r=((t<=c*alto/2))?faux(t):0;r=(t>=ancho-c*alto/2)?faux(ancho-t):r;' id='aux(s)' expresin='r' algoritmo='si'
hacer='alto=max(alto,0);ancho=max(ancho,0)' id='CALCULOS' evaluar='siempre' algoritmo='si'
id='T(M,x,L)' expresin='m+(1-m)*M*2*sqrt((L/2)^2-x^2)/L'
tipo='segmento' color='(Rojo*T(Mv,s,alto),Verde*T(Mv,s,alto),Azul*T(Mv,s,alto),0.0)' expresin='(c*(alto/2-sqrt((alto/2)^2-s^2)),alto/2+s)(ancho-c*(alto/2-sqrt((alto/2)^2-s^2)),alto/2+s)' familia='s' s.intervalo='[-alto/2,alto/2]' s.pasos='alto' tamao='0' coord_abs='si' 
tipo='segmento' color='(m*Rojo,m*Verde,m*Azul,T(Mh,s,ancho))' expresin='(ancho/2+s,aux(s))(ancho/2+s,alto-aux(s))' familia='s' s.intervalo='[-ancho/2,ancho/2]' s.pasos='ancho' tamao='0' coord_abs='si' 
