OpenEuphoria

1. ChatGPT & Euphoria

• Posted by Icy_Viking 4 weeks ago
• 736 views

Hi all, So I got bored and decided how ChatGPT would react to the question "Shoot a bullet in Euphoria programming language". Here is what it gave me.

-- Bullet class structure (using a sequence) 
sequence bullet = {0, 0, 5, 0} -- {x, y, speed, direction} 
 
-- Update function to move the bullet 
procedure update_bullet(sequence b) 
    b[1] = b[1] + b[3] * cos(b[4])  -- x = x + speed * cos(direction) 
    b[2] = b[2] + b[3] * sin(b[4])  -- y = y + speed * sin(direction) 
end procedure 
 
procedure shoot_bullet(sequence bullet) 
    bullet[1] = 0  -- Start x position 
    bullet[2] = 0  -- Start y position 
    bullet[3] = 10 -- Bullet speed 
    bullet[4] = 0  -- Direction in radians (0 = moving to the right) 
end procedure 
 
-- This procedure could be called in a loop to continuously update the bullet position 
update_bullet(bullet) 
 
-- A simple game loop 
while 1 do 
    -- Check for user input (e.g., space bar to shoot) 
    if keypressed() = ' ' then 
        shoot_bullet(bullet) 
    end if 
 
    -- Update bullet's position 
    update_bullet(bullet) 
 
    -- If the bullet has gone off-screen, reset it 
    if bullet[1] > screen_width then 
        bullet = {0, 0, 5, 0}  -- Reset bullet 
    end if 
 
    -- Draw the bullet (or just print for now) 
    puts(1, "Bullet position: " & bullet[1] & ", " & bullet[2] & "\n") 
    -- You would use your graphics library here for rendering the bullet on screen. 
 
    -- Pause briefly to control game speed 
    sleep(0.016)  -- 60 frames per second 
end while 

Also, it included a way to do it with Euphoria-GL, lol

include graphics.e 
 
-- Initialize window 
window_width = 800 
window_height = 600 
open_window(window_width, window_height, "Bullet Simulation") 
 
-- Main game loop 
while 1 do 
    -- Clear screen and redraw the background 
    clear_screen() 
 
    -- Update bullet's position 
    update_bullet(bullet) 
 
    -- Draw the bullet (use a circle or small rectangle) 
    draw_circle(bullet[1], bullet[2], 5) 
 
    -- Show the updated screen 
    update_screen() 
 
    -- Check for key press 
    if keypressed() = ' ' then 
        shoot_bullet(bullet) 
    end if 
 
    -- Sleep briefly to control game speed 
    sleep(0.016) 
end while 

Collision test

-- Example target (a rectangle) 
sequence target = {400, 300, 50, 50}  -- {x, y, width, height} 
 
-- Collision detection (bullet with target) 
if bullet[1] >= target[1] and bullet[1] <= target[1] + target[3] and 
   bullet[2] >= target[2] and bullet[2] <= target[2] + target[4] then 
    -- Bullet hit the target 
    puts(1, "Bullet hit the target!\n") 
    bullet = {0, 0, 5, 0}  -- Reset bullet 
end if 

I'm surprised how thorough the example was. With Euphoria being such a fringe language these days, I'm surprised.

3. Re: ChatGPT & Euphoria

• Posted by Icy_Viking 3 weeks ago
• 708 views

I haven't used it yet, I was curious if ChatGPT had knowledge of Euphoria as a programming language. I did ask it for some C code that I had to play around with to make it work. ChatGPT can point you in the right direction and give you a good idea of where to start, but you'll still have to fine tune or change some things to get it to work.

5. Re: ChatGPT & Euphoria

• Posted by petelomax 3 weeks ago
• 700 views

I've used AI chat to generate Phix code too. When (as usual) it don't quite work, I fix it and always make sure to tell it back: I fixed that for you: <paste>. It's the only way it'll learn.

