Grafika különböző környezetekben, különböző nyelvekben
Pascal, GRAPH unit
Grafikus mód illetve ablak bekapcsolása, kikapcsolása
var gd,gm : integer;
begin
detectgraph(gd,gm);
initgraph(gd,gm,'');
{grafika}
closegraph;
end.
begin
detectgraph(gd,gm);
initgraph(gd,gm,'');
{grafika}
closegraph;
end.
Kép koordináta rendszer
Példa 640x480 méretű grafikus ablak esetén:
Rajzoló parancsok
putpixel(x,y,szín)
line(x1,y1,y2,y2) {szakasz}
lineto(x,y)
linerel(dx,dy)
moveto(x,y)
circle(x,y,r)
rectangle(x1,y1,x2,y2)
bar(x1,y1,x2,y2)
outtextxy(x,y,karakterlánc)
line(x1,y1,y2,y2) {szakasz}
lineto(x,y)
linerel(dx,dy)
moveto(x,y)
circle(x,y,r)
rectangle(x1,y1,x2,y2)
bar(x1,y1,x2,y2)
outtextxy(x,y,karakterlánc)
Szín-név-konstansok:
| Black | 0 | Fekete | DarkGray | 8 | Sötétszürke |
| Blue | 1 | Kék | LightBlue | 9 | Világoskék |
| Green | 2 | Zöld | LightGreen | 10 | Világoszöld |
| Cyan | 3 | Türkiz | LightCyan | 11 | Világostürkiz |
| Red | 4 | Piros | LightRed | 12 | Világospiros |
| Magenta | 5 | Lila | LightMagenta | 13 | Világoslila |
| Brown | 6 | Barna | Yellow | 14 | Sárga |
| LightGray | 7 | Világosszürke | White | 15 | Fehér |
Rajzolási tulajdonságok beállítása
setcolor(szín-név-konstans);
setlinestyle(stílus,minta,vastagság);
setlinestyle(stílus,minta,vastagság);
stílus:
vastagság: NormWidth (0,1,2), illetve ThickWidth (3)
példák:
| SolidLn | 0 | normál |
| DottedLn | 1 | pontozott |
| CenterLn | 2 | szaggatott |
| DashedLn | 3 | szaggatott |
| UserBitLn | 4 | a minta-ban definiált mintájú |
vastagság: NormWidth (0,1,2), illetve ThickWidth (3)
példák:
{alapeset:} setlinestyle(SolidLn,0,NormWidth)
{vastagvonal:} setlinestyle(SolidLn,0,ThickWidth)
{szaggatott vékony:} setlinestyle(CenterLn,0,NormWidth)
{vastagvonal:} setlinestyle(SolidLn,0,ThickWidth)
{szaggatott vékony:} setlinestyle(CenterLn,0,NormWidth)