| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 2190 人关注过本帖
标题:一个模拟自然云朵的C程序(转载) 实在是漂亮!!!
取消只看楼主 加入收藏
mkmny
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2004-8-17
收藏
 问题点数:0 回复次数:4 
一个模拟自然云朵的C程序(转载) 实在是漂亮!!!

只可惜没有注释…………

#include <stdio.h> #include <dos.h> #include <math.h> long Addr[768]; int Mode;

Set_Mode (int mode) { union REGS r; r.h.ah=0; r.h.al=mode; int86 (0x10,&r,&r); }

Set_Graphics_Mode (unsigned x,unsigned y) { long i; if ((x<321)&&(y<201)) { Set_Mode (0x13); Mode=0x13; for (i=0;i<200;i++) Addr[i]=320*i; } else if ((x<641)&&(y<401)) { Set_Mode (0x5c); Mode=0x5c; for (i=0;i<400;i++) Addr[i]=640*i; } else if ((x<641)&&(y<481)) { Set_Mode (0x5d); Mode=0x5d; for (i=0;i<480;i++) Addr[i]=640*i; } else if ((x<641)&&(y<481)) { Set_Mode (0x5d); Mode=0x5d; for (i=0;i<480;i++) Addr[i]=640*i; } else if ((x<801)&&(y<601)) { Set_Mode (0x5e); Mode=0x5e; for (i=0;i<600;i++) Addr[i]=800*i; } else if ((x<1025)&&(y<769)) { Set_Mode (0x62); Mode=0x62; for (i=0;i<768;i++) Addr[i]=1024*i; } else { Set_Mode (3); printf ("Not support this mode .\n"); getch (); } }

set_pattern () { int i; unsigned char pat[256][3]; struct SREGS inreg; union REGS reg;

pat[0][0]=0;pat[0][1]=0;pat[0][2]=0; for (i=1;i<=255;i++) { pat[i][0]=(unsigned char)((float)(abs(i-127)*63)/127.0+0.5); pat[i][1]=(unsigned char)((float)(abs(i-127)*63)/127.0+0.5); pat[i][2]=63; } reg.x.ax=0x1012; reg.x.bx=0; reg.x.cx=256; reg.x.dx=FP_OFF(pat); inreg.es=FP_SEG(pat); int86x (0x10,&reg,&reg,&inreg); }

plot (int x,int y,unsigned char color) { long offset; char Page; unsigned char far *address; switch (Mode) { case 0x13: offset=Addr[y]+x; address=(unsigned char far *)(0xa0000000L+offset); *address=color; break; case 0x5c: case 0x5d: case 0x5e: offset=Addr[y]+x; Page=(offset>>16); outportb (0x3c4,0xe); outportb (0x3c5,Page^0x02); offset=offset&65535; address=(unsigned char far *)(0xa0000000L+offset); *address=color; break; case 0x62: offset=Addr[y]+x; Page=y>>6; outportb (0x3c4,0xe); outportb (0x3c5,Page^0x02); offset=offset&65535; address=(unsigned char far *)(0xa0000000L+offset); *address=color; break; default: break; } }

get_pixel (int x,int y) { long offset; char Page; unsigned char far *address; unsigned char color; switch (Mode) { case 0x13: offset=Addr[y]+x; address=(unsigned char far *)(0xa0000000+offset); color=*address; break; case 0x5c: case 0x5d: case 0x5e: offset=Addr[y]+x; Page=(offset>>16); outportb (0x3c4,0xe); outportb (0x3c5,Page^0x02); offset=offset&65535; address=(unsigned char far *)(0xa0000000L+offset); color=*address; break; case 0x62: offset=Addr[y]+x; Page=y>>6; outportb (0x3c4,0xe); outportb (0x3c5,Page^0x02); offset=offset&65535; address=(unsigned char far *)(0xa0000000L+offset); color=*address; break; default: break; } return (color); }

randint (unsigned int range) { float sigma=423.1966; static double OldRand=0.4231967; double temp; temp=sigma*OldRand; OldRand=temp-(int)temp; return (int)(OldRand*(float)range); }

void New_Col (int xa,int ya,int x,int y,int xb,int yb) { unsigned int color; color=abs(xa-xb)+abs(ya-yb); color=randint(color<<1)-color; color=color+(get_pixel(xa,ya)+get_pixel(xb,yb)+1)>>1; if (color<1) color=1; else if (color>255) color=255; if ((get_pixel(x,y)==0)) plot (x,y,color); }

void Sub_Divide (int x1,int y1,int x2,int y2) { int x,y; unsigned char color; if (!((x2-x1<2)&&(y2-y1<2))) { x=(x1+x2)>>1; y=(y1+y2)>>1; New_Col (x1,y1,x,y1,x2,y1); New_Col (x2,y1,x2,y,x2,y2); New_Col (x1,y2,x,y2,x2,y2); New_Col (x1,y1,x1,y,x1,y2); color=(get_pixel(x1,y1)+get_pixel(x2,y1)+get_pixel(x2,y2)+get_pixel (x1,y2)+2)>>2; plot (x,y,color); Sub_Divide (x1,y1,x,y); Sub_Divide (x,y1,x2,y); Sub_Divide (x,y,x2,y2); Sub_Divide (x1,y,x,y2); } }

main () { int x,y; x=320;y=200; Set_Graphics_Mode (x,y); set_pattern (); plot (0,0,randint(254)+1); plot (x-1,0,randint(254)+1); plot (x-1,y-1,randint(254)+1); plot (0,y-1,randint(254)+1); Sub_Divide (0,0,x-1,y-1); getch(); Set_Mode (0x03); }


2004-08-17 13:51
mkmny
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2004-8-17
收藏
得分:0 

楼上的MM你可看清了,我已经注明是转载了!我只知道此程序借用一对名为int86()和int86x()的函数,使你不仅可以调用DOS函数,还可以调用其它低级函数。用这些函数可以跳过标准的C函数而直接调用DOS函数。因而没有调用graphics.h

呵呵,我也不知道我说的对不对。也希望大家有一说一!!!


2004-08-18 11:19
mkmny
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2004-8-17
收藏
得分:0 
以下是引用忆楠在2004-08-18 11:06:34的发言:

呵呵 很漂亮啊 楼上的大哥说不能动 我用win-tc 云彩是有变化的 仔细看看

哪里有变化,我也用Win-tc试了试。还是静态的呀!!!忆楠大哥不会是把眼睛看花了吧?呵呵,不要生气…… 云彩真的在运动吗?


2004-08-18 11:33
mkmny
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2004-8-17
收藏
得分:0 

仔细分析了一下这个程序(虽不能完全看懂……),这似乎,好像,的确绘出的是一张静态图。按理说不会有什么变化的呀!

忆楠:你到底是怎么看到变化的?仔细说一说吧。(不过你是不是有必要好好休息一下,盯着屏幕时间太久了吧)


2004-08-21 09:31
mkmny
Rank: 1
等 级:新手上路
帖 子:30
专家分:0
注 册:2004-8-17
收藏
得分:0 

还要懂汇编和微机原理?哦,我的天哟!!!××××××××××

看来我至少要等到大三才能看懂这个程序了。


2004-09-14 12:20
快速回复:一个模拟自然云朵的C程序(转载) 实在是漂亮!!!
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014039 second(s), 8 queries.
Copyright©2004-2025, BC-CN.NET, All Rights Reserved