7. Re: ChatGPT & Euphoria

• Posted by irv 2 weeks ago
• 520 views

ChatGPT is helping me write a new GTK4 "wrapper". Most of the widgets are working. Here's an example, formatted and commented by ChatGPT:

/* 

💡 What This Program Does: 
 
    Loads a GTK CSS stylesheet for styling widgets. 
 
    Creates a window with: 
 
       ⏺ A bold-label "Hello World!" 
       ⏺ An image (apple-red.png) 
       ⏺ Two buttons: Exit (left) and OK (right) 
 
    Uses ActionBar, Box, Label, Button, Picture, and GTK CSS theming. 
*/ 
 
-- Include necessary modules 
include gtk4.e 
include action_bar.e 
 
-- Path to the CSS file used for styling 
constant css_file = locate_file("gtk.css") 
 
-- Create a new GTK application instance 
object app = Application:new("org.gtk.example") 
 
------------------------------------------------------------- 
function interface(object app, object data) 
-- Callback function called when the GTK application starts 
-- Sets up the interface and UI components 
------------------------------------------------------------- 
    -- Create a new CSS provider and load the CSS file 
    object css = CssProvider:new()  
    set(css, "load from path", css_file) 
    set(css, "add provider")  -- Attach CSS to the style context 
 
    -- Create the main application window 
    object window = ApplicationWindow:new(app) 
    set(window, "name", "Main") 
    set(window, "title", "Main Window") 
    set(window, "default size", 300, 100) 
    set(window, "present")  -- Make the window visible 
 
    -- Create a vertical box container for layout 
    object panel = Box:new(1, 10)  -- Orientation: vertical (1), spacing: 10 
    set(panel, "name", "Main") 
    set(window, "child", panel) 
 
    -- Create a label with styled text 
    object lbl = Label:new()   
    set(lbl, "name", "L1") 
    set(lbl, "tooltip text", "Label with markup") 
    set(lbl, "markup", "<b>Hello World!</b>")  -- Bold markup 
    set(panel, "append", lbl) 
 
    -- First horizontal box for row of widgets 
    object bx1 = Box:new(1, 5)  -- Horizontal (1), spacing: 5 
    set(panel, "append", bx1) 
 
    -- Add an image to the first row 
    object img = Picture:new(locate_file("apple-red.png")) 
    set(img, "size request", 50, 50)  -- Fixed size for the image 
    set(bx1, "append", img) 
 
    -- Second row: use a CenterBox for better layout control 
    object btnbox2 = CenterBox:new() 
    set(panel, "append", btnbox2) 
 
    -- Add a GTK ActionBar at the bottom 
    object ab = ActionBar:new() 
    set(panel, "append", ab) 
 
    -- Exit button on the left of the ActionBar 
    object btn1 = Button:new("E_xit") 
    set(btn1, "name", "styled") 
    set(ab, "pack start", btn1) 
    connect(btn1, "clicked", "quit", app)  -- Quit app on click 
 
    -- OK button on the right of the ActionBar 
    object btn3 = Button:new("_OK") 
    set(btn3, "name", "styled") 
    set(window, "default widget", btn3)  -- Triggered by Enter key 
    set(ab, "pack end", btn3) 
 
    -- Uncomment this to enable GTK interactive debugging 
    -- interactive_debugging(1) 
 
    return 1  -- Return success 
end function 
 
-- Register the interface function as a callback for app activation 
constant init = call_back(routine_id("interface")) 
 
------------------------------------------------------------- 
-- Entry point: connects app activation to interface callback 
-- and starts the GTK application event loop 
function main() 
    connect(app, "activate", init, 0) 
    return Application:run(app) 
end function 
 
-- Run the program 
main() 

9. Re: ChatGPT & Euphoria

• Posted by petelomax 2 weeks ago
• 507 views

Not the end of the world, perhaps, but one thing I noted is that due to that application/"activate" nonsense, gtk4 completely prevents eg:

constant {sw,sh} = get_global("SCREENSIZE") 

I suspect it'll be a dead duck if it don't run on android, if it does I might be interested...

11. Re: ChatGPT & Euphoria

• Posted by Icy_Viking 2 weeks ago
• 503 views

Regardless if its a dead duck or not. That is pretty cool you can use chatGPT to help make a wrapper. I'll think about this next time I start work on a wrapper. Also, GTK4 looks like a mess compared to GTK3. Having a GUI made in and for Euphoria would probably be a better option.

13. Re: ChatGPT & Euphoria

• Posted by petelomax 2 weeks ago
• 489 views

Erm, unless you are talking about the sort of complex 2D/3D drawing on a single canvas you'd typically find in a game, that's simply not so. Over the past year or so I've taken it on myself to (successfully) implement scrollbars, buttons, [graphs, same code as of old,] lists, tables, tabs, textfields, and trees in pure hll Phix code, all on top of a plain canvas which (often) draws things pixel-by-pixel (esp on WinAPI, since the now-ancient GDI is rubbish at anti-aliasing), and pretty much the very last thing you'd notice is performance issues. While not exactly trivial, the code has (so far) turned out far more elegant than expected. I'm planning on (slowly) continuing that effort for checkboxes, datepicks, dropdowns, frames, labels, progressbars, radios, sliders, spincontrols, and splitters, so it's not likely to get shipped any time soon.

It is a bit Windows 10/11 look-and-feel biased, but the buttons at least can perfectly replicate GTK2 and GTK3 as well, which proved more slightly fiddly than actually difficult.

I'm also currently in a bit of a quandary whether to completely abandon WinAPI/GTK/HTML layout management and do my own, or try and progress such things in parallel.

15. Re: ChatGPT & Euphoria

• Posted by Icy_Viking 3 days ago
• 127 views

I got a simple physics demo going with the help of chatGPT

include std/ffi.e 
include raylib.e 
 
constant GRAVITY = 500.0      -- pixels/sec^2 
constant DAMPING = 0.7 
constant FRICTION = 0.9 
constant VELOCITY_THRESHOLD = 10.0 
constant BALL_RADIUS = 20.0 
 
object pos = {400.0, 100.0} 
object velocity = {200.0, 0.0} 
object acceleration = {0.0, GRAVITY} 
 
constant screen_width = 640 
constant screen_height = 480 
 
InitWindow(screen_width,screen_height,"Physics") 
 
SetTargetFPS(60) 
 
while not WindowShouldClose() do 
    -- Calculate time step (assuming fixed for simplicity) 
    atom TIME_STEP = 1.0 / 60.0 
 
    -- Physics update 
    velocity[1] += acceleration[1] * TIME_STEP 
    velocity[2] += acceleration[2] * TIME_STEP 
 
    pos[1] += velocity[1] * TIME_STEP 
    pos[2] += velocity[2] * TIME_STEP 
 
    -- Collision with floor 
    if pos[2] + BALL_RADIUS >= screen_height then 
        pos[2] = screen_height - BALL_RADIUS 
        velocity[2] = -velocity[2] * DAMPING 
        velocity[1] *= FRICTION 
    end if 
 
    -- Collision with ceiling 
    if pos[2] - BALL_RADIUS <= 0 then 
        pos[2] = BALL_RADIUS 
        velocity[2] = -velocity[2] * DAMPING 
    end if 
 
    -- Collision with left wall 
    if pos[1] - BALL_RADIUS <= 0 then 
        pos[1] = BALL_RADIUS 
        velocity[1] = -velocity[1] * DAMPING 
    end if 
 
    -- Collision with right wall 
    if pos[1] + BALL_RADIUS >= screen_width then 
        pos[1] = screen_width - BALL_RADIUS 
        velocity[1] = -velocity[1] * DAMPING 
    end if 
 
    -- Start drawing 
    BeginDrawing() 
        ClearBackground(RAYWHITE) 
 
        DrawCircle(pos[1], pos[2], BALL_RADIUS, RED) 
 
        DrawText("Bouncing ball physics in Euphoria + raylib", 10, 10, 20, DARKGRAY) 
    EndDrawing() 
end while 
 
CloseWindow() 

--Chain swinging demo 
include raylib.e 
 
constant SCREEN_WIDTH = 800 
constant SCREEN_HEIGHT = 600 
constant NUM_LINKS = 10 
constant LINK_LENGTH = 30.0 
constant GRAVITY = 980.0    -- pixels/s^2 
constant TIME_STEP = 1.0 / 60.0 
constant DAMPING = 0.99     -- velocity damping to reduce oscillation 
 
-- Each link holds current and previous position for verlet integration 
object positions = repeat({0.0, 0.0}, NUM_LINKS) 
object prev_positions = repeat({0.0, 0.0}, NUM_LINKS) 
 
-- Initialize chain positions vertically hanging from pivot 
constant PIVOT = {SCREEN_WIDTH/2, 100.0} 
for i = 1 to NUM_LINKS do 
    positions[i] = {PIVOT[1], PIVOT[2] + (i-1) * LINK_LENGTH} 
    prev_positions[i] = positions[i] 
end for 
 
InitWindow(SCREEN_WIDTH, SCREEN_HEIGHT, "Chain Swinging in Euphoria + raylib") 
SetTargetFPS(60) 
 
procedure applyGravity() 
    for i = 2 to NUM_LINKS do 
        -- Verlet velocity = current - previous 
        object velocity = positions[i] - prev_positions[i] 
 
        -- Save current position before update 
        prev_positions[i] = positions[i] 
 
        -- Update position with velocity and gravity 
        positions[i][1] += velocity[1] * DAMPING 
        positions[i][2] += velocity[2] * DAMPING + GRAVITY * TIME_STEP * TIME_STEP 
    end for 
end procedure 
 
procedure applyConstraints() 
    -- The first link is fixed at the pivot 
    positions[1] = PIVOT 
 
    for iter = 1 to 5 do  -- iterate constraints multiple times for stability 
        for i = 1 to NUM_LINKS - 1 do 
            object p1 = positions[i] 
            object p2 = positions[i+1] 
 
            -- Calculate vector between links 
            object delta = p2 - p1 
            object delta_length = sqrt(power(delta[1],2) + power(delta[2],2)) 
            object diff = (delta_length - LINK_LENGTH) / delta_length 
 
            -- Move points to satisfy constraint (fixed first link, so move only second) 
            if i = 1 then 
                -- Move only p2 
                positions[i+1] = p2 - delta * diff 
            else 
                -- Move both points equally 
                positions[i] = p1 + delta * 0.5 * diff 
                positions[i+1] = p2 - delta * 0.5 * diff 
            end if 
        end for 
    end for 
end procedure 
 
procedure drawChain() 
    for i = 1 to NUM_LINKS do 
        DrawCircle(positions[i][1], positions[i][2], 8, BLUE) 
        if i < NUM_LINKS then 
            DrawLine(positions[i][1], positions[i][2], 
                     positions[i+1][1], positions[i+1][2], BLACK) 
        end if 
    end for 
end procedure 
 
while not WindowShouldClose() do 
 
	if IsKeyDown(KEY_RIGHT) then 
		positions[NUM_LINKS][1] += 5 
		elsif IsKeyDown(KEY_LEFT) then 
			positions[NUM_LINKS][1] -= 5 
	end if 
	 
    applyGravity() 
    applyConstraints() 
 
    BeginDrawing() 
        ClearBackground(RAYWHITE) 
        drawChain() 
        DrawText("Chain swinging physics with verlet integration", 10, 10, 20, DARKGRAY) 
    EndDrawing() 
end while 
 
CloseWindow()