summaryrefslogtreecommitdiff
path: root/vectorgfx
diff options
context:
space:
mode:
authorIan C <ianc@noddybox.co.uk>2005-10-21 02:17:01 +0000
committerIan C <ianc@noddybox.co.uk>2005-10-21 02:17:01 +0000
commitc99a0acf631f7c810d025cfd5f122d2fb0e58c99 (patch)
treef580706d08221e08f967dea99678293db4f85a79 /vectorgfx
parentb85e83e98755140c446e60cda6ec545bd8ccab6f (diff)
*** empty log message ***
Diffstat (limited to 'vectorgfx')
-rw-r--r--vectorgfx/test.bmx15
1 files changed, 15 insertions, 0 deletions
diff --git a/vectorgfx/test.bmx b/vectorgfx/test.bmx
index c668e92..0b12e11 100644
--- a/vectorgfx/test.bmx
+++ b/vectorgfx/test.bmx
@@ -22,6 +22,7 @@ Local o2:TVectorGfxObject=New TVectorGfxObject
'Local o2:TVectorGfxObject=TVectorGfxObject.Load("obj2.2d")
Local cm:TVectorGfxCollisionMap=TVectorGfxCollisionMap.Create(MSIZE,MSIZE)
+'Local cm:TVectorGfxCollisionMap=TVectorGfxCollisionMap.Create(SCRW,SCRH)
Local l:TList=CreateList()
@@ -54,6 +55,9 @@ o2.SetLines(l.ToArray())
o2.Save("obj2.2d")
'EndRem
+Local o3:TVectorGfxObject=o1.Clone()
+o3.x:/2
+
Type FadeLine Extends TVectorGfxLineStyle
Method Draw:Int(x1:Int, y1:Int, x2:Int, y2:Int, r:Int, g:Int, b:Int, id:Int, obj:TVectorGfxObject, line:Int, colmap:TVectorGfxCollisionMap, actor:Int, list:TList)
'Method Draw:Int(x1:Int, y1:Int, x2:Int, y2:Int, r:Int, g:Int, b:Int, id:Int, colmap:TVectorGfxCollisionMap)
@@ -168,9 +172,19 @@ While Not KeyHit(KEY_ESCAPE)
VectorGfxSetCustom(New FadeLine)
EndIf
+ If KeyDown(KEY_UP)
+ o1.scale:+0.1
+ EndIf
+
+ If KeyDown(KEY_DOWN)
+ o1.scale:-0.1
+ EndIf
+
o1.Draw(cm)
o1.ang=(o1.ang+2) Mod 3600
+ o3.Draw(cm)
+
o2.x=MouseX()
o2.y=MouseY()
@@ -192,6 +206,7 @@ While Not KeyHit(KEY_ESCAPE)
Next
DrawText (MilliSecs()-t) + ":Col=" + o2.Draw(cm),0,0
+ DrawText MemAlloced(),0,10
Flip
FlushMem