mitosi

programmi scritti con turbo pascal v.5-7 e compilati come file.exe
non essendo accettati i file.exe in rete (per pericolo virus) attivo il file.exe
e riprendo con digitale:copio incollo alcune videate e creo videoclip che
registro e poi richiamo con youtube

fornisco listato pascal per eventuale copia-incolla se pascal installato sul PC
e anche per descrizione che facilita la comprensione del filmato

videoclip
http://www.youtube.com/watch?v=aVSY1Ycxis8

program MITOSI;       (* MITOSI *)
                      (* automatico *)
uses crt,graph;
var c2,c3,c4,c5,c6,c7,c15:integer;


procedure grafica;
var t,s:integer;
    stringa:string;
begin
t:=0;
s:=0;
stringa:=('c:\scheda\');
initgraph(s,t,stringa);
end;


procedure pausa1;
begin
setcolor(c4);
outtextxy(430,10,'premi INVIO');readln;
setcolor(0);
outtextxy(430,10,'premi INVIO');
setcolor(c15);
end;

procedure pausa;
begin
readln;cleardevice;
end;

procedure testo(x,y:integer;st:string);
begin
outtextxy(x,y,st);
end;


procedure at;
begin
delay(2000);
end;

procedure cp1(x,y:integer);
begin
setfillstyle(2,3);
bar(x,y,x+50,y+20);
end;

procedure cm1(x,y:integer);
begin
setfillstyle(1,2);
bar(x,y,x+50,y+20);
end;


procedure pro1;
begin
setcolor(c3);
rectangle(20,50,120,260);
setcolor(c7);rectangle(40,90,110,240);
setcolor(c2);
testo(50,300,'PROFASE:cromosomi si sdoppiano in cromatidi');
testo(75,70,'*');
cp1(50,100);cm1(50,200);at;
cp1(50,125);cm1(50,175);pausa1;
setcolor(c3);
rectangle(140,50,280,260);
testo(50,320,'METAFASE:scompare carioteca');
testo(50,330,'sdoppiamento e migrazione dei centrioli');
testo(50,340,'formazione fuso mitotico');
testo(50,350,'cromosomi si dispongono tra i due centrioli');
testo(210,70,'*');testo(210,230,'*');at;
cp1(150,140);
cm1(210,140);
cp1(150,165);
cm1(210,165);at;
line(210,70,170,160);line(210,70,250,160);
line(210,230,170,160);line(210,230,250,160);pausa1;
setcolor(c3);
rectangle(300,50,500,260);
setcolor(c2);testo(50,370,'ANAFASE');
testo(50,380,'cromatidi migrano verso centrioli opposti');
testo(400,70,'*');testo(400,240,'*');
line(400,70,350,160);line(400,70,450,160);
line(400,240,350,160);line(400,240,450,160);
cp1(340,90);cm1(410,90);cp1(340,200);cm1(410,200);
pausa1;
setcolor(c3);
testo(50,400,'TELOFASE+CITODIERESI');
testo(50,410,'scompare fuso mitotico');
testo(50,420,'ricompare carioteca e si forma membrana tra due cellule');
setcolor(c7);
rectangle(330,80,480,120);
setcolor(0);
line(400,70,350,160);line(400,70,450,160);
line(400,240,350,160);line(400,240,450,160);
setcolor(7);
rectangle(330,190,480,230);
setcolor(c3);line(300,160,500,160);
pausa1;
end;

procedure inizio;
begin
setcolor(c2);settextstyle(4,0,4);
testo(50,50,'M I T O S I');at;
setcolor(c3);settextstyle(3,0,1);
testo(20,100,'PROFASE:compaiono cromosomi suddivisi in cromatidi');at;
setcolor(c7);testo(20,130,'METAFASE');
testo(50,150,'sdoppiamento centrioli e migrazione a poli opposti');
testo(50,180,'scomparsa della carioteca');
testo(50,210,'formazione fuso mitotico');
testo(50,240,'cromosomi al centro della cellula');at;
setcolor(c2);testo(20,270,'ANAFASE');
testo(50,300,'separazione e migrazione cromatidi');at;
setcolor(c3);testo(20,330,'TELOFASE');
testo(50,350,'ricompare carioteca');
testo(50,380,'scompare fuso mitotico');
setcolor(c2);testo(20,410,'CITODIERESI');at;
testo(50,430,'compare membrana intercellulare');
pausa1;
end;

procedure scelta;
var sce,ris:integer;
begin
cleardevice;
settextstyle(0,0,1);
setcolor(c3);
pro1;
setcolor(c15);
testo(20,30,'per continuare premi 1..per finire 2 :scelta=');
gotoxy(60,2);readln(sce);
cleardevice;
if sce=1 then scelta;
end;


begin
clrscr;
c2:=2;c3:=3;c4:=4;c5:=5;c6:=6;c7:=7;c15:=15;
grafica;inizio;
scelta;closegraph;
end.

indice