rem グラフ
new
dim io, gw, gh, gx1, gy1, gx2, gy2
gw = 300	' グラフ幅
gh = 300	' グラフ高さ
gx1 = -2	' 左上X座標
gy1 = 2		' 左上Y座標
gx2 = 2		' 右下X座標
gy2 = -2	' 右下Y座標

' 座標変換
sub zx(x){ x * gw / (gx2 - gx1) + abs(gw / (gx2 - gx1) * gx1) }
sub zy(y){ y * gh / (gy2 - gy1) + abs(gh / (gy2 - gy1) * gy1) }
sub zpos(x, y){ io.pos( zx(x), zy(y) ) }
sub zline(x, y){ io.line( zx(x), zy(y) ) } 

' グリッド表示( x:X間隔 y:Y間隔 )
sub grid(x, y){
	dim n, m
	io.color = 0xd0d0d0
	n = gx1
	m = gx2
	if(gx1 > gx2){ n = gx2 m = gx1 }
	while(n < m){
		zpos(n, gy1)
		zline(n, gy2)
		n = n + x
	}
	n = gy1
	m = gy2
	if(gy1 > gy2){ n = gy2 m = gy1 }
	while(n < m){
		zpos(gx1, n)
		zline(gx2, n)
		n = n + y
	}
}

' グラフ関数
sub f(x) { pow(x, 3) }

' グラフ準備
Screen(gw, gh)
MainTextBox.Visible = 0
io = Create Image
io.Width = gw
io.Height = gh

grid(1, 1)

' グラフ表示
dim x
io.color = 0x000000
x = gx1
zpos(x, f(x))
while(x < gx2){
	zline(x, f(x))
	x = x + 0.01
}