Pascal hodiny a grafická podoba – Pascal – Fórum – Programujte.com

Ahoj mám zadání semestrálního úkolu nakreslit hodiny a ručičky které se budou hýbat. Hodiny mám nakresleny i pohyb udělaný. Ale nevím si rady s pozadím a chci aby i hodiny vypadali nějak lépe a mám to udělat pomocí graph. Neví někdo jak na to ? co jsem našla mi moc nepomohlo. Díky 

program hodiny;

 uses crt, obr5, graph;     
 var i,gd,gm: integer;     
     c,R,P:integer;         
     Y,Z,d,e,f:integer;
     kruz1: kruznice;       
     kruz2:kruznice;
     bod1:bod;

 BEGIN
  F:=0;                          
  gd:=detect;                   
  InitGraph(gd,gm,' ');          
  Bod1.init(50,50);              
  Kruz1.init(500,250,150);      
  Kruz2.init(500,250,5);         
  setcolor(yellow);              
  D:=0; E:=150;                 

   repeat
    repeat
   
     bod1.zobraz;
     kruz1.zobraz;
     kruz2.zobraz;
   
     setcolor(yellow);
     Z:=round(180*sin(C*3.14/180));
     Y:=round(180*cos(C*3.14/180));
     R:=500+Z;
     P:=250-Y;
     line(500,250,R,P);
     delay (20);
     setcolor (black);
     line(500,250,R,P);
   
     setcolor(white);
     line(500,250,300+D,250-e);
     C:=C+6;
    until C>360;

    setcolor(black);
    line (500,250,300+D,250-e);
   
    F:=F+6;
   
    D:=round(150*sin(F*3.14/180));
    E:=round(150*cos(F*3.14/180));
    C:=0;
   until (F>360) or keypressed;
  closeGraph;
 END.

"Nějak lépe" nějak nechápu. Co přesně chceš udělat?

#2 z
Aby kruznice která předtavuje obvod hodin byla vybarvená a bylo tak pozadí jako dva čtverce které budou představovat jako zeť a koberec.

#3 veri
Jinak řečeno chci aby grafické prostředí nějak vypadalo a mělo nějakou podobu. ne jen ty kruhy.

#4 veri
Upřímně? Když vidím ten tvůj program, tak na to nemáš. Zapomeň.

Buď bys musela použít jiný programovací jazyk, nebo sehnat nějakou lepší grafickou knihovnu.

Obecně, pokud chceš mít pod ručičkama, které se pohybují nějaké pozadí, nemůžeš minulou pozici ručičky mazat překreslením jinou barvou. Buď budeš pracovat bitmapově: nejdřív si uložíš, co je pod budoucí pozicí ručičky, pak vykreslíš ručičku a až ji budeš chtít smazat, tak tam vrátíš to, co tam bylo. Pokud chceš pracovat vektorově, tak mazání minulé pozice ručičky znamená znovuvykreslit v tom místě všechny objekty, které byly ručičkou překryty. Prasácký způsob (v případě rychlých počítačů ale použitelný) je vykreslit pokaždé kompletně vše včetně pozadí znovu...

Takže vlastně jo, tu poslední variantu bys aji mohla zvládnout...

PS: trochu víc čti, máš drobné potíže s češtinou...

#4 veri
To umí procedury FillEllipse a Bar.

#1 veri
A podařilo se nějak udělat? Rád bych se koukl, ale není přidána knihovna, takže vlastně nespustím