【计算几何画图器 For Pascal V1.01】

计算几何难写主要的原因就是太不直观，而手画图“精度”有限，效率也不高，怎么办？

写程序画是一个不错的想法！

于是我就找盾哥学了一下graph和crt单元的一些用法，做了这样一个简陋的画图器

为了方便使用，我把这个画图器做成了一个库，要使用就只要uses draw_lib;就可以了

代码：

unit draw_lib; interface procedure init(k:longint); procedure putpoint(x,y:longint); procedure putline(x1,y1,x2,y2:longint); procedure putcircle(x,y,r:longint); procedure pause; implementation uses crt,graph; var bili:real; o,max:longint; procedure pause; var c:char; begin c:=#0; repeat c:=readkey; until c<>#0; end; procedure changexy(var x,y:longint); var t:longint; begin if o=1 then begin x:=trunc(x*bili); y:=trunc(y*bili) end; x:=x+50; y:=550-y; end; procedure fill(x,y:longint); var r:longint; begin circle(x+1,y,2); circle(x,y+1,2); circle(x-1,y,2); circle(x,y-1,2); settextstyle(0,0,1); outtextxy(x-3,y-3,#7); end; procedure putpoint(x,y:longint); begin changexy(x,y); fill(x,y); end; procedure putline(x1,y1,x2,y2:longint); begin changexy(x1,y1); changexy(x2,y2); if o=1 then begin fill(x1,y1); fill(x2,y2); end; line(x1,y1,x2,y2); end; function istr(i:longint):string; begin str(i,istr); end; procedure putcircle(x,y,r:longint); begin changexy(x,y); setlinestyle(0,0,2); circle(x,y,trunc(r*bili)); fill(x,y); end; function f(x:longint):longint; begin x:=trunc(x/500*max); end; procedure init(k:longint); var i:longint; t1,t2:integer; begin t1:=d8bit; t2:=m800x600; max:=k; initgraph(t1,t2,''); bili:=500/k; o:=0; setlinestyle(0,0,2); line(50,550,50,50); line(50,550,550,550); line(50,50,45,55); line(50,50,55,55); line(550,550,545,545); line(550,550,545,555); putpoint(0,0); o:=1; settextstyle(0,0,2); outtextxy(36,555,'O'); settextstyle(0,0,1); for i:=6 to 54 do begin line(50,i*10,53,i*10); if i mod 5=0 then outtextxy(26,i*10-2,istr(f((55-i)*10))); end; for i:=6 to 54 do begin line(i*10,550,i*10,547); if i mod 5=0 then outtextxy(i*10-7,556,istr(f((i-5)*10))); end; end; begin end.  

本库暂时只支持画非负整数域内的 点、线、圆，如果要画实数，或负数，可以考虑自己手动先转化一下再使用

本库调用了crt和graph单元，你的fp需要有这两个单元这个库才能正常使用

使用方法：

1.调用draw_lib单元

2.先调用init(k)过程，初始化坐标系，k为坐标最大值

3.几个主要过程的格式

  putpoint(x,y)，画一个坐标为(x,y)的点

  putline(x1,y1,x2,y2)，画一条(x1,y1) -> (x2,y2)的线段

  putcircle(x,y,r)，画一个圆心为(x,y)，半径为r的圆

  pause，暂停，按任意键继续（这个功能还有点问题，但要正常使用的话还是可以的，只是要求你的程序不能直接将输入流改成标准文件输入input，而是另外弄一个文件类型的变量作为输入流，原因应该是如果你的程序将输入流重定向到文件，程序就不能从键盘输入了）

4.上面提到的所有过程的参数都是整数

5.一个参考的将实数转化为整数的方法，先乘一个比例系数再round一下；将负数转化为正数的方法，加上一个比较大的数。-_-!

 

就这样吧，祝大家使用愉快，有发现bug或好的想法请联系我