Pascal - Graficzne

Bałwan

Bałwan
Pascal - Graficzne

Program: Zdjęcie bałwana.

Najzwyczajniejszy rysunek bałwana wykonany na podstawie zdefiniowanych w kodzie figur/wartości. Program dodatkowo sprawdza czy narysowanie bałwana jest możliwe.

Kompilator: Turbo Pascal

Galeria:

Program w akcji.

Kod programu:

program balwanek;
uses CRT,Graph;
procedure Balwan(x,y,rozmiar:integer);
var Trojkat:array[1..3] of PointType;
begin
	setcolor(15);
	setfillstyle(1,15);
	fillellipse(x,y,rozmiar,rozmiar);
	fillellipse(x,y+(rozmiar*3),rozmiar*2,rozmiar*2);
	fillellipse(x,y+(rozmiar*8),rozmiar*3,rozmiar*3);
	setfillstyle(1,0);
	fillellipse(x-(rozmiar div 3), y-(rozmiar div 3), rozmiar div 6,rozmiar div 6);
	fillellipse(x+(rozmiar div 3), y-(rozmiar div 3), rozmiar div 6,rozmiar div 6);
	fillellipse(x,y+(rozmiar*3),rozmiar div 5,rozmiar div 5);
	fillellipse(x,y+(rozmiar*2),rozmiar div 5,rozmiar div 5);
	fillellipse(x,y+(rozmiar*4),rozmiar div 5,rozmiar div 5);
	fillellipse(x,y+(rozmiar*8),rozmiar div 5,rozmiar div 5);
	fillellipse(x,y+(rozmiar*7)-(rozmiar div 4),rozmiar div 5,rozmiar div 5);
	fillellipse(x,y+(rozmiar*9)-(rozmiar div 4),rozmiar div 5,rozmiar div 5);
	setcolor(12);
	trojkat[1].x:=x-(rozmiar div 6);
	trojkat[1].y:=y;
	trojkat[2].x:=x+(rozmiar div 6);
	trojkat[2].y:=y;
	trojkat[3].x:=x-(rozmiar div 4);
	trojkat[3].y:=y+(rozmiar div 2);
	setfillstyle(1,lightred);
	fillpoly(3,trojkat);
end;
const SCIEZKA_GRAF='C:\Progra~1\TP\BGI';
var d,t:integer;
begin
	d:=detect;
	t:=2;
	initgraph(d,t,SCIEZKA_GRAF);
	if graphresult <> grok then
	begin
		write('brak');
		readln;
		halt;
	end;
	balwan(300,100,30);
	readln;
	closegraph;
end.