Pascal - Pacal-graph

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à

Ciao!

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

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

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

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.

Grazie!