直线裁剪Cohen-SutherLand算法

1）理解并掌握Cohen-SutherLand 算法的编码思想； 3. 实验要求 1）将像素网格表现出来，建立网格坐标系； 2）用橡皮筋的形式输入剪裁线段和裁剪窗口； 3）鼠标移动时，显示鼠标当前位置； 4）对于线段裁剪，线段被窗口的四条边裁剪的过程要显示出来； 6）裁剪过程可以重复进行。

//---------------------------------------------------------------------------

#include 
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM（“Unit1.cpp“ Form1）;
//---------------------------------------------------------------------------
WINAPI WinMain（HINSTANCE HINSTANCE LPSTR int）
{
        try
        {
                 Application->Initialize（）;
                 Application->CreateForm（__classid（TForm1） &Form1）;
                 Application->Run（）;
        }
        catch （Exception &exception）
        {
                 Application->ShowException（&exception）;
        }
        catch （...）
        {
                 try
                 {
                         throw Exception（““）;
                 }
                 catch （Exception &exception）
                 {
                         Application->ShowException（&exception）;
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件       3579  2010-06-22 23:32  截图直线段Sutherland\Project1.bpr

     文件       1069  2010-05-29 12:18  截图直线段Sutherland\Project1.cpp

     文件     131072  2010-06-22 23:31  截图直线段Sutherland\Project1.exe

     文件      17898  2010-06-22 23:31  截图直线段Sutherland\Project1.obj

     文件      99908  2010-06-22 23:31  截图直线段Sutherland\Project1.res

     文件    2031616  2010-06-22 23:32  截图直线段Sutherland\Project1.tds

     文件       3579  2010-06-22 23:30  截图直线段Sutherland\Project1.~bpr

     文件      14621  2010-06-02 18:45  截图直线段Sutherland\Unit1.cpp

     文件         51  2010-06-22 23:32  截图直线段Sutherland\Unit1.ddp

     文件        906  2010-06-22 23:31  截图直线段Sutherland\Unit1.dfm

     文件       1518  2010-06-02 15:23  截图直线段Sutherland\Unit1.h

     文件      56734  2010-06-22 23:31  截图直线段Sutherland\Unit1.obj

     文件      14621  2010-06-02 18:45  截图直线段Sutherland\Unit1.~cpp

     文件         51  2010-06-22 23:30  截图直线段Sutherland\Unit1.~ddp

     文件     218970  2010-06-22 23:30  截图直线段Sutherland\Unit1.~dfm

     文件       1518  2010-06-02 15:23  截图直线段Sutherland\Unit1.~h

     文件        102  2010-06-24 20:56  readme.txt

     目录          0  2010-06-23 00:37  截图直线段Sutherland

----------- ---------  ---------- -----  ----

              2597813                    18