绘图程序例

会计考友

　　绘图程序例
　　下面的程序可以绘出如下三个图形：
　　源程序
% Q! A6 A/ ^4 D% \　　#include
　　float x1，x2，y1，y2，x，y，k1，k2，sxr，syr，
4 @0 R2 i" S5 R/ X　　minx，maxx，miny，maxy，sx0，sy0，r;
- o4 r7 u! o! {　　theta=2*Pi/60;
　　maxx=rs*cos*0.017453); 赋初值
　　maxy=rs*sin*0.017453); 赋初值
　　minx=rs*cos*0.017453); 赋初值
　　miny=rs*sin*0.017453); 赋初值
  {2 c5 e# b9 V; v　　for
$ R1 a( @- _, A: y  e: N7 B) T- F　　x1=minx; 窗口左边界赋值
4 A! W+ h. K/ G' t3 g& {7 Q  p! d  o1 e　　x2=maxx; 窗口右边界赋值
　　y1=miny; 窗口下边界赋值
　　y2=maxy; 窗口上边界赋值
　　wx1=280; 取定视口左边界
　　wx2=330; 取定视口右边界
　　wy1=195; 取定视口下边界
. d7 R  P5 q3 L. T2 a+ S* S　　wy2=245; 取定视口上边界
　　k1=/;
) ?; v5 u  _8 I& a& E) v　　窗口到视口变换x方向的比例系数
　　k2=/;
- V4 @  S4 I7 R7 @  z  X　　窗口到视口变换y的比例系数
　　sx0=wx1+*k1;
　　sy0=wy1+*k2;
2 J* x* e8 q; X" e　　setcolor;
　　setfillstyle;
  b2 v  g0 R% X7 O　　bar3d;
　　下面语句的注释见画贝壳函数roundshell中相应的说明
　　{
$ }) G" J. P3 J- V　　theta=2*Pi*i/60;
　　x=rs*cos*0.017453);
　　y=rs*sin*0.017453);
　　sxr=wx1+*k1;
6 S$ ], ]- A" s& Z5 M1 f　　syr=wy1+*k2;
7 n' Y9 [/ I! ]9 l4 [　　sx=wx1+*k1;
　　sy=wy1+*k2;
& b! u3 e: j/ ^7 c, R　　setcolor;