Oxygen Update

[Charles Pegge]

Christmas edition:  

http://www.oxygenbasic.org/forum/index.php?topic=749

[Charles Pegge]

February edition:

Ability to create dynamic arrays with LET syntax (still testing this feature)

type vector float x,y,z
let n=1000
let v=vector,n


Also:

Improved alignment rules for types/structures.

Support for multimensional array declarations in C headers.

Support for C-style multi-assignments: inner braces: ={ {..},{..},... }

Improved #show for displaying line assembly code


http://www.oxygenbasic.org/forum/index.php?topic=749.0


Time to remain indoors in front of a nice warm PC

[Charles Pegge]

One further tweak was required for the new #show to work properly.

Also transferred  tools/ to ProjectsA/ in the in-progress zip

One of the tools, renamed FindIt has been revised and transferred to the main directory. It performs searches on groups of files. Works quite well with José Roca Headers, which is a demanding test in terms of size and number of files!

Typical search groups: (each separated by a blank line)

Code: [Select]

examples\Basics\*.*
examples\wingui\*.*
examples\opengl\*.*
examples\constructs\*.*
examples\basics\*.*

inc\*.*
inc\glo2\*.*
inc\glo2\gl\*.h

src\*.*

'VB 2004
\users\charles\desktop\BasicCands\WinApi2004.inc

'Jose Roca headers
\users\charles\desktop\BasicCands\JoseInc\*.inc

.

[Charles Pegge]

Transparent Scene-Shots

All the demos using OpenglSceneFrame.inc can produce a sceneshot with ctrl-P. If the scene has a uniform background, it will also be possible to make the background transparent by keying shift-ctrl-P. This action will result in a png file instead of a jpeg.

The background color is read from the botton left pixel of the client area.

demos with this facility:

