OK, I'm a little stumped, I'm trying to use Steve's circle drawing routine from a while back, to draw a red circle and a blue circle, and print on the screen the x,y, radius of the circle and the color. It's drawing the red circle, but not the blue one, and no text is appearing. If I could get a 2nd set of eyes to expose my foolishness, that would be most appreciated!

Hi friends,
please help me to find where I have coded the bug...

$Unstable:Http



Screen _NewImage(512, 512, 256)



Dim a(511, 511) As Integer 'an array we'll send



x = _OpenClient("TCP/IP:1234:localhost") 'try to connect to a host



If x = 0 Then 'couldn't be client, so become a host

    'put some data into array a

    For xx = 0 To 511

        For yy = 0 To 511

            a(xx, yy) = xx * yy

        Next

    Next

    Print "(Try passing data via TCP/IP!)"

    Print "Waiting... (Press any key to end)"

    x = _OpenHost("TCP/IP:1234")

    If x = 0 Then Print "failure to create host" Else Print "Host ON"

End If





x = _OpenClient("TCP/IP:1234") 'try to connect to a host

Print x

If x < 0 Then

    z = _OpenConnection(x)

    Print "z"; z

    'connect to host as a client







    If z < 0 Then

        Print "Connected to host. Reading data..."

        Do

            Put #z, , a() 'send array a to any client that connects

            Close z

            Print "Array data send to client!"





            Get #x, , a()

            _Limit 100

        Loop Until EOF(x) = 0 'wait until enough data to fill the array arrives

        For xx = 0 To 511

            For yy = 0 To 511

                PSet (xx, yy), a(xx, yy)

            Next

        Next

        Close x

        Print "That's how you share data folks!" 'G@lleon

        Do: Loop Until InKey$ = ""

    Else

        Print "Failure connection with z "; z

    End If

    _Limit 10



    Print "Finished!"

    End



Else

    Print "Failure to create host client connection "; x

End If



End

Nothing to see here either. Just testing some interactions with the forums and Discord. Just ignore any of these topics you see. I'll delete them and clean them all up later. This is just forum upkeep as normal.

\

Screen _NewImage(640, 480, 32)



GL_Render 0 'don't render to GL, as the next command will lock up and freeze the program if you do

_ScreenMove _Middle

GL_Render -1 'turn that GL rendering back on

Do

    _Limit 30 'A simple loop to see our GL display before ESC is hit

Loop Until _KeyDown(27)



Sub GL_Render (GL_go)

    Select Case GL_go

        Case 0 'disable GL rendering

            _DisplayOrder _Software

        Case -1 'enable GL rendering

            _DisplayOrder _Software , _Hardware , _GLRender

    End Select

    _Delay .2

End Sub







