Ako spraviť screenshot pascalovského grafického výstupu?

p360t · Napísal **p360t**: 17.05.2007 21:07

Ahojte,

mám taký netradičný problém - potrebujem screenshot obrazovky z pascalu - presnejšie screenshot grafického výstupu (knižnica Graph). Niečo som našiel, ale nejako to nefunguje.

Ten výstup je vlastne riešením zadania jedného maturitného dôkazu, s ktorým si trošku nevieme rady, tak som to skúsil cez Pascal - niečo z toho vyšlo, ale treba to ešte dať do nejakého normálnejšieho formátu.

Zadanie znie:
Vyšetrite množinu všetkých bodov X v rovine, pre ktoré platí |AX| : |BX| = 3. A a B sú ľubovoľné zadané rôzne body.

Ten útvar neviem pomenovať, len opísať - predstavte si vajce uvarené natvrdo a pozdĺžne rozrezané - tou množinou je len to vaječné bielko

A keby niekto chcel, môže si to vyskúšať (a skontrolovať ma, či to je OK):

Kód:

{najdite vsetky body X pre ktore |AX| : |BX| = 3}
Program Mnozina;
Uses Crt, Graph;
Const A1 = 1*3;
      A2 = 240;
      B1 = 141*3;
      B2 = 240;
      Opakovanie = 2000;
      Koef = 3;
Var   X1, X2, i, j, citatel, menovatel :longint;
Procedure Inicializacia;
Var Gd, Gm :Integer;
Begin
  Gd:= 0;
  Gm:= 0;
  InitGraph(Gd, Gm, 'C:\TP7\BGI\');
  ClearDevice;
  SetColor(White);
  If GraphResult <> 0 Then Halt;
  {body}
  SetColor(4);
  Circle(A1, A2, 3);
  SetFillStyle(1, 4);
  FloodFill(A1, A2, 4);
  SetColor(3);
  Circle(B1, B2, 3);
  SetFillStyle(1, 3);
  FloodFill(B1, B2, 3);
End;

Begin
  Inicializacia;
  For i:= 1 To Opakovanie Do
  Begin
    For j:= 1 To Opakovanie Do
    Begin

      X1 := i*Koef;
      X2 := j*Koef;
      {vzorec pre vzdialenost 2 bodov: citatel je |AX|, menovatel |BX|}
      citatel := Trunc(Sqrt(Sqr(X1-A1)+Sqr(X2-A2)));
      menovatel := Trunc(Sqrt(Sqr(X1-B1)+Sqr(X2-B2)));
      
      If menovatel <> 0 Then
      If Trunc(citatel/menovatel) = 3 Then
      Begin
        PutPixel(X1, X2, 14);
      End;

    End;
  End;
  ReadKey;
End.

EDIT: trochu som upravil ten kód a výsledkom je zrazu kružnica

mala by byť presnejšia.

Kód:

{najdite vsetky body X pre ktore |AX| : |BX| = 3}
Program Mnozina;
Uses Crt, Graph;
Const A1 = 10;
      A2 = 240;
      B1 = 50;
      B2 = 240;
      Opakovanie = 2000;
      Koef = 1;
Var   X1, X2, i, j :longint;
      citatel, menovatel :real;
Procedure Inicializacia;
Var Gd, Gm :Integer;
Begin
  Gd:= 0;
  Gm:= 0;
  InitGraph(Gd, Gm, 'C:\TP7\BGI\');
  ClearDevice;
  SetColor(White);
  If GraphResult <> 0 Then Halt;
  {body}
  SetColor(4);
  Circle(A1, A2, 3);
  SetFillStyle(1, 4);
  FloodFill(A1, A2, 4);
  SetColor(3);
  Circle(B1, B2, 3);
  SetFillStyle(1, 3);
  FloodFill(B1, B2, 3);
End;

Begin
  Inicializacia;
  For i:= 1 To Opakovanie Do
  Begin
    For j:= 1 To Opakovanie Do
    Begin

      X1 := i*Koef;
      X2 := j*Koef;

      citatel := Sqrt(Sqr(X1-A1)+Sqr(X2-A2));
      menovatel := Sqrt(Sqr(X1-B1)+Sqr(X2-B2));
      If menovatel <> 0 Then
      If citatel/menovatel = 3 Then
      Begin
        PutPixel(X1, X2, 14);
      End;
    End;
  End;
  ReadKey;
End.

audiotrack · Napísal **audiotrack**: 17.05.2007 22:34

neviem či som dobre pochopil, ani som si nepozeral tvoj algoritmus a skúsil som niečo spraviť. Tiež mi to dáva kružnicu, tak si to pozri. Ako exportneš screen z pascalu neviem, ak to potrebuješ odovzdať vo forme obrázku, môžeš použiť export z môjho programu (menu vyvoláš pravým tlačidlom)
link: project1.rar - 0.18MB
Môžeš si tam pre prehladnosť aj pomeniť farby, a zaujimavé je sledovať ten priebeh so zmenami hodnôť. čím vyššie číslo, tým je kružnica trhanejšia, na jednotke to dáva úplne iný tvar a so záporními nič nevykreslí

//edit: to čo si našiel (getimage) je procedúra ktorá sa používa pri grafike. nejde o výstup na tlačiareň alebo do súboru, len do virtuálnej premennej zloženej z veľkého dvojrozmerného poľa farieb. Vlastne ti zachytí časť obrazovky definovanú argumentami a tú časť môžeš prilepiť niekde inde. Používa sa to pri rozpohybovaní objektov, ale to je na dlho

//edit2: pozerám že už bežne používať unit graph :rolleyes:

a celkom sa ti to zapáčilo

//edit3: práve som zbadal, že pri čiernom pozadí ti nevykreslí prvý bod a prefarbí pozadie.. je tam bug

nechce sa mi to opravovať, nedávaj čierne pozadie :rolleyes:

audiotrack · Napísal **audiotrack**: 17.05.2007 23:54

ešte pripájam pár možných výstupov (prvé dva sú so vzdialenosťou 1, [záleží aj na vzájomnej polohe]. tretí je pre vzdialenosť 3 a posledný je znovu vzdialenosť 1 ale body sú takmer totožné)

Ako spraviť screenshot pascalovského grafického výstupu?

Ako spraviť screenshot pascalovského grafického výstupu?

Podobné témy