图形学纹理程序 mfc

// 平面扰动生成大理石纹理，仅在平面内，用仅一项的noise(uu,vv),效果一般。
// 三维无扰动正弦波生成

        for(i=20;i<=275;i++){                  //生成对比用颜色长条
k=(i-20)/255;t1=(i-20)%255;
k1=colvalue(k,t1);
for(j=5;j<15;j++) pDC->SetPixel(i,j,k1);
}

        double s,t,x,y,pi;
double xt,fi,rr,uu,vv,n0x,n0y,n0z,Lx,Ly,Lz,Vx,Vy,Vz,kpa,kpd,kps;

pi=3.1415926535;x=0.0;k=0;y=0.065*pi;uu=vv=0; //生成未做扰动纹理
for(i=10;i<=160;i++){
for(j=20;j<170;j++) {
s=sin(x);t1=(int)(72.5*(s+1.0));k1=colvalue(0,t1);
pDC->SetPixel(i,j,k1);
}
x=x+y;
}
        x=0.0;                        //生成扰动后纹理
for(i=180;i<=330;i++){
        for(j=20;j<170;j++) {
vv=(double)(j-20)/150.0;
s=sin(x);t=2.0*noise(uu,vv);
t1=(int)(60.0*(s+t+1.0));k1=colvalue(0,t1);
pDC->SetPixel(i,j,k1);
//                 CString st1,st2,st3,st4,st5; //调试用
// st1.Format("x=%10.5f  ",x);pDC->TextOut(0,12+14*k,st1);
// st2.Format("s=%10.5f  ",s);pDC->TextOut(120,12+14*k,st2);