Sub _GL

    Static rtri, rquad

    _glViewport 0, 0, _Width, _Height

    _glMatrixMode _GL_PROJECTION '                          Set projection matrix

    _glLoadIdentity '                                      Matrix reset

    _gluPerspective 45.0F, _Width / _Height, 0.1F, 100.0F ' Perspective calculation

    _glMatrixMode _GL_MODELVIEW '                          set modelview matrix

    _glLoadIdentity

    _glShadeModel _GL_SMOOTH '                              allow smooth shading

    _glClearColor 0.0F, 0.0F, 0.0F, 0.5F

    _glClearDepth 1.0F '                                    set depth buffer

    _glEnable _GL_DEPTH_TEST '                              allow depth testing

    _glDepthFunc _GL_LEQUAL '                              set depth testing method

    _glHint _GL_PERSPECTIVE_CORRECTION_HINT, GL_NICEST '    set nicest projection matrix

    _glClear _GL_COLOR_BUFFER_BIT: _glClear _GL_DEPTH_BUFFER_BIT 'clear screen and depth buffer

    _glLoadIdentity '                                            matrix reset

    ' draw primitives here



    _glTranslatef -1.5F, 0.0F, -6.0F '      Shift to the left and to the depth - be careful, every other shift on the screen moves from the place where we moved before!





    _glRotatef rtri, 0.0F, 1.0F, 0.0F ' Rotate the triangle around the y-axis



    _glBegin _GL_TRIANGLES '            The beginning of drawing the PYRAMID



    _glColor3f 1.0F, 0.0F, 0.0F '      Red color (it is as _glColor3f Red, Green, Blue and values can be calculated as 1 / 255)

    _glVertex3f 0.0F, 1.0F, 0.0F '      Upper point

    _glColor3f 0.0F, 1.0F, 0.0F '      Green color

    _glVertex3f -1.0F, -1.0F, 1.0F '    left bottom point

    _glColor3f 0.0F, 0.0F, 1.0F '      blue color

    _glVertex3f 1.0F, -1.0F, 1.0F '    right bottom point



    _glColor3f 1.0F, 0.0F, 0.0F '  red color

    _glVertex3f 0.0F, 1.0F, 0.0F ' upper point (right wall)

    _glColor3f 0.0F, 0.0F, 1.0F '  blue color

    _glVertex3f 1.0F, -1.0F, 1.0F 'left point (right wall)

    _glColor3f 0.0F, 1.0F, 0.0F '  green

    _glVertex3f 1.0F, -1.0F, -1.0F ' right point (right wall)                '



    _glColor3f 1.0F, 0.0F, 0.0F '    red

    _glVertex3f 0.0F, 1.0F, 0.0F '  upper point (rear wall)

    _glColor3f 0.0F, 1.0F, 0.0F '    green

    _glVertex3f 1.0F, -1.0F, -1.0F ' left point (rear wall)

    _glColor3f 0.0F, 0.0F, 1.0F '    blue

    _glVertex3f -1.0F, -1.0F, -1.0F 'right point (rear wall)



    _glColor3f 1.0F, 0.0F, 0.0F '    red

    _glVertex3f 0.0F, 1.0F, 0.0F '  upper point (back wall)

    _glColor3f 0.0F, 0.0F, 1.0F '    blue

    _glVertex3f -1.0F, -1.0F, -1.0F 'left point (left wall)

    _glColor3f 0.0F, 1.0F, 0.0F '    green

    _glVertex3f -1.0F, -1.0F, 1.0F ' right point (left wall)



    _glEnd 'triangle draw end



    _glTranslatef 3.0F, 0.0F, 0.0F 'we will move in the x-axis by 1.5 to the center and 1.5 to the right, where we will paint a quad

    'FOR THE ENTIRE OBJECT IN ONE COLOR:



    _glLoadIdentity '                  we call it to align the X Y Z axes to the original direction, without it it would default to the previous rotated state

    _glTranslatef 1.5F, 0.0F, -7.0F '  The displacement of the origin is higher than in a quad



    _glRotatef rquad, 1.0F, 1.0F, 1.0F 'Rotate the quad around the x-axis



    _glBegin _GL_QUADS '              begin draw quad

    _glColor3f 0.0F, 1.0F, 0.0F '      green color

    _glVertex3f 1.0F, 1.0F, -1.0F '    left upper point

    _glVertex3f -1.0F, 1.0F, -1.0F '  right upper point

    _glVertex3f -1.0F, 1.0F, 1.0F '    right bottom point

    _glVertex3f 1.0F, 1.0F, 1.0F '    left bottom point



    _glColor3f 1.0F, 0.5F, 0.0F '      orange color

    _glVertex3f 1.0F, -1.0F, 1.0F '    right upper point (bottom wall)

    _glVertex3f -1.0F, -1.0F, 1.0F '  left upper point  (bottom wall)

    _glVertex3f -1.0F, -1.0F, -1.0F '  left bottom point (bottom wall)

    _glVertex3f 1.0F, -1.0F, -1.0F '  right bottm point (bottom wall)



    _glColor3f 1.0F, 0.0F, 0.0F '      red

    _glVertex3f 1.0F, 1.0F, 1.0F '    right upper point (front wall)

    _glVertex3f -1.0F, 1.0F, 1.0F '    Left upper point (front wall)

    _glVertex3f -1.0F, -1.0F, 1.0F '  left bottom point (front wall)

    _glVertex3f 1.0F, -1.0F, 1.0F '    right bottom point (front wall)



    _glColor3f 1.0F, 1.0F, 0.0F '      yellow

    _glVertex3f 1.0F, -1.0F, -1.0F '  right upper point (rear wall)

    _glVertex3f -1.0F, -1.0F, -1.0F '  left upper point (rear wall)

    _glVertex3f -1.0F, 1.0F, -1.0F '  left bottom point (rear wall)

    _glVertex3f 1.0F, 1.0F, -1.0F '    right bottom point (rear wall)



    _glColor3f 0.0F, 0.0F, 1.0F '      blue

    _glVertex3f -1.0F, 1.0F, 1.0F '  right upper point (left wall)

    _glVertex3f -1.0F, 1.0F, -1.0F '  left upper point (left wall)

    _glVertex3f -1.0F, -1.0F, -1.0F ' left bottom point (left wall)

    _glVertex3f -1.0F, -1.0F, 1.0F '  right bottom point (left wall)





    _glColor3f 1.0F, 0.0F, 1.0F ' purple

    _glVertex3f 1.0F, 1.0F, -1.0F ' right upper point (right wall)

    _glVertex3f 1.0F, 1.0F, 1.0F ' left upper point (right wall)

    _glVertex3f 1.0F, -1.0F, 1.0F 'Left bottom point (right wall)

    _glVertex3f 1.0F, -1.0F, -1.0F 'Right bottom point (right wall)



    _glEnd 'quad draw end

    rtri = rtri + 0.52F 'Incrementing the angle of rotation of the triangle

    rquad = rquad - 0.515F 'Incrementing the angle of rotation of the quad



    'it is important to RESET THE AXES so that they are rotated to the basic setting (otherwise the X axis can move to the Y axis) using _glLoadIdentity,

    'and it is EXTREMELY IMPORTANT to always move in the scene to the beginning of the scene using _glTranslateF

    'moving the object in openGL is not done by recalculating _glVertex, but by moving the start of rendering using _glTranslatef



End Sub

I want a program I'm working on to open a web page using the default browser.    Program is cross-platform and will be compiled for both WIN64 & LINUX.    Windows is easy here I just shell("start "+URL$).    I've figured out that in linux I can just shell "firefox  "+URL$ or shell "google-chrome " + URL$ and that works, but I don't know how to find the DEFAULT browser it's not in the ENVIRON$() and I'm not really sure how to go about it.

This uses SVG format to draw rounded rectangles. 

'Draw rounded rectangles using SVG format

'by James D. Jarvis, use as you wish



Screen _NewImage(800, 500, 32)

_Title "Press any key to draw a new set of rectangles or Q to quit"

Randomize Timer

Dim si As _Unsigned Long

Do

    'refresh screen

    'define the svg description of 10 rounded rectangles

    Cls , _RGB32(100 + Int(Rnd * 150), 100 + Int(Rnd * 150), 100 + Int(Rnd * 150))

    ss$ = ""

    CX = 100: CY = 100: cRAD = 50

    For RR = 1 To 10

        xx = Int(Rnd * (_Width * .75)): yy = Int(Rnd * (_Height * .75))

        cRAD = Int(3 + Rnd * 12)

        WW = Int(30 + Rnd * 300): HH = Int(30 + Rnd * 300)

        ss$ = ss$ + doRrect$(xx, yy, cRAD, cRAD, WW, HH, _RGB32(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)), _RGB32(Int(Rnd * 256), Int(Rnd * 256), Int(Rnd * 256)), Int(1 + Rnd * 25))

    Next RR

    simg$ = "<svg width='" + _Trim$(Str$(_Width)) + "' height='" + _Trim$(Str$(_Height)) + "'>" + ss$ + " </svg>"

    si = _LoadImage(simg$, 32, "memory") 'load the SVG image

    _PutImage (0, 0), si 'display the SVG image

    _FreeImage si

    Do

        kk$ = InKey$

    Loop Until kk$ <> ""

Loop Until UCase$(kk$) = "Q"

System

Function doRrect$ (x, y, rx, ry, w, h, sk As _Unsigned Long, fk As _Unsigned Long, swid)

    'returns the SVG description of a rounded rectangle

    'x,y are coordinates of rounded rectabgle on the screen

    'rx,ry are the radius of the rectangle corners

    'h,y are height and width of the rectangle

    'sk is the _rgb32 stroke color

    'fk is the _rgb32 fill color

    'swid is the stroke width of the rectangle

    doRrect$ = " <rect x='" + _Trim$(Str$(x)) + "' y='" + _Trim$(Str$(y)) + "' rx='" + _Trim$(Str$(rx)) + "' ry='" + _Trim$(Str$(ry)) + "' width='" + _Trim$(Str$(h)) + "' height='" + _Trim$(Str$(w)) + "' stroke='" + _Trim$(packcolorN$(sk)) + "' fill='" + _Trim$(packcolorN$(fk)) + "' stroke-width='" + _Trim$(Str$(swid)) + "'/>"

End Function



Function packcolorN$ (klr As _Unsigned Long)

    'convert an unsigned long color value into a hexidecimal string # that will be used in an SVG

    Dim As _Unsigned Long rk, gk, bk

    'get the color channels of the unsinged long color

    rk = _Red32(klr)

    gk = _Green32(klr)

    bk = _Blue32(klr)

    'convert those channel values into hexidecimal

    If rk < 16 Then

        r$ = "0" + Hex$(rk) 'put in a padded hexidcimal value

    Else

        r$ = Hex$(rk) 'put in a 2 digit hexidecimal value

    End If

    If gk < 16 Then

        g$ = "0" + Hex$(gk) 'put in a padded hexidcimal value

    Else

        g$ = Hex$(gk) 'put in a 2 digit hexidecimal value

    End If

    If bk < 16 Then

        b$ = "0" + Hex$(bk) 'put in a padded hexidcimal value

    Else

        b$ = Hex$(bk) 'put in a 2 digit hexidecimal value

    End If

    packcolorN$ = "#" + r$ + g$ + b$

End Function

The little demo should speak for itself.   It's simple, but I was just having fun playing around with my balls for a bit this morning, since it seems everyone else has been doing the same thing around here lately. 

Screen _NewImage(1024, 720, 32)

Randomize Timer

$Color:32



Type Ball_Type

    x As Integer 'position

    y As Integer

    xchange As Integer 'speed

    ychange As Integer

    size As Integer 'size

    c As _Unsigned Long 'color

End Type



Dim Balls(5000) As Ball_Type

'Init balls

For i = 0 To UBound(Balls)

    Balls(i).size = Int(Rnd * 10) + 1

    Select Case Int(Rnd * 2)

        Case 0: Balls(i).c = Red

        Case Else: Balls(i).c = Blue

    End Select

    Balls(i).x = Int(Rnd * _Width)

    Balls(i).y = Int(Rnd * _Height)

    Balls(i).xchange = Int(Rnd * 20) - 10

    Balls(i).ychange = Int(Rnd * 20) - 10

Next



t# = Timer(.01)

