|
program Main; uses crt,Funzione_evolvente,grafica,modello; var tavola:punto; procedure CreaPunto(var t:punto; l:double); begin t:=punto.isoInizio(-l, -l*0.5893, l); end; procedure ciclo(tela:punto; r0:double); var evo:evolvente; alfa,omega,passo:double; tratto:finestra; begin evo:=evolvente.crea(r0); alfa:=0.0 * (PI / 180.0); omega:=360.0 * 1.0 * (PI / 180.0); passo:=(omega - alfa) / 2500.0; tela.tinta:=verde; tela.assi(7); tratto.inizio:=evo.calcola(alfa); while alfa <= omega do begin alfa:=alfa + passo; tratto.fine:=evo.calcola(alfa); tela.linea(tratto); tratto.inizio:=tratto.fine; end; tela.tinta:=rosso; tela.cerchio(0.0, 0.0, evo.alfa); evo.free; end; begin clrScr; writeln('Evolvente'); if inizio_graf then begin creaPunto(tavola, 15.0); ciclo(tavola, 1.0); tavola.free; fine_graf(True); end; end.
|
|
