diff options
| author | Ian C <ianc@noddybox.co.uk> | 2005-10-21 02:17:01 +0000 |
|---|---|---|
| committer | Ian C <ianc@noddybox.co.uk> | 2005-10-21 02:17:01 +0000 |
| commit | c99a0acf631f7c810d025cfd5f122d2fb0e58c99 (patch) | |
| tree | f580706d08221e08f967dea99678293db4f85a79 | |
| parent | b85e83e98755140c446e60cda6ec545bd8ccab6f (diff) | |
*** empty log message ***
| -rw-r--r-- | vectorgfx/test.bmx | 15 |
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 |