contoh animasi sederhana, asli karya saya.
moga bermanfaat yah...
[animasi lampu dalam ruangan]
uses crt, graph; Nama : Maryanti agustina B.Sondak
var NPM :11 411 116
d,m,radius:integer; [FREEPASCAL]
begin
clrscr;
d:=detect;
initgraph(d,m,'');
rectangle(1000,700,0,0);
{dinding}
line(1000,300,830,300);
line(0,0,250,70);
line(830,300,250,300);
line(250,300,0,450);
line(250,300,250,70);
line(250,70,1000,70);
line(550,0,550,30);
circle(550,40,10);
{kursi} {kaki kursi}
line(400,200,550,200); line(400,325,400,335);
line(550,200,550,275); line(405,325,405,335);
line(550,275,575,303); line(400,335,405,335);
line(575,303,575,325);
line(575,325,375,325); line(550,325,550,335);
line(375,325,375,303); line(555,325,555,335);
line(375,303,400,275); line(550,335,555,335);
line(400,275,400,200);
line(575,303,375,303); setcolor(white);
line(550,275,400,275); setfillstyle(3,white);
floodfill(430,205,white);
line(400,225,550,225); floodfill(380,305,white);
line(400,250,550,250); setfillstyle(9,white);
line(425,200,425,275); floodfill(545,280,white);
line(450,200,450,275);
line(475,200,475,275);
line(500,200,500,275);
line(525,200,525,275);
{pohon natal} {P.Natal kanan}
line(825,150,800,175); line(825,150,850,175);
line(800,175,810,175); line(850,175,840,175);
line(810,175,775,200); line(840,175,875,200);
line(775,200,800,200); line(875,200,850,200);
line(800,200,750,225); line(850,200,900,225);
line(750,225,795,225); line(900,225,870,225);
line(795,225,725,250); line(870,225,925,250);
line(725,250,765,250); line(925,250,895,250);
line(765,250,700,275); line(895,250,950,275);
line(700,275,748,275); line(950,275,910,275);
line(748,275,675,300); line(910,275,975,300);
line(675,300,975,300);
{warna pohon}
setcolor(white);
setfillstyle(9,green);
floodfill(820,180,white);
{batang pohon natal}
line(827,300,827,325);
line(810,300,810,325);
line(827,325,810,325);
{kaki pohon natal}
line(790,315,810,315);
line(826,315,855,315);
line(855,315,840,340);
line(840,340,775,340);
line(775,340,790,315);
setfillstyle(7,white);
floodfill(800,320,white);
{pintu}
line(130,375,130,200);
line(130,200,50,225);
line(50,225,50,423);
line(130,375,50,423);
circle(115,280,3);
circle(115,300,3);
line(115,280,115,300);
{warna pintu}
setcolor(white);
setfillstyle(9,white);
floodfill(125,370,white);
{warna dinding }
setcolor(white);
setfillstyle(3,blue);
floodfill(990,290,white);
setcolor(white);
setfillstyle(9,white);
floodfill(900,5,white);
setcolor(white);
setfillstyle(3,blue);
floodfill(5,5,white);
{lampu belajar)
(kaki lampu}
line(480,440,495,420);
line(495,420,445,420);
line(445,420,425,440);
line(425,440,480,440);
{batang lampu}
line(470,430,485,400);
line(485,400,475,380);
line(465,430,480,400);
line(480,400,470,385);
line(470,430,465,430);
{batok}
line(475,380,475,370);
line(475,370,455,355);
line(455,355,455,395);
line(455,395,470,385);
ellipse(455,375,90,270,15,20);
{lampu}
circle(450,375,5);
setcolor(yellow);
setfillstyle(9,yellow);
floodfill(450,375,white);
setcolor(white);
{buku}
line(348,440,390,420);
line(380,440,420,420);
line(322,440,360,420);
ellipse(365,440,180,0,14,5);
ellipse(337,440,180,0,14,5);
ellipse(375,420,180,0,14,5);
ellipse(405,420,180,0,14,5);
{meja}
line(550,525,550,410);
line(550,410,320,410);
line(320,410,250,450);
line(250,450,250,575);
line(250,575,350,575);
line(350,575,400,550);
line(400,550,400,540);
line(400,540,400,450);
line(350,575,350,450);
line(250,450,500,450);
line(500,450,500,575);
line(500,575,550,525);
line(500,450,550,410);
setcolor(blue);
setfillstyle(9,blue);
floodfill(540,520,white);
floodfill(350,425,white);
{laci}
rectangle(260,460,340,495);
circle(300,475,5);
rectangle(260,510,340,570);
circle(325,525,3);
circle(325,550,3);
line(325,525,325,550);
{lampu pohon natal}
circle(825,175,5);
circle(815,200,5);
circle(835,200,5);
circle(800,225,5);
circle(825,225,5);
circle(850,225,5);
circle(780,250,5);
circle(810,250,5);
circle(840,250,5);
circle(870,250,5);
circle(755,275,5);
circle(780,275,5);
circle(810,275,5);
circle(840,275,5);
circle(870,275,5);
circle(900,275,5);
{lampu disco}
line(550,0,550,30);
circle(550,40,10);
repeat
setcolor(random(10));
for
radius:= 1 to 20 do
circle(550,40,radius*3);
{lampu natal}
for
radius:= 1 to 5 do
circle(825,175,radius*1);
for
radius:= 1 to 5 do
circle(815,200,radius*1);
for
radius:= 1 to 5 do
circle(835,200,radius*1);
for
radius:= 1 to 5 do
circle(800,225,radius*1);
for
radius:= 1 to 5 do
circle(825,225,radius*1);
for
radius:= 1 to 5 do
circle(850,225,radius*1);
for
radius:= 1 to 5 do
circle(780,250,radius*1);
for
radius:= 1 to 5 do
circle(810,250,radius*1);
for
radius:= 1 to 5 do
circle(840,250,radius*1);
for
radius:= 1 to 5 do
circle(870,250,radius*1);
for
radius:= 1 to 5 do
circle(755,275,radius*1);
for
radius:= 1 to 5 do
circle(780,275,radius*1);
for
radius:= 1 to 5 do
circle(810,275,radius*1);
for
radius:= 1 to 5 do
circle(840,275,radius*1);
for
radius:= 1 to 5 do
circle(870,275,radius*1);
for
radius:= 1 to 5 do
circle(900,275,radius*1);
until keypressed;
readln;
end.
[output]
»» READMORE...
moga bermanfaat yah...
[animasi lampu dalam ruangan]
uses crt, graph; Nama : Maryanti agustina B.Sondak
var NPM :11 411 116
d,m,radius:integer; [FREEPASCAL]
begin
clrscr;
d:=detect;
initgraph(d,m,'');
rectangle(1000,700,0,0);
{dinding}
line(1000,300,830,300);
line(0,0,250,70);
line(830,300,250,300);
line(250,300,0,450);
line(250,300,250,70);
line(250,70,1000,70);
line(550,0,550,30);
circle(550,40,10);
{kursi} {kaki kursi}
line(400,200,550,200); line(400,325,400,335);
line(550,200,550,275); line(405,325,405,335);
line(550,275,575,303); line(400,335,405,335);
line(575,303,575,325);
line(575,325,375,325); line(550,325,550,335);
line(375,325,375,303); line(555,325,555,335);
line(375,303,400,275); line(550,335,555,335);
line(400,275,400,200);
line(575,303,375,303); setcolor(white);
line(550,275,400,275); setfillstyle(3,white);
floodfill(430,205,white);
line(400,225,550,225); floodfill(380,305,white);
line(400,250,550,250); setfillstyle(9,white);
line(425,200,425,275); floodfill(545,280,white);
line(450,200,450,275);
line(475,200,475,275);
line(500,200,500,275);
line(525,200,525,275);
{pohon natal} {P.Natal kanan}
line(825,150,800,175); line(825,150,850,175);
line(800,175,810,175); line(850,175,840,175);
line(810,175,775,200); line(840,175,875,200);
line(775,200,800,200); line(875,200,850,200);
line(800,200,750,225); line(850,200,900,225);
line(750,225,795,225); line(900,225,870,225);
line(795,225,725,250); line(870,225,925,250);
line(725,250,765,250); line(925,250,895,250);
line(765,250,700,275); line(895,250,950,275);
line(700,275,748,275); line(950,275,910,275);
line(748,275,675,300); line(910,275,975,300);
line(675,300,975,300);
{warna pohon}
setcolor(white);
setfillstyle(9,green);
floodfill(820,180,white);
{batang pohon natal}
line(827,300,827,325);
line(810,300,810,325);
line(827,325,810,325);
{kaki pohon natal}
line(790,315,810,315);
line(826,315,855,315);
line(855,315,840,340);
line(840,340,775,340);
line(775,340,790,315);
setfillstyle(7,white);
floodfill(800,320,white);
{pintu}
line(130,375,130,200);
line(130,200,50,225);
line(50,225,50,423);
line(130,375,50,423);
circle(115,280,3);
circle(115,300,3);
line(115,280,115,300);
{warna pintu}
setcolor(white);
setfillstyle(9,white);
floodfill(125,370,white);
{warna dinding }
setcolor(white);
setfillstyle(3,blue);
floodfill(990,290,white);
setcolor(white);
setfillstyle(9,white);
floodfill(900,5,white);
setcolor(white);
setfillstyle(3,blue);
floodfill(5,5,white);
{lampu belajar)
(kaki lampu}
line(480,440,495,420);
line(495,420,445,420);
line(445,420,425,440);
line(425,440,480,440);
{batang lampu}
line(470,430,485,400);
line(485,400,475,380);
line(465,430,480,400);
line(480,400,470,385);
line(470,430,465,430);
{batok}
line(475,380,475,370);
line(475,370,455,355);
line(455,355,455,395);
line(455,395,470,385);
ellipse(455,375,90,270,15,20);
{lampu}
circle(450,375,5);
setcolor(yellow);
setfillstyle(9,yellow);
floodfill(450,375,white);
setcolor(white);
{buku}
line(348,440,390,420);
line(380,440,420,420);
line(322,440,360,420);
ellipse(365,440,180,0,14,5);
ellipse(337,440,180,0,14,5);
ellipse(375,420,180,0,14,5);
ellipse(405,420,180,0,14,5);
{meja}
line(550,525,550,410);
line(550,410,320,410);
line(320,410,250,450);
line(250,450,250,575);
line(250,575,350,575);
line(350,575,400,550);
line(400,550,400,540);
line(400,540,400,450);
line(350,575,350,450);
line(250,450,500,450);
line(500,450,500,575);
line(500,575,550,525);
line(500,450,550,410);
setcolor(blue);
setfillstyle(9,blue);
floodfill(540,520,white);
floodfill(350,425,white);
{laci}
rectangle(260,460,340,495);
circle(300,475,5);
rectangle(260,510,340,570);
circle(325,525,3);
circle(325,550,3);
line(325,525,325,550);
{lampu pohon natal}
circle(825,175,5);
circle(815,200,5);
circle(835,200,5);
circle(800,225,5);
circle(825,225,5);
circle(850,225,5);
circle(780,250,5);
circle(810,250,5);
circle(840,250,5);
circle(870,250,5);
circle(755,275,5);
circle(780,275,5);
circle(810,275,5);
circle(840,275,5);
circle(870,275,5);
circle(900,275,5);
{lampu disco}
line(550,0,550,30);
circle(550,40,10);
repeat
setcolor(random(10));
for
radius:= 1 to 20 do
circle(550,40,radius*3);
{lampu natal}
for
radius:= 1 to 5 do
circle(825,175,radius*1);
for
radius:= 1 to 5 do
circle(815,200,radius*1);
for
radius:= 1 to 5 do
circle(835,200,radius*1);
for
radius:= 1 to 5 do
circle(800,225,radius*1);
for
radius:= 1 to 5 do
circle(825,225,radius*1);
for
radius:= 1 to 5 do
circle(850,225,radius*1);
for
radius:= 1 to 5 do
circle(780,250,radius*1);
for
radius:= 1 to 5 do
circle(810,250,radius*1);
for
radius:= 1 to 5 do
circle(840,250,radius*1);
for
radius:= 1 to 5 do
circle(870,250,radius*1);
for
radius:= 1 to 5 do
circle(755,275,radius*1);
for
radius:= 1 to 5 do
circle(780,275,radius*1);
for
radius:= 1 to 5 do
circle(810,275,radius*1);
for
radius:= 1 to 5 do
circle(840,275,radius*1);
for
radius:= 1 to 5 do
circle(870,275,radius*1);
for
radius:= 1 to 5 do
circle(900,275,radius*1);
until keypressed;
readln;
end.
[output]