From f460a00c347b44b7633366275e56a1f2b34b7fa7 Mon Sep 17 00:00:00 2001
From: Ian C <ianc@noddybox.co.uk>
Date: Thu, 15 Sep 2005 01:02:13 +0000
Subject: *** empty log message ***
---
glflag/test.bmx | 38 ++++++++++++++++++++++--------------
imagefont/bmaxtest.bmf | Bin 22016 -> 84480 bytes
imagefont/test.bmx | 6 ++++--
simplegui/.cvsignore | 2 ++
simplegui/font.bmf | Bin 0 -> 24420 bytes
simplegui/test.bmx | 52 +++++++++++++++++++++++++++++++++++++++++++++++++
6 files changed, 81 insertions(+), 17 deletions(-)
create mode 100644 simplegui/.cvsignore
create mode 100644 simplegui/font.bmf
create mode 100644 simplegui/test.bmx
diff --git a/glflag/test.bmx b/glflag/test.bmx
index 24aa3ba..7fadef6 100644
--- a/glflag/test.bmx
+++ b/glflag/test.bmx
@@ -27,25 +27,33 @@ glDisable(GL_LIGHTING)
glMatrixMode(GL_MODELVIEW)
-cells=50
-size=1
-
-'f:GLFlag=GLFlag.Create(tid1,cells,cells,size,False,-200)
-f:GLFlag=GLFlag.Create(tid2,cells,cells,size,True,-200)
-
-c=0
+cells=100
+size=10
+
+f1:TGLFlag=TGLFlag.Create(tid1,cells,cells,size,False,-400)
+f2:TGLFlag=TGLFlag.Create(tid2,cells,cells,size,True,-400)
+
+f1.SetMove(300)
+f2.SetMove(300)
+'f.xrot=-60
+
+For x=0 Until cells
+ For y=0 Until cells
+ dx=cells/2-x
+ dy=cells/2-y
+
+ f1.Nudge(x,y,((dx*dx)+(dy*dy))*10,50)
+ f2.Nudge(x,y,((dx*dx)+(dy*dy))*10+1800,50)
+ c:+100
+ Next
+Next
While Not KeyDown(KEY_ESCAPE)
- c:+1
-
- If (c=100)
- f.Nudge(Rand(0,cells-1),Rand(0,cells-1),Rnd(),Rnd(),Rnd())
- c=0
- EndIf
-
glClear(GL_COLOR_BUFFER_BIT|GL_DEPTH_BUFFER_BIT)
glLoadIdentity()
- f.Render(0.9,0.95)
+ f1.Render()
+ f2.Render()
+ 'f.yrot:+0.1
bglSwapBuffers
FlushMem
Wend
diff --git a/imagefont/bmaxtest.bmf b/imagefont/bmaxtest.bmf
index 55ae145..1867516 100644
Binary files a/imagefont/bmaxtest.bmf and b/imagefont/bmaxtest.bmf differ
diff --git a/imagefont/test.bmx b/imagefont/test.bmx
index 29095c4..b17278a 100644
--- a/imagefont/test.bmx
+++ b/imagefont/test.bmx
@@ -3,14 +3,14 @@
Import noddybox.bitmapfont
'Import "BitmapFont.bmx"
-Incbin "bmaxtest3.bmf"
+Incbin "bmaxtest.bmf"
Const SCRW=640
Const SCRH=480
SetGraphicsDriver GLMax2DDriver()
Graphics SCRW,SCRH,32,60' Or HARDSYNC
-fnt:BitmapFont=BitmapFont.Load("incbin::bmaxtest3.bmf",0)
+fnt:TBitmapFont=TBitmapFont.Load("incbin::bmaxtest.bmf",0)
If fnt=Null
RuntimeError "Failed to open font"
@@ -117,3 +117,5 @@ While Not KeyHit(KEY_ESCAPE)
Flip
Wend
+
+EndGraphics
diff --git a/simplegui/.cvsignore b/simplegui/.cvsignore
new file mode 100644
index 0000000..8f686ea
--- /dev/null
+++ b/simplegui/.cvsignore
@@ -0,0 +1,2 @@
+test.debug.exe
+.bmx
\ No newline at end of file
diff --git a/simplegui/font.bmf b/simplegui/font.bmf
new file mode 100644
index 0000000..38378e6
Binary files /dev/null and b/simplegui/font.bmf differ
diff --git a/simplegui/test.bmx b/simplegui/test.bmx
new file mode 100644
index 0000000..aaf94c2
--- /dev/null
+++ b/simplegui/test.bmx
@@ -0,0 +1,52 @@
+' $Id$
+
+Import noddybox.simplegui
+Import noddybox.bitmapfont
+
+Incbin "font.bmf"
+
+Const SCRW=800
+Const SCRH=600
+
+SetGraphicsDriver GLMax2DDriver()
+Graphics SCRW,SCRH,32,60' Or HARDSYNC
+
+font:TBitmapFont=TBitmapFont.Load("incbin::font.bmf",0)
+
+gui:TGUIHandler=TGUIHandler.Create()
+
+label1:TLabel=TLabel.Create(font,0,0,"Text 1: ")
+label2:TLabel=TLabel.Create(font,0,20,"Text 2: ")
+text1:TText=TText.Create(font,label1.w,0,"Text entry 1",20)
+text2:TText=TText.Create(font,label2.w,20,"Text entry 2",30)
+
+gui.Register(label1)
+gui.Register(label2)
+gui.Register(text1)
+gui.Register(text2)
+
+SetBlend(ALPHABLEND)
+
+While Not KeyHit(KEY_ESCAPE)
+ Cls
+
+ If KeyHit(KEY_F1)
+ gui.SetFocus(Null)
+ EndIf
+
+ If KeyHit(KEY_F2)
+ gui.SetFocus(text1)
+ EndIf
+
+ If KeyHit(KEY_F3)
+ gui.SetFocus(text2)
+ EndIf
+
+ gui.EventLoop()
+
+ Flip
+ FlushMem
+Wend
+
+EndGraphics
+End
--
cgit v1.2.3