Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Uses Crt,Graph;
- var
- sterownik,tryb,i,j:Integer;
- t1: array[1..4] of PointType = ((X: 540; Y: 200), (X: 640; Y:100), (X: 740; Y: 200), (X: 540; Y: 200));
- t2: array[1..4] of PointType = ((X: 500; Y: 310), (X: 640; Y:200), (X: 780; Y: 310), (X: 500; Y: 310));
- t3: array[1..4] of PointType = ((X: 460; Y: 420), (X: 640; Y:310), (X: 820; Y: 420), (X: 460; Y: 420));
- t4: array[1..4] of PointType = ((X: 420; Y: 530), (X: 640; Y:420), (X: 860; Y: 530), (X: 420; Y: 530)); //tree points
- procedure bombka(x,y:integer); //to create staff on tree
- begin
- i:=random(12);
- j:=random(12);
- SetColor(red);
- setfillstyle(i,j);
- fillellipse(x,y,i,i);
- end;
- Begin
- randomize;
- Sterownik:=detect;
- tryb:=9;
- InitGraph(sterownik,tryb,'..\..\..\..\..\~PROGRAMY-GRY\notepad++\pascal\tp\BGI'); //link to bgi from turbopascal
- SetColor(red);
- moveto(0,0);
- //wypelnienie
- //niebieskie
- setfillstyle(1,blue);
- Bar(0,0,1280,980);
- //bialosc
- setfillstyle(8,white);
- Bar(0,700,1280,980);
- //kora
- setfillstyle(1,brown);
- Bar(600,530,680,750);
- //trojkat 1
- setfillstyle(6,green);
- setcolor(black);
- fillpoly(3,t1);
- //trojkat 2
- fillpoly(3,t2);
- //trojkat 3
- fillpoly(3,t3);
- //trojkat 4
- fillpoly(3,t4);
- //bombki
- bombka(640,100);
- bombka(500,310);
- bombka(640,310);
- bombka(780,310);
- bombka(420,530);
- bombka(860,530);
- //text
- moveto(580,50);
- outtext('HaHaHa, to jest choinka!'); //tree text
- repeat until keypressed;
- CloseGraph;
- end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement