想用来画图，多给点函数名

freepascal.org有文档自己查

好多函数图像很奇怪 心形什么的

procedure Arc (坐标X,坐标Y;Integer;开始角度,结束角度,半径; Word);
备注：画弧
procedure Bar(坐标x1,坐标y1,坐标x2,坐标y2: Integer);
备注：画一个已填充的正方形
procedure Bar3D(坐标x1,坐标y1,坐标x2,坐标y2:Integer;高:Word;有没有顶:Boolean);
备注：画立方体
procedure Circle(坐标X,坐标Y:Integer;半径:Word);
备注：画圆
procedure ClearDevice;
备注：把指示器移到(0,0),用背景颜色去清屏，准备输出
procedure ClearViewPort;
备注：把填充颜色变为背景色，把指示器移到(0,0)
procedure CloseGraph
备注：关掉图象(garph)模式
procedure DetectGraph(var 驱动器,模式:Integer);
备注：检查硬件和找出用哪个驱动器和模式
procedure DrawPoly(点数: Word; var 坐标:PolyPoints);
备注：画多边形
procedure Ellipse(坐标X,坐标Y:Integer;开始角度,结束角度:Word;半径1,半径2:Word);
备注：画椭圆
procedure FillEllipse(坐标X,坐标Y:Integer;半径1,半径2: Word);
备注：画一个已填充的椭圆
procedure FillPoly(点数: Word; var 坐标:PolyPoints);
备注：画一个已填充的多边形
procedure FloodFill(坐标X,坐标Y:Integer;边界颜色: Word);
备注：填充一个边界的区域
procedure GetArcCoords(var 记录变量: _ArcCoordsType_);
备注：得到上一次画弧时的开始坐标，结束坐标和圆心坐标
procedure GetAspectRatio(var 比例X,比例Y:Word);
备注：得到屏幕高宽的比例
function GetBkColor: Word;
备注：返回当前的背景颜色
function GetColor: Word;
备注：得到当前的画图颜色
function GetDefaultPalette(var 记录变量: PaletteType);
备注：得到默认的颜色记录
function GetDriverName: string;
备注：得到驱动器的名字
procedure GetFillPattern(var 记录变量: FillPatternType);
备注：得到填充的模式
procedure GetFillSettings(var 记录变量: FillSettingsType);
备注：得到填充的设置
function GetGraphMode: Integer;
备注：得到图形的模式
procedure GetImage(坐标x1,坐标y1,坐标x2,坐标y2:Integer;var 位图:pointer);
备注：把一个指定区域里的一小片图象保存在缓冲器里
procedure GetLineSettings(var 记录变量: LineSettingsType);
备注：得到线的设置
function GetMaxColor: Word;
备注：得到最大的颜色
function GetMaxMode: Integer;
备注：得到最大的模式
function GetMaxX: Integer;
备注：得到最大的X坐标
function GetMaxY: Integer;
备注：得到最大的Y坐标
function GetModeName(模式序号: Integer): string;
备注：得到模式名
procedure GetModeRange(图象驱动:Integer; var 最小模式,最大模式:Integer);
备注：得到模式范围
procedure GetPalette(var 记录变量: PaletteType);
备注：得到当前的颜色记录
function GetPaletteSize: Integer;
备注：得到屏幕中颜色记录的尺寸
function GetPixel(坐标X,坐标Y: Integer): Word;
备注：得到(X,Y)的颜色
procedure GetTextSettings(var 记录变量: TextSettingsType);
备注：得到文字设置
procedure GetViewSettings(var ViewPort: ViewPortType);
备注：得到显示设置
function GetX: Integer;
备注：得到当前指示器的X坐标
function GetY: Integer;
备注：得到当前指示器的Y坐标
procedure GraphDefaults;
备注：把graph的所有设置变为原始状态


function GraphErrorMsg(错误号: Integer): string;
备注：返回指定错误号的信息
function GraphResult: Integer;
备注：返回最后一次画图时的错误号
function ImageSize(坐标x1,坐标y1,坐标x2,坐标y2:坐标Integer):坐标Word;
备注：返回一片区域储存所许的字节数
procedure InitGraph(var 驱动器:Integer;var 模式:Integer;到驱动器的路径:string);
备注：graph初始化
procedure Line(坐标x1,坐标y1,坐标x2,坐标y2:Integer);
备注：画线
procedure LineRel(坐标Dx,坐标Dy:Integer);
备注：画一条到指示器的线，坐标是对于指示器为(0,0)来说的
procedure LineTo(坐标X,坐标Y:Integer);
备注：画一条到指示器的线
procedure MoveRel(坐标Dx,坐标Dy: Integer);
备注：把指示器依到(Dx,Dy),坐标是对于指示器为(0,0)来说的
procedure MoveTo(坐标X,坐标Y: Integer);
备注：把指示器依到(x,y)
procedure OutText(字符串: string);
备注：在指示器位置上输出字符串
procedure OutTextXY(坐标X,坐标Y: Integer;字符串: string);
备注：在(x,y)位置输出字符串
procedure PieSlice(坐标X,坐标Y:Integer;开始角度,结束角度,半径:Word);
备注：画一个已填充的扇形
procedure PutImage(坐标X,坐标Y:Integer;var 位图:pointer;BitBlt:Word);
备注：把一个图象显示到显示器上,BitBlt处可为NormalPut,XORPut或者NotPut
procedure PutPixel(坐标X,坐标Y: Integer;颜色: Word);
备注：在(X,Y)上显示一个1*1的正方形
procedure Rectangle(坐标x1,坐标y1,坐标x2,坐标y2: Integer);
备注：画正方形
procedure RestoreCrtMode;
备注：恢复到刚初始化时的状态
procedure Sector(坐标x,坐标y:Integer;开始角度,结束角度,半径X,半径Y:Word);
备注：画一个已填充的椭圆部分
procedure SetActivePage(Page: Word);
备注：设置当前画图所在的页
procedure SetAllPalette(var Palette);
备注：把所有颜色设置变为特定的
procedure SetBkColor(颜色: Word);
备注：设置背景颜色
procedure SetColor(颜色: Word);
备注：设置颜色
procedure SetFillPattern(记录变量: FillPatternType;颜色:Word);
备注：设置填充颜色模式
procedure SetFillStyle(模式: ord;颜色: Word);
备注：设置填充颜色风格
procedure SetLineStyle(线风格:Word;模式:Word;厚度:Word);
备注：设置线的风格
procedure SetPalette(颜色序号:Word;颜色:Shortint);
备注：设置调色版
procedure SetTextStyle(字体,方向:Word;大小:Word);
备注：设置文字风格
procedure SetVisualPage(Page: Word);
备注：设置当前显示的页
procedure SetWriteMode(写字模式: Integer);
备注：设置写字模式
function TextHeight(字符串: string): Word;
备注：文字的高
function TextWidth(TextString: string): Word;
备注：文字的宽

http://www.freepascal.org/docs-html/rtl/

@
我恨吾师
赞一个！！！

我恨吾师
赞一个

putpixel最后一个形参，填什么数字啊