中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名:www.cn-dos.net  论坛域名:www.cn-dos.net/forum
DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!

游客:  注册 | 登录 | 命令行 | 搜索 | 上传 | 帮助 »
作者:
标题: TC写的小动画效果 上一主题 | 下一主题
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『楼 主』:  TC写的小动画效果 使用 LLM 解释/回答一下

上传的文件里有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.x,dot.y,dot.x,dot.y);
}

int main(void)
{
int i,j,whi=0;
DotInf snk,everdot;

initgr(); /* BGI初始化 */

for (i=0;i<NDOT;i++) {
snk.a=snk.b=snk.x=snk.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.x==snk.a)&&(snk.y==snk.b)){
snk.a=rand()%600+1;
snk.b=rand()%400+20;
}
}
for (i=0;i<NDOT;i++){
everdot.x=snk.x;
everdot.y=snk.y;
if (whi>i) continue;
if (snk.x>snk.a)
snk.x--;
else if (snk.x<snk.a)
snk.x++;
else
{
if (snk.y>snk.b)
snk.y--;
else if (snk.y<snk.b)
snk.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 KiB, 下载附件所需积分 1 点 ,下载次数: 132)


综合型编程论坛

我的作品索引
2009-9-4 00:43
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (523066680)  编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 2 楼』:   使用 LLM 解释/回答一下

………………




综合型编程论坛

我的作品索引
2009-9-7 01:25
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (523066680)  编辑帖子  回复  引用回复
justzero
新手上路




积分 8
发帖 3
注册 2009-9-5
来自 China
状态 离线
『第 3 楼』:  12 使用 LLM 解释/回答一下

不错!


2009-9-11 08:05
查看资料  发短消息  网志   编辑帖子  回复  引用回复
cike09
新手上路





积分 17
发帖 11
注册 2009-9-12
来自 宇宙·······禹州
状态 离线
『第 4 楼』:   使用 LLM 解释/回答一下

??????????????????


2009-9-12 05:35
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (1144733571)  编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 5 楼』:   使用 LLM 解释/回答一下

楼上有怀疑就说,发问号很容易被当作恶意灌水并扣分的。




综合型编程论坛

我的作品索引
2009-9-12 05:41
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (523066680)  编辑帖子  回复  引用回复
xugaohui
高级用户




积分 774
发帖 293
注册 2003-4-16
来自 湖北仙桃
状态 离线
『第 6 楼』:   使用 LLM 解释/回答一下

不能在移动鼠标时退出,不能驻留内存。




下载
09年7月7日 更新
感谢网友 囧HQY 提供空间
2009-9-13 01:02
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
523066680
银牌会员

SuperCleaner


积分 2362
发帖 1133
注册 2008-2-2
状态 离线
『第 7 楼』:   使用 LLM 解释/回答一下

学没多久,不会,多多指教啊~
什么是驻留内存




综合型编程论坛

我的作品索引
2009-9-14 06:19
查看资料  发送邮件  访问主页  发短消息  网志  OICQ (523066680)  编辑帖子  回复  引用回复
xiaoguizi007
新手上路





积分 8
发帖 4
注册 2010-4-6
状态 离线
『第 8 楼』:   使用 LLM 解释/回答一下

这么好,看看


2010-4-20 16:22
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
erontec
新手上路





积分 2
发帖 1
注册 2010-2-24
状态 离线
『第 9 楼』:   使用 LLM 解释/回答一下

这么好,看看


2010-4-20 22:35
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
demonstone
新手上路





积分 2
发帖 1
注册 2010-4-20
状态 离线
『第 10 楼』:  不错 使用 LLM 解释/回答一下

收下了!


2010-4-26 21:05
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
messen
新手上路





积分 17
发帖 8
注册 2010-1-3
状态 离线
『第 11 楼』:   使用 LLM 解释/回答一下

看看的哦 可惜了 不怎么会用


2010-5-5 18:21
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
atak
新手上路





积分 16
发帖 7
注册 2010-10-18
状态 离线
『第 12 楼』:   使用 LLM 解释/回答一下

做的不错


2010-10-25 11:47
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
1beyondworld
新手上路





积分 8
发帖 4
注册 2010-8-3
状态 离线
『第 13 楼』:   使用 LLM 解释/回答一下

不错的方法


2010-11-1 20:52
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
wds59211314
新手上路





积分 2
发帖 1
注册 2010-12-14
状态 离线
『第 14 楼』:   使用 LLM 解释/回答一下

下载来看看,还没看过呢…


2010-12-15 10:30
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复
1051093860
初级用户





积分 21
发帖 11
注册 2014-1-18
状态 离线
『第 15 楼』:   使用 LLM 解释/回答一下

不错!


2015-6-18 21:21
查看资料  发送邮件  发短消息  网志   编辑帖子  回复  引用回复

请注意:您目前尚未注册或登录,请您注册登录以使用论坛的各项功能,例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转: