怎样在VC环境下实现 #include<graphics.h> 库函数
#include<stdio.h>#include<graphics.h>#include<string.h>#include<...
#include<stdio.h>#include<graphics.h>#include<string.h>#include<math.h>#define Scale 1.35void DrawFace(int F,int Fc[30][11],float St[50][3],float Rol,float DE,float Aux1,float Aux2,float Aux3,float Aux4,float Aux5,float Aux6,float Aux7,float Aux8){ float XObs,YObs,ZObs,XProj,YProj; int XScreen,YScreen; int S,NS,No; float X,Y,Z,X0,Y0,Z0; int MaxX=getmaxx(); int MaxY=getmaxy(); NS=Fc[F][0]; for(S=1;S<=NS;S++) { No=Fc[F][S];X=St[No][1];Y=St[No][2];Z=St[No][3]; XObs=-X*Aux1+Y*Aux3;YObs=-X*Aux5-Y*Aux6+Z*Aux4; ZObs=-X*Aux7-Y*Aux8-Z*Aux2+Rol; XProj=DE*XObs/ZObs;YProj=DE*YObs/ZObs; XScreen=floor(0.5+XProj*Scale+MaxX/2);YScreen=floor(0.5+MaxY/2-YProj); if(S==1) { moveto(XScreen,YScreen); X0=XScreen;Y0=YScreen; } else lineto(XScreen,YScreen); } lineto(X0,Y0);}void DrawObject(int Fc[30][11],float St[50][3],int NF,float Rol,float Theta,float Phi,float DE,int Dot){ float Th,Ph,Aux1,Aux2,Aux3,Aux4,Aux5,Aux6,Aux7,Aux8; int F,St1,St2,St3; float P1,P2,P3,Q1,Q2,Q3; float v1,v2,v3,n1,n2,n3; float O1,O2,O3,SProduct; Th=3.1415926*Theta/180;Ph=3.1415926*Phi/180; Aux1=sin(Th);Aux2=sin(Ph);Aux3=cos(Th);Aux4=cos(Ph);Aux5=Aux3*Aux2; Aux6=Aux1*Aux2;Aux7=Aux3*Aux4;Aux8=Aux1*Aux4; O1=Rol*Aux7;O2=Rol*Aux8;O3=Rol*Aux2; for(F=1;F<=NF;F++) { St1=Fc[F][1];St2=Fc[F][2]; St3=Fc[F][3]; v1=O1-St[St1][1];v2=O2-St[St1][2];v3=O3-St[St1][3]; P1=St[St2][1]-St[St1][1];P2=St[St2][2]-St[St1][2];P3=St[St2][3]-St[St1][3]; Q1=St[St3][1]-St[St1][1];Q2=St[St3][2]-St[St1][2];Q3=St[St3][3]-St[St1][3]; n1=P2*Q3-Q2*P3;n2=P3*Q1-Q3*P1;n3=P1*Q2-Q1*P2; SProduct=v1*n1+v2*n2+v3*n3; if(SProduct>0.0) { setlinestyle(SOLID_LINE,0,NORM_WIDTH); DrawFace(F,Fc,St,Rol,DE,Aux1,Aux2,Aux3,Aux4,Aux5,Aux6,Aux7,Aux8); }
展开
1个回答
2011-12-01
展开全部
苍天啊,这代码乱的。。。
vc下可以安装easyx实现graphics.h,不过你仍然不能直接编译原来的tc代码。你搜索“将 TC 下的绘图和游戏程序移植到 VC 下”,会有文章指导你怎么做。
vc下可以安装easyx实现graphics.h,不过你仍然不能直接编译原来的tc代码。你搜索“将 TC 下的绘图和游戏程序移植到 VC 下”,会有文章指导你怎么做。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询