New feature: a GUI proxy for BaCon

[Pjot]

Gents,

The memory usage in GTK is very choppy. GTK is very lazy freeing structures etc., but overall, the memory consumption should not keep growing.

So I tried to find another way to display an inline SVG, below my sample code, which displays an SVG in a GtkImage widget. I am not sure if it helps for your programs, but maybe you could try it.

HTH
Peter

OPTION GUI TRUE
PRAGMA GUI gtk3

' svg for icon and gui
kitty$ = "<svg width='128' height='128' viewBox='0 0 352 352'>" \
   "<g fill='black'>" \
   "<path d='M18 4C2 12-2 104 12 165l2 12-2 10c-5 24-7 56-4 65 11 30 66  " \
   "75 112 90 69 22 143 1 198-55 28-30 31-46 20-102l-2-13 2-15c13-71  " \
   "7-154-12-154s-69 27-107 57l-11 9-22-1c-13 0-27 0-33 1l-11 1-11-9C85  " \
   "25 32-2 18 4zm45 57c9 4 33 17 34 19l-8 4c-17 8-34 21-45 33-2 3-5 6-5  " \
   "6-3 0 1-54 5-62 2-6 3-6 19 0zm240-3c4 4 7 26 7  " \
   "49v14l-5-5c-13-15-31-27-52-36-4-1 23-16 39-21 9-3 9-3 11-1zM92  " \
   "173h2l-3 5c-8 16-3 56 7 51 8-4 9-32 2-53 0-2 0-2 7 1 11 6 19 15 23  " \
   "27s4 11-3 18c-26 28-69 16-78-22-4-14 25-32 43-27zm181 0c13 2 30 15 30  " \
   "22 0 38-52 56-79 28l-6-7 1-5c2-14 13-28 25-34 8-4 7-4 5 3-5 15-3 45 4  " \
   "49 9 6 14-35 7-51-3-6 0-7 13-5zm-89 26c6 4 12 10 24 27 5 7 12 15 15  " \
   "18 12 12 42 26 86 42 7 2-49 37-77 48-59 23-119 10-183-41-9-7-9-7 0-10  " \
   "56-20 77-33 95-58 18-26 28-33 40-26z'/> " \
   "<path d='M161 247c-14 3-11 22 6 32 2 1 5 2 5 3 0 0-3 7-5 11-11 16-36  " \
   "15-48-1-4-5-3-2 1 5 8 14 27 18 45 9 1 0 1 1 1 3 0 16 17 18 19 2v-5l6  " \
   "3c15 6 32 1 40-12 5-7 5-10 0-4-14 18-43 14-50-7l-2-4c0-1 3-2 5-3 12-7  " \
   "19-24 12-29-6-4-24-6-35-3z'/> " \
   "</g>" \
   "</svg>"

id = GUIDEFINE(" \
   { type=WINDOW name=window callback=delete-event title=\"GtkImage demo\" } \
   { type=BOX name=box parent=window orientation=GTK_ORIENTATION_VERTICAL } \
   { type=IMAGE name=image parent=box width-request=350 height-request=350 } \
   { type=BUTTON_BOX name=bbox parent=box layout-style=GTK_BUTTONBOX_END } \
   { type=BUTTON name=exit parent=bbox callback=clicked label=\"Exit\" }")

CALL Draw

WHILE TRUE
   event$ = GUIEVENT$(id)
   SELECT event$
       CASE "window"
           BREAK
       CASE "exit"
           BREAK
   ENDSELECT
WEND

SUB Draw

   LOCAL stream TYPE GInputStream*
   LOCAL pixbuf TYPE GdkPixbuf*

   stream = g_memory_input_stream_new_from_data(kitty$, -1, g_free)
   pixbuf = gdk_pixbuf_new_from_stream(stream, NULL, NULL)

   CALL gtk_image_set_from_pixbuf(GTK_IMAGE(GUIWIDGET(id, "image")), pixbuf)

   CALL g_object_unref(pixbuf)
   CALL g_input_stream_close(stream, NULL, NULL)

ENDSUB


[alexfish]

Hi Peter

RPI:

