XL H 0,0 XL V 0,0 OS /* desligar pontos */ POINT 1.5,0 DDPT /* escolher ponto */ POINT 0.75,0 RE OFFSET 2 /* selecionar a diretriz vertical */ /* arrastar o rato ate aparecer a outra barra no lado direito */ /* repetir ate ter 4 linhas verticais */ CI /* circle */ /* node */ 1.5,0 2 OS /* intersection */ POINT /* selecionar pontos de intersecao (2 pontos) do circulo com a diretriz x=2 */ CI /* selecionar segundo ponto */ 4 POINT /* selecionar pontos de intersecao (2 pontos) do circulo com a diretriz x=4 */ CI /* selecionar segundo ponto */ 6 POINT /* selecionar pontos de intersecao (2 pontos) do circulo com a diretriz x=6 */ E /* apagar circunferencias e diretrizes (x=2, x=4 e x=6) */ COLOR /* color 1 or red */ SPL /* spline */ /* selecionar pontos (3 pontos em cima, ponto (0.75,0), 3 pontos em baixo) */ L /* line */ /* selecionar pontos (ponto 0.75,0 e ponto de maior valor de Y) */ PERP /* perpendicular ao eixo Y */ CI /* centro no ponto da intersecao em cima */ 5 TRIM /* selecionar linhas (como extremidades) */ /* selecionar parte a eliminar da circunferencia*/ COLOR 3 OS /* midpoint */ XL /* arrastar ate mid point arco */ /* unir ao vertice (ponto de maior Y) */ MI /* mirror */ /* selecionar linha verde */ /* selecionar ponto linha verde que interseta o eixo X */ /* selecionar ponto onde parabola encontra x */ E /* apagar linhas auxiliares */ SPL M CV D 2 /* selecionar ponto em cima */ /* ponto no x */ /* ponto em baixo */ VP /* x to 315 and y to 35 */ 3DO /* mover para vista preferida */ /* lado direito do rato */ EXIT COPY L /* selecionar ponto intersecao */ F8 /* ponto qualquer */ TRIM /* selecionar eixo */ E /* apagar lado que querermos da parabola */ COPY L /* selecionar intersecao */ F8 NEA /* selecionar ponto */ TRIM /* selecionar tangente */ /* eliminar extremidades */ SURFTAB1 20 SURFTAB2 20 REVSURF /* selecionar linhas */