Pascal - Pacal-graph - Piero Tofy.it

Forum - Pascal - Pacal-graph

dario cavarrett (Normal User)
Newbie

Messaggi: 10
Iscritto: 05/02/2017

Postato alle 16:32
Domenica, 05/02/2017

Salve a tutti, volevo sapere se esiste un comando ( o una funzione ) per poter ruotare una figura in pascal (unit graph) evitando così d doverlo fare manualmente ogni volta ( mi servirebbe per un giochetto che sto programmando). Grazie a chi risponderà

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 20:18
Domenica, 05/02/2017

Ciao!

Per risolvere il problema esistono molte soluzioni valide. Ad esempio ridisegna la figura con lo stesso colore dello schermo.

dario cavarrett (Normal User)
Newbie

Messaggi: 10
Iscritto: 05/02/2017

Postato alle 12:38
Lunedì, 06/02/2017

Ci avevo pensato anch' io ma volevo infatti chiedere se esistessero modi piu semplici e meno dispendiosi per fare ciò

Poggi Marco (Member)
Guru

Messaggi: 969
Iscritto: 05/01/2010

Postato alle 14:15
Lunedì, 06/02/2017

Esistono metodi alternativi, ad esempio memorizzare un'area dello schermo, e ridisegnarla altrove.
Esempio:

Codice sorgente - presumibilmente Delphi

program copia_figura;
 
{Sample code for the GetImage procedure.}
  uses Graph;
 var
   Gd, Gm: Integer;
   P: Pointer; {Puntatore in cui memorizzare la figura}
   Size: Word;
 begin
   Gd := Detect;
   InitGraph(Gd, Gm, '');
   if GraphResult <> grOk then
     Halt(1);
   Bar(0, 0, GetMaxX, GetMaxY);
   circle(20, 30, 5);
   Size := ImageSize(10, 20, 30, 40); {Calcolo di quanta memoria serve per memorizzare l' immagine }
   GetMem(P, Size);   {Alloca un blocco di memoria nel puntatore }
   GetImage(10, 20, 30, 40, P^); {copia della figura}
   Readln;
   ClearDevice; {Cancella lo schermo}
   PutImage(100, 100, P^, NormalPut); { Riproduco l'immagine }
   Readln;
   CloseGraph;
 end.

dario cavarrett (Normal User)
Newbie

Messaggi: 10
Iscritto: 05/02/2017

Postato alle 15:50
Lunedì, 06/02/2017

Grazie!