Although not fully tested + code adapted with timeout to redraw same svg.

Cpu usage steady and low , + mem control looks good


Adapted code with timeout , click on draw , only once.

OPTION GUI TRUE
PRAGMA GUI gtk3

' svg for icon and gui
kitty$ = "<svg width='128' height='128' viewBox='0 0 352 352'>" \
   "<g fill='black'>" \
   "<path d='M18 4C2 12-2 104 12 165l2 12-2 10c-5 24-7 56-4 65 11 30 66  " \
   "75 112 90 69 22 143 1 198-55 28-30 31-46 20-102l-2-13 2-15c13-71  " \
   "7-154-12-154s-69 27-107 57l-11 9-22-1c-13 0-27 0-33 1l-11 1-11-9C85  " \
   "25 32-2 18 4zm45 57c9 4 33 17 34 19l-8 4c-17 8-34 21-45 33-2 3-5 6-5  " \
   "6-3 0 1-54 5-62 2-6 3-6 19 0zm240-3c4 4 7 26 7  " \
   "49v14l-5-5c-13-15-31-27-52-36-4-1 23-16 39-21 9-3 9-3 11-1zM92  " \
   "173h2l-3 5c-8 16-3 56 7 51 8-4 9-32 2-53 0-2 0-2 7 1 11 6 19 15 23  " \
   "27s4 11-3 18c-26 28-69 16-78-22-4-14 25-32 43-27zm181 0c13 2 30 15 30  " \
   "22 0 38-52 56-79 28l-6-7 1-5c2-14 13-28 25-34 8-4 7-4 5 3-5 15-3 45 4  " \
   "49 9 6 14-35 7-51-3-6 0-7 13-5zm-89 26c6 4 12 10 24 27 5 7 12 15 15  " \
   "18 12 12 42 26 86 42 7 2-49 37-77 48-59 23-119 10-183-41-9-7-9-7 0-10  " \
   "56-20 77-33 95-58 18-26 28-33 40-26z'/> " \
   "<path d='M161 247c-14 3-11 22 6 32 2 1 5 2 5 3 0 0-3 7-5 11-11 16-36  " \
   "15-48-1-4-5-3-2 1 5 8 14 27 18 45 9 1 0 1 1 1 3 0 16 17 18 19 2v-5l6  " \
   "3c15 6 32 1 40-12 5-7 5-10 0-4-14 18-43 14-50-7l-2-4c0-1 3-2 5-3 12-7  " \
   "19-24 12-29-6-4-24-6-35-3z'/> " \
   "</g>" \
   "</svg>"
SUB Draw
PRINT "Draw"
   LOCAL stream TYPE GInputStream*
   LOCAL pixbuf TYPE GdkPixbuf*

   stream = g_memory_input_stream_new_from_data(kitty$, -1, g_free)
   pixbuf = gdk_pixbuf_new_from_stream(stream, NULL, NULL)

   CALL gtk_image_set_from_pixbuf(GTK_IMAGE(GUIWIDGET(id, "image")), pixbuf)

   CALL g_object_unref(pixbuf)
   CALL g_input_stream_close(stream, NULL, NULL)

ENDSUB
id = GUIDEFINE(" \
   { type=WINDOW name=window callback=delete-event title=\"GtkImage demo\" } \
   { type=BOX name=box parent=window orientation=GTK_ORIENTATION_VERTICAL } \
   { type=IMAGE name=image parent=box width-request=350 height-request=350 } \
   { type=BUTTON_BOX name=bbox parent=box layout-style=GTK_BUTTONBOX_END } \
   { type=BUTTON name=draw parent=bbox callback=clicked label=\"Draw\" }")

'CALL Draw

WHILE TRUE
   event$ = GUIEVENT$(id)
   SELECT event$
       CASE "window"
           BREAK
       CASE "draw"
            Timeout_Status = g_timeout_add(150, (GSourceFunc)Draw, NULL)
   ENDSELECT

WEND

BR
Alex

[vovchik]

Dear Peter, Alex and Joe,

Thanks. Here is a modded GtkImage demo... I will next try to animate something using the GtkImage SUB and hope to post soon...

