|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
『楼 主』:
TC写的小动画效果
上传的文件里有3个效果:变幻Delta带影子的 变幻四面体 不同速度随机游动的点
我平常放dos启动盘里,进入dos的时候拿来做屏保啦哈哈。
#include <Conio.h>
#include <graphics.h>
#include <stdlib.h>
#define closegr closegraph
#define NDOT 4
typedef struct
{
int a,b,x,y;
} DotInf;
void initgr(void) /* BGI初始化 */
{
int gd = DETECT, gm = 0;
registerbgidriver(EGAVGA_driver);
initgraph(&gd, &gm, "");
}
void delta(DotInf dot[],int c)
{
int i,j;
setcolor(c);
for (i=0;i<NDOT;i++)
for (j=i+1;j<NDOT;j++) line(dot[i].x,dot[i].y,dot[j].x,dot[j].y);
}
int main(void)
{
int i,j,whi=0;
DotInf snk[NDOT],everdot[NDOT];
initgr(); /* BGI初始化 */
for (i=0;i<NDOT;i++) {
snk[i].a=snk[i].b=snk[i].x=snk[i].y=200;
}
delta(snk,2);
randomize();
while (!kbhit())
{
if (whi<4) whi++; else whi=0;
for (i=0;i<600;i++) delay(10);
delta(everdot,0);
delta(snk,2);
for (i=0;i<NDOT;i++){
if ((snk[i].x==snk[i].a)&&(snk[i].y==snk[i].b)){
snk[i].a=rand()%600+1;
snk[i].b=rand()%400+20;
}
}
for (i=0;i<NDOT;i++){
everdot[i].x=snk[i].x;
everdot[i].y=snk[i].y;
if (whi>i) continue;
if (snk[i].x>snk[i].a)
snk[i].x--;
else if (snk[i].x<snk[i].a)
snk[i].x++;
else
{
if (snk[i].y>snk[i].b)
snk[i].y--;
else if (snk[i].y<snk[i].b)
snk[i].y++;
}
}
}
getch();
closegr(); /* 恢复TEXT屏幕模式 */
return 0;
} [ Last edited by 523066680 on 2009-9-7 at 01:25 ]
附件
1: TCGRAPH.rar (2009-9-4 00:46, 59.37 K, 下载附件所需积分 1 点
,下载次数: 132)
|
综合型编程论坛
我的作品索引 |
|
2009-9-4 00:43 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
|
2009-9-7 01:25 |
|
|
justzero
新手上路
积分 8
发帖 3
注册 2009-9-5 来自 China
状态 离线
|
|
2009-9-11 08:05 |
|
|
cike09
新手上路
积分 17
发帖 11
注册 2009-9-12 来自 宇宙·······禹州
状态 离线
|
『第
4 楼』:
??????????????????
|
|
2009-9-12 05:35 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
|
2009-9-12 05:41 |
|
|
xugaohui
高级用户
积分 774
发帖 293
注册 2003-4-16 来自 湖北仙桃
状态 离线
|
『第
6 楼』:
不能在移动鼠标时退出,不能驻留内存。
|
下载
09年7月7日 更新
感谢网友 囧HQY 提供空间 |
|
2009-9-13 01:02 |
|
|
523066680
银牌会员
SuperCleaner
积分 2362
发帖 1133
注册 2008-2-2
状态 离线
|
|
2009-9-14 06:19 |
|
|
xiaoguizi007
新手上路
积分 8
发帖 4
注册 2010-4-6
状态 离线
|
|
2010-4-20 16:22 |
|
|
erontec
新手上路
积分 2
发帖 1
注册 2010-2-24
状态 离线
|
|
2010-4-20 22:35 |
|
|
demonstone
新手上路
积分 2
发帖 1
注册 2010-4-20
状态 离线
|
|
2010-4-26 21:05 |
|
|
messen
新手上路
积分 17
发帖 8
注册 2010-1-3
状态 离线
|
|
2010-5-5 18:21 |
|
|
atak
新手上路
积分 16
发帖 7
注册 2010-10-18
状态 离线
|
|
2010-10-25 11:47 |
|
|
1beyondworld
新手上路
积分 8
发帖 4
注册 2010-8-3
状态 离线
|
|
2010-11-1 20:52 |
|
|
wds59211314
新手上路
积分 2
发帖 1
注册 2010-12-14
状态 离线
|
|
2010-12-15 10:30 |
|
|
1051093860
初级用户
积分 21
发帖 11
注册 2014-1-18
状态 离线
|
|
2015-6-18 21:21 |
|