{ Compile it, run it, and read all the functions to see what they do.
  Mess around with it, if you like.
}

program drawSomeStuff(Input, Output);

import graphics;

const	radius = 20;
		windowWidth = 600;
		windowHeight = 600;
		bottom = 100;
		left = 100;

procedure StartGraphics;
begin
  { open a window }
 	initializegraphics;
	createwindow(left,bottom,left+windowWidth,bottom+windowHeight);
	
  { flood the window with a black background }
	setrgbcolor(0,0,0);
	flood; 
	flushgraphics
end;

procedure SayHello;
begin
	setrgbcolor( 1.0, 1.0, 1.0 );
	moveto( 100, 490 );
	lineto( 130, 570 );
	lineto( 120, 590 );
	lineto( 120, 490 );
	lineto( 130, 520 );
	lineto( 140, 520 );
	lineto( 150, 490 );
	lineto( 165, 490 );
	lineto( 175, 520 );
	lineto( 180, 500 );
	lineto( 185, 490 );
	moveto( 175, 530 );
	lineto( 175, 532 );
	flushgraphics
end;

procedure SayHelloAgain;
var	greeting : string(100);
begin
	setrgbcolor( 1, 0, 0 );
	setfont( 1, 36 );
	greeting := 'Howdy.';
	displaytextxy( 350, 400, greeting );
	setrgbcolor( 0, 1, 0 );
	moveto( 380, 350 );
	displaytext( greeting );
	flushgraphics
end;

procedure DrawSomeCircles;
begin
	setrgbcolor( 0, 0, 1 );
	circle( 150, 250, 50 );
	circlefilled( 350, 250, 50 );
	flushgraphics
end;

begin	
	StartGraphics;
	SayHello;
	SayHelloAgain;
	DrawSomeCircles;
{	DrawSomeShapes;}
	readln
end.