1 578
editací
Změny
Created page with "Nakreslí 3-D sloupec použitím aktuálního stylu vyplňování a barvy. ;Deklarace procedure Bar3D(x1, y1, x2, y2: Integer; Depth: Word; Top: Boolean); ;Režim :Reálný..."
Nakreslí 3-D sloupec použitím aktuálního stylu vyplňování a barvy.
;Deklarace
procedure Bar3D(x1, y1, x2, y2: Integer; Depth: Word; Top: Boolean);
;Režim
:Reálný, Chráněný
;Poznámky
:[[Bar3D]] nakreslí vyplněný, trojrozměrný sloupec (hranol), přičemž používá vzorek a barvu definované procedurou [[SetFillStyle]] nebo [[SetFillPattern]]. Trojrozměrný obrys se vykreslí aktuálním stylem a barvou čáry, tak jak byly nastaveny procedurami [[SetLineStyle]] a [[SetColor]]. Depth (hloubka) je délka v pixelech trojrozměrného obrysu. Pokud parametr Top je TopOn, na sloupec se nasadí trojrozměrný vršek; pokud Top je TopOff, na sloupec se žádný vršek nenasadí (což umožňuje stavět sloupce na sebe ).
:Typickou hloubku lze vypočítat jako 25% šířky sloupce:
Bar3D(X1, Y1, X2, Y2, (X2 - X1 + 1) div 4, TopOn);
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
[[ Bar]]
:[[SetFillPattern]]
:[[SetFillStyle]]
:[[SetLineStyle]]
Vzorový příklad
{Bar3d.PAS}
{Vzorový příklad pro proceduru Bar3D .}
uses Graph;
var
Gd, Gm: Integer;
Y0, Y1, Y2, X1, X2: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm,' ');
if GraphResult <> grOk then
Halt(1);
Y0 := 10;
Y1 := 60;
Y2 := 110;
X1 := 10;
X2 := 50;
Bar3D(X1, Y0, X2, Y1, 10, TopOn);
Bar3D(X1, Y1, X2, Y2, 10, TopOff);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]
;Deklarace
procedure Bar3D(x1, y1, x2, y2: Integer; Depth: Word; Top: Boolean);
;Režim
:Reálný, Chráněný
;Poznámky
:[[Bar3D]] nakreslí vyplněný, trojrozměrný sloupec (hranol), přičemž používá vzorek a barvu definované procedurou [[SetFillStyle]] nebo [[SetFillPattern]]. Trojrozměrný obrys se vykreslí aktuálním stylem a barvou čáry, tak jak byly nastaveny procedurami [[SetLineStyle]] a [[SetColor]]. Depth (hloubka) je délka v pixelech trojrozměrného obrysu. Pokud parametr Top je TopOn, na sloupec se nasadí trojrozměrný vršek; pokud Top je TopOff, na sloupec se žádný vršek nenasadí (což umožňuje stavět sloupce na sebe ).
:Typickou hloubku lze vypočítat jako 25% šířky sloupce:
Bar3D(X1, Y1, X2, Y2, (X2 - X1 + 1) div 4, TopOn);
;Omezení
:Je nutno být v grafickém režimu.
;Viz také
[[ Bar]]
:[[SetFillPattern]]
:[[SetFillStyle]]
:[[SetLineStyle]]
Vzorový příklad
{Bar3d.PAS}
{Vzorový příklad pro proceduru Bar3D .}
uses Graph;
var
Gd, Gm: Integer;
Y0, Y1, Y2, X1, X2: Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm,' ');
if GraphResult <> grOk then
Halt(1);
Y0 := 10;
Y1 := 60;
Y2 := 110;
X1 := 10;
X2 := 50;
Bar3D(X1, Y0, X2, Y1, 10, TopOn);
Bar3D(X1, Y1, X2, Y2, 10, TopOff);
Readln;
CloseGraph;
end.
[[Category:Graph]]
[[Category:Procedúry Graph]]