With kind regards,
vovchik

UPDATED: Added an animation demo using GtkImage.

Attachments:

petersvg-gtk-image.tar.gz (1.95 KB)

djt-45-gtk2-memtest-alex-peter-bac_20200626.tar.gz (3.68 KB)

[vovchik]

Dear all,

And here is a Newton ball - animated - using a move widget function. I hope it works for you. GTK3 is much faster than GTK2 in executing the move, it seems.

With kind regards,
vovchik

Attachments:

newton-ball-src.tar.gz (3.87 KB)

[Pjot]

Thanks vovchik,

This is a very cool SVG animation!

Also I am curious to the memory issues on the RPI. Hopefully they do not occur anymore.

BR

Peter

PS the previous programs also work for me. All compiles without modification.

[Pjot]

All,

For fun I am adding more code samples to the Rosetta Code website. It turns out that there are some GUI challenges available as well.

So I have added these simple demonstration programs:

• The challenge for a Simple Windowed Application
• The challenge for a GUI Component Interaction
• The challenge for a GUI Enabling / Disabling Controls
• The challenge for a GUI Finding Maximum Window Dimensions
• The challenge for a Graphical User Input

If any of you GTK guru's has ideas about improving the code, then feel free to change my contributions

Best regards,

Peter

[Pjot]

All,

Working further on the GUI challenges in Rosetta Code, I wondered why the SELECT statement could not use GUIEVENT$() as an argument.

For example:

OPTION GUI TRUE
PRAGMA GUI gtk3

gui = GUIDEFINE(" \
   { type=WINDOW name=window callback=delete-event title=\"Rosetta Code\" width-request=300 } \
   { type=BOX name=box parent=window orientation=GTK_ORIENTATION_VERTICAL } \
   { type=LABEL name=label parent=box height-request=50 label=\"There have been no clicks yet\" } \
   { type=BUTTON name=button parent=box callback=clicked label=\"Click Me\" }")

WHILE TRUE
   SELECT GUIEVENT$(gui) : ' <--- This did not work before
       CASE "window"
           BREAK
       CASE "button"
           INCR clicked
           CALL GUISET(gui, "label", "label", "Button clicks: " & STR$(clicked))
   ENDSELECT
WEND


The reason was that the SELECT argument is copied over at each occurrence of the CASE statement. Meaning, that in the above program, GUIEVENT$() would be executed at each CASE, so the program would wait for an event at each position where CASE occurs.

Therefore I have made an attempt to improve this, SELECT now will evaluate its argument first, and the evaluated argument then is used at all subsequent instances of CASE.

A very pleasant side-effect is that the overall BaCon performance has improved with almost 25%

Please report any strange things when you try to use the latest beta.

Regards
Peter

[vovchik]

Dear Peter,

Thanks. That is a significant speed-up. I have compiled a few things and, so far, everything is working as expected.

With kind regards,
vovchik

[Pjot]

All,

Just to say that the Radio program has improved further. The code now includes stability fixes in case the radio station is not available.

All GUI programs and demonstrations can be found here: basic-converter.org/gui/

Regards
Peter

Attachments:

[Pjot]

A sample configfile for the radio program is attached to this post.

Please save it in your home folder as: ".radio.cfg" (with the preceding dot).

Have fun!

Attachments:

radio.cfg.txt (2.84 KB)

[bigbass]

Hello Peter
compiles cleanly and runs correctly on the RPI3

will test more
Thanks
Joe

[Pjot]

All,

For fun, I have ported my analog clock demonstration from the GTK-server samples to BaCon. The code was contributed to Rosetta.

Regards
Peter

Attachments:

[vovchik]

Dear Peter,

Thanks. It works nicely on Mint and Pi4.

With kind regards,
vovchik

[Pjot]

Thanks vovchik,

I improved the program a little bit more, so the hour is pointed to in a more precise manner.

Also, I was curious how drawing works in Motif, so I made a Motif version as well (nothing else to do these days anyway ).

The updated programs are here (GTK) and here (Motif).

BR
Peter

Attachments:

[Pjot]

All,

The XAW version of the clock program is available here.

BR
Peter