Converting My Blitz & Powerbasic Codes

[tazman47]

Hi all. I am new to this forum and somewhat new to GFA Basic 32. Many years back I used GFA on the Atari 1040 ST. I am now making an attempt at converting all of my Blitz and Powerbasic sources over to GFA. I have managed to convert a few of the source codes and will begin posting them shortly. I had forgotten how easy GFA Basic made creating games. ;D

[D.J.Peters]

Hello tazman47
welcome to the forum.

I give GB32 an try while i write an complex 3D editor with physical properties and i think GB32 is an good replacement for VisualBasic 6
i mean the creation of a GUI is in G32 really easy.

One question what are wrong with Blitz and Power Basic from your point of view ?

happy coding

Joshy

[tazman47]

Thanks for the welcome. Actually there is nothing wrong with Blitz but I decided i wanted to try something else and GFA32 fit the bill. As for Powerbasic it's way to difficult to use for an old 62 year old brain. If you wanted to try Powerbasic I would suggest the Powerbasic Console Compiler which is almost completely compatible with QuickBasic.

[D.J.Peters]

I was an PowerBasic programmer from the first day i wrote the PowerBasic GDK (game develooper kit) it was the time of Kirschbaum Software from Germany.

Currently i test open source AOI (Art of Illusion) wow i'm speechless.

Joshy

[funkheld]

Power Basic was yesterday, today is GFA32 ......

GFA32 ist wonderfull...

[tazman47]

Well, I know it's been quite a while but my Doctor decided I needed surgery so I played along with him.

Here's a little proggy converted from Blitz3D called 'Spinning Ellipse'. Don't have any idea who the original programmer was. Enjoy!!

'*****************************************
'* Spinning Ellipse *
'* Converted From Blitz 3D *
'* TazMan47 *
'*Don't Know Who The Blitz Programmer Was*
'*****************************************

Randomize Timer
Dim XPIXELS, YPIXELS, XC, YC, A, F, t, RX, RY, X, Y, CX, CY
Dim COSANGLE, SINANGLE, THETA

OpenW # 1, 300, 150, 640, 480, 32
'FullW # 1 '**** Un-Comment This If You Like Full Screen ****
XPIXELS = 640
YPIXELS = 480
XC = XPIXELS / 2
YC = YPIXELS / 2
Dim wPI As Double : wPI = 4 * Atn(1) '3.14159265358979323846264338327950288419716939937510
Do
Cls
A = 0
F = 300
Do
If Int(Rnd(1) * 25) = 0 Then Color Int(Rnd(1) * 15) + 1
Call DRAWELLIPSE(XC, YC - 4, 4 * F, 2 * F, A + 0)
A = A + .055
F = F / 1.0125
If F < 1 Then Exit Do
t = Timer + .015
While t > Timer
If InKey$ = Chr$(27) Then End 'Just Whack That Old ESCAPE KEY To Exit!!!!
Wend
Loop
Loop

Sub DRAWELLIPSE (CX As Single, CY As Single, WID As Single, HGT As Single, ANGLE As Single)
COSANGLE = Cos(ANGLE)
SINANGLE = Sin(ANGLE)

X = (WID * Cos(0))
Y = (HGT * -Sin(0))

RX = (X * COSANGLE) - (Y * SINANGLE)
RY = (Y * COSANGLE) + (X * SINANGLE)

Pset (RX + CX, RY + CY), 12

For THETA = 1 To 360
ANGLE = THETA * (wPI / 180)

X = WID * Cos(ANGLE)
Y = HGT * -Sin(ANGLE)

RX = (X * COSANGLE) - (Y * SINANGLE)
RY = (Y * COSANGLE) + (X * SINANGLE)
Line Step(0, 0)-(RX + CX, RY + CY)
Next
End Sub

[tazman47]

Here's another little conversion from Blitz3D to GFA32. I tested three of the functions and they work as they should. Enjoy!

'**************************************
'* 28 Blend Functions *
'* Converted From Blitz3D By TazMan47 *
'* Original Programmer Unknown *
'**************************************


Dim a As Integer
Dim b As Integer

Function Blend_Average(a As Int, b As Int)
Return (a + b) >> 1
EndFunc

Function Blend_Multiply(a As Int, b As Int)
Return (a * b) >> 8
EndFunc

