From c99a0acf631f7c810d025cfd5f122d2fb0e58c99 Mon Sep 17 00:00:00 2001 From: Ian C Date: Fri, 21 Oct 2005 02:17:01 +0000 Subject: *** empty log message *** --- vectorgfx/test.bmx | 15 +++++++++++++++ 1 file changed, 15 insertions(+) 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 -- cgit v1.2.3