ShotGraph普通的画图的原理

ShotGraph 能在以下的环境中使用：

Visual Basic

VBScript

Visual Basic for applications (VBA), Word, Excel, etc.

Active Server Pages (ASP) engine with Internet Information Server

Perl for Windows

others

ShotGraph size=3>COOL代码:

上载文件

计数器

画GIF动画图形

画图形

我们来先来简单的：

Step by step

首先建立一个对象 "shotgraph.image".

使用 CreateImage 方法。

使用 SetColor 方法一次或者多次来定义画图要使用的颜色。

清除你图区中的所有内容，必要时使用 FillRect 普遍认为方法.

使用有效的方法画图.

使用 GifImage 函数. 你的图画就完成了！

下面的是一个简单的例子来说怎样用 shotgraph画图。

The size of the image is 201x201.

VBScript 中的代码：

set obj=CreateObject("shotgraph.image")

size=201
'Calling the CreateImage method
obj.CreateImage size,size,4

'Set 4 colors for drawing
obj.SetColor 0,255,255,255
obj.SetColor 1,0,0,0
obj.SetColor 2,255,108,0
obj.SetColor 3,0,0,204

'Crearing the painting area with color 0
obj.SetBgColor 0
obj.FillRect 0,0,size-1,size-1

'Color 0 will be used for drawing
obj.SetDrawColor 1
'Drawing the line
obj.Line size-1,0,0,size-1
'Color 2 will be used for filling
obj.SetBgColor 2
'Draw the big circle
obj.Ellipse 5,5,size-6,size-6
'Color 2 will be used for filling
obj.SetBgColor 3
'Draw the small circle
obj.Ellipse 5,(size-5)/4,size/2,(size-5)*3/4

'Create the image file named test.gif
obj.GifImage 0,1,"test.gif"

下面是在ASP和PERL中的代码：
asp

$obj=CreateObject("shotgraph.image")

$size=201
$obj->CreateImage($size,$size,4)
$obj->SetColor(0,255,255,255)
$obj->SetColor(1,0,0,0)
$obj->SetColor(2,255,108,0)
$obj->SetColor(3,0,0,204)
$obj->SetBgColor(0)
$obj->FillRect(0,0,$size-1,$size-1)

$obj->SetDrawColor(1)
$obj->Line($size-1,0,0,$size-1)
$obj->SetBgColor(2)
$obj->Ellipse(5,5,$size-6,$size-6)
$obj->SetBgColor(3)
$obj->Ellipse(5,($size-5)/4,$size/2,($size-5)*3/4)

$obj->GifImage(0,1,"test.gif")