Function Blend_Screen(a As Int, b As Int)
Return 255 - ((255 - a) * (255 - b) >> 8)
EndFunc

Function Blend_Darken(a As Int, b As Int)
If a < b Then Return a Else Return b
EndFunc

Function Blend_Lighten(a As Int, b As Int)
If a > b Then Return a Else Return b
EndFunc

Function Blend_Difference1(a As Int, b As Int)
Return Abs(a - b)
EndFunc

Function Blend_Difference2(a As Int, b As Int)
Return 255 - Abs(255 - a - b)
EndFunc

Function Blend_Difference3(a As Int, b As Int)
Return a + b - (a * b >> 7)
EndFunc

Function Blend_Overlay(a As Int, b As Int)
If a < 128 Then Return (a * b) >> 7 Else Return 255 - ((255 - a) * (255 - b) >> 7)
EndFunc

Function Blend_HardLight(a As Int, b As Int)
If b < 128 Then Return (a * b) >> 7 Else Return 255 - ((255 - b) * (255 - a) >> 7)
EndFunc

Function Blend_SoftLight(a As Int, b As Int)
Dim c = a * b >> 8
Return c + a * (255 - ((255 - a) * (255 - b) >> 8) - c) >> 8
EndFunc

Function Blend_Dodge1(a As Int, b As Int)
If b = 255 Then
Return 255
Else
Dim c As Int
c = (a << 8) / (255 - b)
If c > 255 Then Return 255 Else Return c
EndIf
EndFunc

Function Blend_Dodge2(a As Int, b As Int)
If a = 255 Then
Return 255
Else
Dim c As Int
c = (b << 8) / (255 - a)
If c > 255 Then Return 255 Else Return c
EndIf
EndFunc

Function Blend_Dodge3(a As Int, b As Int)
Dim c As Int
If a + b < 256 Then
If b = 255 Then
Return 255
Else
c = (a << 7) / (255 - b)
If c > 255 Then Return 255 Else Return c
EndIf
Else
c = 255 - (((255 - b) << 7) / a)
If c < 0 Then Return 0 Else Return c
EndIf
EndFunc

Function Blend_Burn1(a As Int, b As Int)
If b = 0 Then
Return 0
Else
Dim c As Int
c = 255 - (((255 - a) << 8) / b)
If c < 0 Then Return 0 Else Return c
EndIf
EndFunc

Function Blend_Burn2(a As Int, b As Int)
If a = 0 Then
Return 0
Else
Dim c As Int
c = 255 - (((255 - b) << 8) / a)
If c < 0 Then Return 0 Else Return c
EndIf
EndFunc

Function Blend_Burn3(a As Int, b As Int)
Dim c As Int
If a + b < 256 Then
If a = 255 Then
Return 255
Else
c = (b << 7) / (255 - a)
If c > 255 Then Return 255 Else Return c
EndIf
Else
c = 255 - (((255 - a) << 7) / b)
If c < 0 Then Return 0 Else Return c
EndIf
EndFunc

Function Blend_Quadratic1(a As Int, b As Int)
If b = 255 Then
Return 255
Else
Dim c As Int
c = a * a / (255 - b)
If c > 255 Then Return 255 Else Return c
EndIf
EndFunc

Function Blend_Quadratic2(a As Int, b As Int)
If a = 255 Then
Return 255
Else
Dim c As Int
c = b * b / (255 - a)
If c > 255 Then Return 255 Else Return c
EndIf
EndFunc

Function Blend_Quadratic3(a As Int, b As Int)
If b = 0 Then
Return 0
Else
Dim c As Int
c = 255 - (255 - a) * (255 - a) / b
If c < 0 Then Return 0 Else Return c
EndIf
EndFunc

Function Blend_Quadratic4(a As Int, b As Int)
If a = 0 Then
Return 0
Else
Dim c As Int
c = 255 - (255 - b) * (255 - b) / a
If c < 0 Then Return 0 Else Return c
EndIf
EndFunc

Function Blend_Additive(a As Int, b As Int)
Dim c As Int
c = a + b
If c > 255 Then Return 255 Else Return c
EndFunc

Function Blend_Subtracive(a As Int, b As Int)
Dim c As Int
c = a + b - 256
If c < 0 Then Return 0 Else Return c
EndFunc

Function Blend_Stamp(a As Int, b As Int)
Dim c As Int
c = a + 2 * b - 256
If c < 0 Then
Return 0
ElseIf c > 255 Then
Return 255
Else
Return c
EndIf
EndFunc