Do

    While _MouseInput: Wend

    Cls

    max = (Timer - t#) * 10

    If max >= 1000 Then max = 1000

    For i = 1 To max

        CircleFill Balls(i).x, Balls(i).y, Balls(i).size, Balls(i).c

        Balls(i).x = Balls(i).x + Balls(i).xchange

        Balls(i).y = Balls(i).y + Balls(i).ychange

        If _Hypot(Balls(i).x - _MouseX, Balls(i).y - _MouseY) < Balls(i).size Then

            Balls(i).xchange = -Balls(i).xchange

            Balls(i).ychange = -Balls(i).ychange

            Balls(i).c = Green

        End If

        If Balls(i).x < 0 Then

            Balls(i).x = 0

            Balls(i).xchange = -Balls(i).xchange

        End If

        If Balls(i).y < 0 Then

            Balls(i).y = 0

            Balls(i).ychange = -Balls(i).ychange

        End If

        If Balls(i).x >= _Width Then

            Balls(i).x = _Width

            Balls(i).xchange = -Balls(i).xchange

        End If

        If Balls(i).y >= _Height Then

            Balls(i).y = _Height

            Balls(i).ychange = -Balls(i).ychange

        End If

    Next

    _Limit 60

    _Display

Loop



Sub CircleFill (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)

    ' CX = center x coordinate

    ' CY = center y coordinate

    '  R = radius

    '  C = fill color

    Dim Radius As Integer, RadiusError As Integer

    Dim X As Integer, Y As Integer

    Radius = Abs(R)

    RadiusError = -Radius

    X = Radius

    Y = 0

    If Radius = 0 Then PSet (CX, CY), C: Exit Sub

    Line (CX - X, CY)-(CX + X, CY), C, BF

    While X > Y

        RadiusError = RadiusError + Y * 2 + 1

        If RadiusError >= 0 Then

            If X <> Y + 1 Then

                Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

            End If

            X = X - 1

            RadiusError = RadiusError - X * 2

        End If

        Y = Y + 1

        Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

        Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

    Wend

End Sub

I may have a simplistic misunderstand about the use of semicolon, strings, plus sign and quotes in print statements.

1 q$=chr$(34)
2 print q$; "test"; q$
3 print q$ + "test" + q$

Output is "test" and "test" on separate lines.  I assumed ? q$; "test"; q$ would be an improper use of concatenation in a print statement.  I thought line 3 was the right way. But it works.
If I try to type q$"" the line changes to q$; "".  Auto corrects and makes me wonder.  I checked this output in the mother tongue "qb45".  Works like qb64.

If the +'s are not needed, do they take cycles and code unnecessary ?  Again wondering.
I know PRINT is most code producing and time wasting part of the source in qb64.

Thanks

I've got the following code.   The purpose is to create a Medium byterate Wave file WITHOUT METADATA.     I'm writing an Audio Book app for the Commander X16 and I don't have the processor power to parse and ignore Meta Data in the Wave.     Ignoring it creates clicks when the METADATA is treated as Audio.      I can create the proper files in Audacity but ffmpeg refuses to leave out the encoder MetaData even with the -metadata -1 directive. 

My solution for semi-automating the conversion is the following program which uses ffmpeg first to convert to raw_audio (no metadata) then use my code to tack on the WAV Header.   My program kind of works,  the files even play properly on the X16 where I'm ignoring a bunch of the WAV Header.    But I'm missing something important as none of the big boy programs on Linux or Windows recognize my output as a Valid WAV.    There are a couple fields in the RIFF/WAV Header I'm not filling in which I'm sure are the problem but I don't know what to put there. 

My code is attached and any help is appreciated.    Code is meant for Linux and hasn't been ported for Windows yet,   ffmpeg must be installed.

Identified one problem.   Header.FmtSpecific  has to be set equal to 16. But that still doesn't solve all the problems.

PROBLEM FIXED.     UPDATED CODE ATTACHED.   THIS WORKS TO STRIP METADATA FROM ANY AUDIO FILE AND OUTPUT IT AS A MONO WAV (Easily modified to do Stereo if you desire)

Attached Files

  MakeBookWav.bas (Size: 5.1 KB / Downloads: 18)

Hello every one.

I am a new member and searching a QB64 program that calculates the position of a group of satelites.
Because i am a hamradio amateur and interested in making contact with special designed hamradio satelites.
The programs i already have are too old and not working after year 2000 and because of that i do this request.
In that program i can put (so called) nasa/kepler parameters and some information of me. Then the program can predict the position of the/a satelite.
And yes, there are already beautifull programs, but i need a QB64 version. I can extend that QB64 program with routines for calculating
my antenne positions and control the antenne rotors.

Thanks in advance,

Rudi59