examples/Opengl/*.o2bas
projectsA/OpenglGui/viewer.o2bas

Click on the wizard for the latest version.

[Charles Pegge]

OxIde.exe: Drag & Drop Editing and Execution of Scripts.


If you drop o2bas or bas file icons into the edit area of Oxide, the scripts will automatically load. If you drop them above the main edit area, they will also compile and execute.

I developed this when I discovered that it is nigh impossible to set up file associations for Ubuntu Wine applications. Anyway, I think this facility will be good for general use in native windows too.

PS: The austere Courier font can be changed by editing oxide.cfg, when oxide is not in use. For Windows, the nicest is probably Lucida console. And for Wine: Liberation Mono.

[JRS]

I just download and installed O2 on my Windows 7 64 bit partition and tried the SDL fern demo with the new OxyIDE front end. I really like the drag/drop feature. Thanks for the O2 SDL interface source. At least now I don't have to beg Peter for docs or source to try and make his stuff work.

FYI: The fern seem to take a lot longer than what I would have expected. I even tried putting the flip() outside the loop to wait until it was finished. It helped but still too slow for an O2 app. The Mandelbrot and bouncing rings (I'm stealing that one) work fine. So far the fern demo is the only example that doesn't seem right.

[Charles Pegge]

Hi John,

The SDL fern is slow due to 1 point-per-frame. It can be speeded up as fast as you please: This one runs 10x faster:

Code: [Select]

include "sdl.inc"

SetDisplay 640,500, 1
SetCaption "SDL FERN DEMO"

single a, b, c, d, e, f, newx, newy, sys r, wa
Dim xy(2) as single

Sub Fern
r = Rand(0,100)
iF r <= 10
   a = 0
   b = 0
   c = 0
   d = 0.16
   e = 0
   f = 0
ElseiF r > 1 and r <=86
   a = 0.85
   b = 0.04
   c = -.04
   d = 0.85
   e = 0
   f = 1.60
ElseiF r > 86 and r <=93
   a = 0.2
   b = -.26
   c = 0.23
   d = 0.22
   e = 0
   f = 0.16
Else
   a = -.15
   b = 0.28
   c = 0.26
   d = 0.24
   e = 0
   f = 0.44
End iF
newx = ((a * xy(1)) + (b * xy(2)) + e)
newy = ((c * xy(1)) + (d * xy(2)) + f)
xy(1) = newx
xy(2) = newy
SetPixel xy(1)*40+275,xy(2)*40+50, 0,210,55
End Sub

ClsColor 28,28,28
wa=0
do
  for i=1 to 10
    wa++
    if wa=30000 or key(27) then exit do
    Fern
  next
  SetCaption "Fern Points:  " + str(wa)
  Flip
end do
WaitKey(27)
Ends

PS: none of these SDL demos work under UBUNTU/Wine, and GDIplus is a bit shaky too. Maybe its the DLL versions I am using.

I am expecting the blus screen any moment now. But time enough to write this message

PPS: After Ubuntu reboot, SDL is now working properly.

[JRS]

Thanks Charles!

I'll give the new fern example a try.

OT:

Even though I like Windows 7 better than XP, it's slower than Linux. Windows 64 bit is mostly running on new, experimental, ... drivers from major open source projects. I guess no one thought MS was ever going to get to 64 bit and it's a waste land on this platform.

[JRS]

Something is still not right. SB is doing 30,000 iterations like O2 but your results seem more dense. I modified your version to display execution time.

BTW: Why does O2 have such a problem with t2-t1/1000 or (t2-t1)/1000 ? I had to get very basic with the expression to return the desired results.

Peter's O2 SDL fern example

Code: [Select]

include "sdl.inc"

SetDisplay 640,500, 1
SetCaption "SDL FERN DEMO"
single a, b, c, d, e, f, newx, newy, sys r, wa, t1, t2, t3
Dim xy(2) as single

Sub Fern
r = Rand(0,100)
iF r <= 10
   a = 0
   b = 0
   c = 0
   d = 0.16
   e = 0
   f = 0
ElseiF r > 1 and r <=86
   a = 0.85
   b = 0.04
   c = -.04
   d = 0.85
   e = 0
   f = 1.60
ElseiF r > 86 and r <=93
   a = 0.2
   b = -.26
   c = 0.23
   d = 0.22
   e = 0
   f = 0.16
Else
   a = -.15
   b = 0.28
   c = 0.26
   d = 0.24
   e = 0
   f = 0.44
End iF
newx = ((a * xy(1)) + (b * xy(2)) + e)
newy = ((c * xy(1)) + (d * xy(2)) + f)
xy(1) = newx
xy(2) = newy
SetPixel xy(1)*40+275,xy(2)*40+50, 0,210,55
End Sub

t1 = SDL_GetTicks
ClsColor 28,28,28
wa=0
do
  for i=1 to 10
    wa++
    if wa=30000 or key(27) then exit do
    Fern
  next
  SetCaption "Fern Points:  " + str(wa)
  Flip
end do
t2 = SDL_GetTicks
t3 = t2 - t1

PRINT t3 / 1000
WaitKey(27)
Ends

Script BASIC GFX fern example

Code: [Select]

' ScriptBasic GFX - Fern

IMPORT gfx.inc

s = gfx::Window(640,500,"ScriptBasic GFX Fern")
RANDOMIZE(gfx::Time())
SPLITA STRING(3,"0") BY "" TO xy

SUB Fern
r = RND() % 100
IF r <= 10 THEN
   a = 0
   b = 0
   c = 0
   d = 0.16
   e = 0
   f = 0
ELSE IF r > 1 AND r <=86 THEN
   a = 0.85
   b = 0.04
   c = -.04
   d = 0.85
   e = 0
   f = 1.60
ELSE IF r > 86 AND r <=93 THEN
   a = 0.2
   b = -.26
   c = 0.23
   d = 0.22
   e = 0
   f = 0.16
ELSE
   a = -.15
   b = 0.28
   c = 0.26
   d = 0.24
   e = 0
   f = 0.44
END IF
newx = ((a * xy[1]) + (b * xy[2]) + e)
newy = ((c * xy[1]) + (d * xy[2]) + f)
xy[1] = newx
xy[2] = newy
gfx::pixelRGBA s, INT(xy[1]*40+300), INT(-xy[2]*40+450), 0, 210, 55, 255
END SUB

ts = gfx::Time()
FOR w=1 TO 30000
    Fern
NEXT
te = gfx::Time()
gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0xffffffff
gfx::Update
WHILE gfx::KeyName(1) <> "+escape"
WEND
gfx::Close



.

[Charles Pegge]

It's Peter's code, BTW. The pixels are extra large. (t2-t1)/1000 is the right expression, but you will have to use explicit brackets with the print function, due to the leading left bracket.

print ( (t2-t1)/1000 )

better solution, also eliminating the expensive division operator:

print 0.001*(t2-t1)

Something a little more exotic:

You can temporarily suppress the rules of operator precedence and use left-to-right evaluation

#noprec print t2-t1*0.001

[JRS]

It's Peter's code, BTW.

I'm assuming you mean the fern example not the SDL interface?

[Charles Pegge]

The SDL inc file is also Peter's

He made inc files for GDI and GDI+ too.

[JRS]

Good to see Peter come around and make it worthwhile to improve on his library. At least I'm no longer programming blind.

[Charles Pegge]

Peter produced all these examples before his DLL phase

[JRS]

Peter produced all these examples before his DLL phase

Old code. 

I would remove it from your zip then.