Function Blend_Interpolation(a As Int, b As Int)
Dim c As Int
c = Int(64 - Cos(b * PI / 255) * 64) + Int(64 - Cos(a * PI / 255) * 64)
If c > 255 Then Return 255 Else Return c
EndFunc

Function Blend_XOR(a As Int, b As Int)
Return a Xor b
EndFunc

Function Blend_AND(a As Int, b As Int)
Return a And b
EndFunc

Function Blend_OR(a As Int, b As Int)
Return a Or b
EndFunc

[floyesoft]

Hi, i am an very old programmer of gfa from the first Time of gfa

I have made Some software like keftal24 or image studio (first algoritmic textur generator)

NOw i am developping a pro software of 3D objet generator in 2D for desiner

[seaman]

Hi dear all, hi tazman47, 62 year old brain? I own nearly a
same old brain, born in february 1948. I am new too here in
this amazing forum. Every day I run a small program to remind
me on important date:

Rem leftdays.g32
OpenW # 1, 100, 100, 260, 230, 0
Local a
PlaySound"mach"
Pause 10
a = DateDiff("d", #15.04.2011#, Now)
SetFont "times new roman", 20, , 1 , , , 161
Print AT(3, 2); "Dear Willi,"
Print AT(3, 3); "there are only"
Print AT(5, 4); -a; " Days left,"
Print AT(3, 5); "until you retire.."
Print AT(3, 6); "Go ahead..."
Pause 20
PlaySound"jo"
Pause 20
PlaySound"explode"
CloseW # 1

So, hopefully i gain more time in the future for all my hobbys.
I use GFA already since ATARI times, mostly on the ST and
FALCON . Best wishes for all members in this forum and see
you again...
seaman

[charles]

i too use gfa from old atari days
i began 1999 never did serious untill few years back , asm . pascal and my midi stuff
i desire more knowledge of dll and ocx so i can use midi on the pc with gfa32
any body interested in helping me ?
i have a need of this info so i can up port to pc my old midi programs

charles

[brooklyn]

Have anyone an idea how i can use UNICODE in GB32?

Please write me if you have an idea or the solution....please

greetz,

brooklyn

[boggan]

Dec 25, 2010 3:49:23 GMT 1 charles said:

i too use gfa from old atari days
i began 1999 never did serious untill few years back , asm . pascal and my midi stuff
i desire more knowledge of dll and ocx so i can use midi on the pc with gfa32
any body interested in helping me ?
i have a need of this info so i can up port to pc my old midi programs

charles

[boggan]

Thought id introduce myself.

Im 39 Years old, from northern Sweden and an old Atari GFA
user. Ive just recently started programming again on the PC with GB32 and i must say i am as impressed with it as i was on the Atari. Its still lightning fast and very easy to use.

Ive noticed there arent very much activity here, but i hope the
board is not completely dead.

Is there any chance to increase the filesize you can upload btw? I have a game id like to post but not enough room its around 100mb, if i slim it down, remove the music maybe 30-50mb.

Im gonna stay with GB32 since i really like it, even if its a little bit lacking in the gfx department, im looking for any libs that might help me out, image manipulation and blending/scaling is of interest.

Well, just thought id say HI and introduce myself, i noticed im not the oldest guy here so thats a plus (No offense)

[boggan]

Dec 15, 2012 17:49:11 GMT 1 boggan said:

Dec 25, 2010 3:49:23 GMT 1 charles said:

i too use gfa from old atari days
i began 1999 never did serious untill few years back , asm . pascal and my midi stuff
i desire more knowledge of dll and ocx so i can use midi on the pc with gfa32
any body interested in helping me ?
i have a need of this info so i can up port to pc my old midi programs



charles

Midi is playable with the MCI set of commands, Very easy and
atleast somewhat explained in the Helpfile for GB32.

[boggan]

Nov 11, 2012 21:30:36 GMT 1 brooklyn said:

Have anyone an idea how i can use UNICODE in GB32?

Please write me if you have an idea or the solution....please

greetz,

brooklyn

There is a function, IsTextUnicode.... declare it like this.

Declare Function IsTextUnicode Lib "advapi32.dll" Alias "IsTextUnicode" (lpBuffer As Long, ByVal cb As Long, lpi As Long) As Long