Really good piece of writing, this is very similar to a site that I have. Please check it out sometime and feel free to leave me a comenet on it and tell me what you think. I’m always looking for feedback.
Excellent read, I just passed this onto a colleague who was doing a little research on that. And he actually bought me lunch because I found it for him smile So let me rephrase that: Thanks for lunch!
September 20th, 2009 at 7:33 pm
Great post. I will read your posts frequently. Added you to the RSS reader.
February 22nd, 2010 at 6:37 am
program grafika;
uses crt, graph;
var gd, gm, x1, y1, x2, y2: integer;
begin
Initgraph (gd, gm, ”);
line (0,100,1024,100);
setcolor(14);
x1:=450;
y1:=500;
x2:=500;
y2:=550;
rectangle(x1,y1,x2,y2);
while y2>= 100 do
begin
delay(1);
setcolor(0);
rectangle(x1,y1,x2,y2);
setcolor(14);
y1:=y1-5;
y2:=y2-5;
rectangle(x1,y1,x2,y2);
end;
Readln;
Closegraph;
end.
April 6th, 2010 at 12:50 am
Really good piece of writing, this is very similar to a site that I have. Please check it out sometime and feel free to leave me a comenet on it and tell me what you think. I’m always looking for feedback.
April 12th, 2010 at 5:17 am
program grafika;
uses crt, graph;
var gd, gm, x, y, x2, y2, i: integer;
begin
Initgraph (gd, gm, ”);
randomize;
setbkcolor (15);
cleardevice;
setcolor (16);
setfillstyle (1, 14);
x := 500;
y := 400;
fillellipse (x, y, 100, 30);
setfillstyle (1, 1);
fillellipse (x, y – 15, 75, 20);
setfillstyle (1, 4);
fillellipse (x, y – 25, 20, 20);
setcolor (16);
setfillstyle (1, 13);
x2 := 500;
y2 := 600;
fillellipse (x2, y2, 75, 20);
setfillstyle (1, 4);
fillellipse (x2, y2 – 25, 20, 20);
for i:=1 to 120 do
begin
delay(100);
end;
Readln;
Closegraph;
end.
September 5th, 2010 at 8:54 pm
Excellent read, I just passed this onto a colleague who was doing a little research on that. And he actually bought me lunch because I found it for him smile So let me rephrase that: Thanks for lunch!