HUGRPI

[alexfish]

Hi All

hugrpi.bac

First beta Release::

this lib is for Raspberry(PI) only

Implements
EGL canvas in 2d & 3d
255 Reusable textures (To free existing TEXTURE Use 'CLEARTEXTURE(int tex)')
FONTS
CleanUp textures and fonts & de-init canvas

Bug reports can be posted here
any other Post on the Main Raspberry PI(3) thread

there are two archives , the hugrpi.bac and an svg image file ' a tiger head for testing

a Second beta Release:: will have the canvas widgets added

BR
Alex

a bit of code to get started



INCLUDE hugrpi.bac
HUGOPTIONS("NOSCALING")
'declare texture ;; texture array[pointer] 0 to 255
CONST TEX1=0
CONST TEX2=1
'===============================================================================
SUB GoDraw()

LOCAL img$
LOCAL rotz = 65 TYPE int
LOCAL rot TYPE float
LOCAL fs
LOCAL rot2 TYPE float
img$= MKSTR(<svg width="60" height="60"><rect x="5" y="5" rx="6" ry="6" \
width="50" height="50" fill="red" stroke="black" stroke-width="2" /></svg>)

 SVGLOAD(img$,TEX1)
 TEXTURE("./23.svg",TEX2)
WHILE 1 DO

IF KEY() == 65307 THEN
QUIT
END

ENDIF

CLS(win)

'Draw BACKGROUND with opacity / Alpha
VIEW(win,HGL_2D_ORTHO)
INK(0,0,255,190)
'RECT(xpos,ypos,width,height,fill)
RECT(0,0,canvas.width,canvas.height,1)

INK(255,255,255,255)
'DrawTextLine(window,font$, xpos, ypos, width, height, spacing)
DRAWTEXT(win,"Press Esc to Quit",0,0,50,50,10)
DRAWTEXT(win,"BaSiC Basic @~",0,30,70,70,13)
DRAWTEXT(win,"BaCon BASIC £ free",0,60,70,70,13)
VIEW(win,HGL_2D_ORTHO)
INK(0,255,0,100)
MOVE(200,200)
ROTATE(rot)
'CIRCLE( xsize, ysize, fill)
CIRCLE(100,50,1)
INK(255,255,255,255)

DRAWTEXTURE2D(win,TEX1,0,100,50,50,-27,rot,0,0)
'glEnable(GL_TEXTURE_2D)
DRAWTEXTURE2D(win,TEX1,30,170,50,50,-27,0,rot,0)

BINDTEXTURE( TEX2)
'the viewport settings & distance Experiment to get required Perspective
' if drawing a scene keep view port the same & move
'SUB SETCUBE( win, xpos, ypos, width,height, transx, transy, -dist, rotate x, rotate y, rotate z )
SETCUBE(win,0,0,canvas.width,canvas.height,-10,-20,-100,rot2/2,rot2/3,rot2/2)

DRAWCUBEFACE (FRONT_FACE)
DRAWCUBEFACE (BACK_FACE)
DRAWCUBEFACE (TOP_FACE)
DRAWCUBEFACE (BOTTOM_FACE)
DRAWCUBEFACE (LEFT_FACE)
DRAWCUBEFACE (RIGHT_FACE)

SETCUBE(win,0,0,canvas.width,canvas.height,30,10,-100,rot2/2,rot2/3,rot2/2)

DRAWCUBEFACE (FRONT_FACE)
DRAWCUBEFACE (BACK_FACE)
DRAWCUBEFACE (TOP_FACE)
DRAWCUBEFACE (BOTTOM_FACE)
DRAWCUBEFACE (LEFT_FACE)
DRAWCUBEFACE (RIGHT_FACE)
'POLY(width,height,sides >1,fill)
VIEW(win,HGL_2D_ORTHO)
INK(0,255,255,190)
MOVE(300,180)
ROTATE(-rot)
POLY(100,100,6,0)

VIEW(win,HGL_2D_ORTHO)
INK(255,0,0,255)
LINEWIDTH(2)
'LINE(xpos1,ypos1,xpos2,ypos2)
LINE(0,0,canvas.width,canvas.height)

   POINTSIZE(4)
VIEW(win,HGL_2D_ORTHO)
INK(255,255,0,255)
MOVE(200,200)
ROTATE(-rot)
'SQUARE( xsize, ysize, fill)
SQUARE(40,40,0)

LINEWIDTH(1)
   POINTSIZE(1)

 'CBEZIER (float x0, float y0, float x1, float y1, float x2, float y2, float x3, float y3,float st)
 'QBEZIER (float x0, float y0, float x1, float y1, float x2, float y2, float st)

' Draw crosshair at mouse
IF (MOUSE(0) >= 0 AND MOUSE(1)>= 0) THEN
INK(0,0,0,255)
SETCURSOR(win)
POLY(12,1,2,0)
ROTATE(90)
POLY(12,1,2,0)
END IF
'Swap Buffers
DRAW
   INCR  rot2
INCR rot, 2
IF (rot >=360) THEN
rot= 0
END IF

WEND

END SUB

'===============================================================================
' Main
'===============================================================================
'CURRENCY MUST BE DECLARE in Main

CURRENCY$="£"
'window and canvas
win = WINDOW("Test Win",600,400)

WINCURSOR(win,30)
CANVAS(20,20,560,360)
' window and canvas must be defined before a call the fullscreen mode
SET(win,1)
' test move & resize CANVAS
MOVECANVAS(100,100)
   RESIZECANVAS(700,700)
GoDraw
 


Attachments:

hugrpi.bac.bz2 (17.37 KB)

23.svg.bz2 (28.76 KB)

baconedit.bz2 (16.56 KB)

[vovchik]

Dear Alex,

I get an error compiling the test prog (pinting to hugrpi.bac) and when trying to compile hugrpi.bac I get:
WARNING: 23 temporary files found! Do you want to delete them (y/n)? y
Temporary files were deleted.
Converting 'hugrpi.bac'... 702*** Error in `bacon': realloc(): invalid next size: 0x01a53348 ***
ERROR: signal ABORT received - internal error. Try to compile the program with TRAP LOCAL to find the cause.

Line 702 looks innocuous - calculations with float. I am puzzled at the moment. Any ideas? I am using the latest beta.

With kind regards,
vovchik

[Pjot]

Hi vovchik,

From the error I suspect you are using 3.5.3 beta to compile?

If so, then please remove all "(float)" casts from all lines in hugrpi.bac. After that, compilation should be fine. For example, a line like this:

hwd = hht * (float)WIDTH / (float)HEIGHT


should become:

hwd = hht * WIDTH / HEIGHT


...etc....

In 3.5.3 beta I am trying to implement automatic float casting, but apparently, it does not work for all situations yet. It is a beta, after all

So, it is good you ran into this issue, I will fix it shortly.

BR
Peter

[vovchik]

Dear Alex and Peter,

Yes, I am using the latest beta. I removed float castings from two lines (around 706) and added
DECLARE isortho TYPE int to the top of hugrpi.bac. I still get a warning (Warning: no FREE for the memory address 'ptr' at line 2029), but our tiger compiles and rotates in two nice boxes. Very nice. Thanks Alex.

With kind regards,
vovchik

[Pjot]

Hi vovchik,

Mar 13, 2017 22:00:03 GMT 1 vovchik said:

I still get a warning (Warning: no FREE for the memory address 'ptr' at line 2029), but our tiger compiles and rotates in two nice boxes.

The HUGRPI include file is based on HUG version 0.100, but starting from 0.101 these memory warnings belong to the past. Note that such warnings are purely informative and are not fatal...

BR
Peter

[alexfish]

Hi All

have updated fossil

bacon -v
BaCon version 3.5.3 beta on Linux armv7l - (c) Peter van Eerten - MIT License.

the existing HUGRPI based on 0.100 now compiles

will take a look at the updated

REM Version 0.102 - fixed SET for PROGRESSBAR by adding 0.0

BR
Alex

[alexfish]

Hi All

for RPI only


new archive above contain's a mini gui editor for bacon 'baconedit'

this is a modified version of nitroedit ,

operation

Click on VIEW/Hide Right Panel to reviel the terminal

load file


click compile

Results of bacon *file will show in the terminal

or can compile bacon directly from the terminal .

BR
Alex

[rikky]

I have thrown my old steam engine computer through the window and bought myself a raspi.
I love Puppy, so I've Quirky Xerus Puppy running.
Bacon is already present version 3.5.something.
I have upgraded  to the newest version BaCon 3.5.3

So far all my programs run smoothly, except of the HUG programs.
compiling your example program (bacon -a -d /tmp/bacon %f in geany) gives me first a:

Warning: no FREE for the memory address 'ptr' at line 2028 in file '/usr/share/BaCon/hugrpi.bac'!

and then:

Compiler error:


file '/usr/share/BaCon/hugrpi.bac' line 542: bcm_host_init()

Cause:

implicit declaration of function 'bcm_host_deinit' [-Wimplicit-function-declaration]


hint: check for missing header file or library.

Compilation finished succesfully though.


Executing gives:

ERROR: signal for SEGMENTATION FAULT received - memory invalid or array out of bounds? Try to compile the program with TRAP LOCAL to find the cause.

Groetjes Rik.

[alexfish]

Hi Rik

for hug U need latest version hug.bac , then the warning will disappear.

hugrpi.bac needs to be updated , this will happen when the widgets are ready
for beta testing.


Re . the bcm host int for open gl drivers. IE EGL
egl on hugrpi, most bits /driver/libs-* are in the recommended Raspbarian Pixel Desktop version , Noobs .

on my raspberry pi they are in the opt/vc

if U can not locate them , then look further upstream to the distro maintainers

if u can locate them then possible one can change the compiler directives
to point to there location.

or perhaps get a noobs / raspbarian card
Link for Raspberry Pi Resouces downloads are HERE

BR
Alex

[rikky]

Ahzo, 

Well I'll find a workaround for HUG then for the moment.

Thanks anyway.


 Rik.

[alexfish]

Hi Rik & all

as a pointer to what the hugrpi.bac is about Re the open gles/egl

and In specific terms of what should be on a 'Raspberry PI' to be a Rasberry
Pi OS/distro can be found HERE

hope this helps

and as to how difficult it has been to get hugrpi api working & esp the Scan Modes as revealed by Vovchik
are in this Quote .

however it is severely lacking and difficult to understand in a general sense for people wanting to experiment with the device due to it being proprietary.

note from the link it has 3d & 2d graphics as two separate Routes , hugrpi can display 3d& 2d in one display.
BR
Alex

[alexfish]

Hi All

Whilst looking at the widgets for Hugrpi , looking at , has been very brief . Work , who the heck invented that.


The actual looking at the widget side "EGL" these work in a kind of fashion

yet the actual conundrum was to get the screen pointer returned at all states,

the normal method in hug is to use the following

gdk = gdk_window_at_pointer(ADDRESS(x), ADDRESS(y))
gdk_window_get_pointer(gdk, ADDRESS(hug_gui_properties.mousex), ADDRESS(hug_gui_properties.mousey), 0)

here the result only works if the window shows

if the window state is 'iconify' or hidden the mouse pointers = -1 & -1

have spent last 3 days trying to find a way around gtk

1. is it possible to get the pointer without a Window
2. is it possible to get the pointer as in the states mentioned above

the HUG.bac code result is shown

here with window , you lose control over the window try CTLR/c , hence use a terminal

need not be a Raspberry pi to test this.

note the
gdk_window_get_pointer(0, ADDRESS(x), ADDRESS(y), 0)


'screenXY demo to read mouse coords only
INCLUDE hug.bac
GTK$ = HUGLIB$("gtk")

IMPORT gtk_window_iconify(long) FROM GTK$ TYPE void
IMPORT gtk_window_deiconify(long) FROM GTK$ TYPE void
LOCAL x , y,screen
LOCAL A$

win = WINDOW ("Test mousexy", 600, 400)
ATTACH(0,win,0,0)
gtk_window_iconify(win)
ent1 = ENTRY ("0", 100, 25)
ent2 = ENTRY ("0", 100, 25)
ent3 = ENTRY ("", 100, 25)
ATTACH (win, ent1, 20,50)
ATTACH (win, ent2, 125,50)
ATTACH (win, ent3, 235,50)
HIDE(win)
PRINT "Screen Width >" , SCREENSIZE(1)
WHILE (1) DO
SYNC()
PRINT "Keyboard > " ,KEY()

gdk_window_get_pointer(0, ADDRESS(x), ADDRESS(y), 0)
A$= CHR$(KEY())
TEXT(ent1,STR$(x))
TEXT(ent2,STR$(y))
TEXT(ent3,A$)
'SCREENSIZE
PRINT x , " : " , y
IF x < 100  THEN
SHOW(win)
gtk_window_deiconify(win)
END IF
IF x > SCREENSIZE(0)/2+100  THEN
gtk_window_iconify(win)
END IF


WEND

as test just to get the cords

try this from the terminal, move the mouse to top left to exit

'screenXY demo2 to read mouse coords only
INCLUDE hug.bac

LOCAL x , y


WHILE (1) DO
SYNC()
gdk_window_get_pointer(0, ADDRESS(x), ADDRESS(y), 0)

PRINT x , " : " , y
IF x < 100 AND y < 100 THEN
QUIT
END IF

WEND

BR
Alex

[vovchik]

Dear Alex,

Thanks. It's working as advertised.

With kind regards,
vovchik

[alexfish]

Hi Vovchik & All

..trials & tribulations

as some are aware had been looking at websearch engines in main text base to use in the EGL

most of these are python based .
google : only one found to work out of the box = googler
duckduckgo > could be the preferred choice ;; most failed uless someone knows different / IE the dump

so in last few minutes tried duckduckgo API .. Hi Violah

now looking at using offscreen window to get the results etc

Here is Peter's minimal browser with the duckduckgo auto search

BR
Alex
+ Have Fun with this one

lib$ = "libgtk-x11-2.0.so.0"
IMPORT "gtk_box_pack_start(long,long,int,int,int)" FROM lib$ TYPE void
IMPORT "gtk_container_add(long,long)" FROM lib$ TYPE void
IMPORT "gtk_entry_get_text(long)" FROM lib$ TYPE char*
IMPORT "gtk_entry_new(void)" FROM lib$ TYPE long
IMPORT "gtk_exit(void)" FROM lib$ TYPE void
IMPORT "gtk_init(int*,void*)" FROM lib$ TYPE void
IMPORT "gtk_main(void)" FROM lib$ TYPE void
IMPORT "gtk_scrolled_window_new(long,long)" FROM lib$ TYPE long
IMPORT "gtk_scrolled_window_set_policy(long,int,int)" FROM lib$ TYPE void
IMPORT "gtk_scrolled_window_set_shadow_type(long,int)" FROM lib$ TYPE void
IMPORT "gtk_vbox_new(int,int)" FROM lib$ TYPE long
IMPORT "gtk_widget_show_all(long)" FROM lib$ TYPE void
IMPORT "gtk_window_new(int)" FROM lib$ TYPE long
IMPORT "gtk_window_set_default_size(long,int,int)" FROM lib$ TYPE void
IMPORT "gtk_window_set_icon_name(long,char*)" FROM lib$ TYPE void
IMPORT "gtk_window_set_title(long,char*)" FROM lib$ TYPE void

' Import HTML renderer functions
lib$ = "libwebkitgtk-1.0.so.0"
IMPORT "webkit_web_view_new(void)" FROM lib$ TYPE long
IMPORT "webkit_web_view_load_uri(long,char*)" FROM lib$ TYPE void
IMPORT "webkit_web_view_select_all (long)"  FROM lib$  TYPE void
' Import callback functionality
lib$ = "libgobject-2.0.so.0"
IMPORT "g_signal_connect_data(long,char*,void*,long,long,int)" FROM lib$ TYPE void

' When pressing <enter> go to the URL
SUB Goto_Url
webkit_web_view_select_all(html)
'LOCAL link$

'link$ = gtk_entry_get_text(url)
'webkit_web_view_load_uri(html, link$)

ENDSUB

' Initialize GTK
gtk_init(0, 0)

' Create main window
window = gtk_window_new(0)
gtk_window_set_title(window, "Minimal Web Browser in BASIC")
gtk_window_set_default_size(window, 1024, 600)
gtk_window_set_icon_name(window, "gtk-network")
g_signal_connect_data(window, "delete-event", gtk_exit, 0, 0, 0)

url_box = gtk_vbox_new(0, 0)

' Create entry to enter URL
url = gtk_entry_new()
gtk_box_pack_start(url_box, url, 0, 0, 1)
g_signal_connect_data(url, "activate", Goto_Url, 0, 0, 0)

' Create HTML renderer
html = webkit_web_view_new()
scrolled = gtk_scrolled_window_new(0, 0)
gtk_scrolled_window_set_policy(scrolled, 1, 1)
gtk_scrolled_window_set_shadow_type(scrolled, 3)
gtk_container_add(scrolled, html)
gtk_box_pack_start(url_box, scrolled, 1, 1, 1)

' Load basicprogramming by default
webkit_web_view_load_uri(html, "https://api.duckduckgo.com/?q= baconlinux")

' Pack everything together and wait for event
gtk_container_add(window, url_box)
gtk_widget_show_all(window)
gtk_main()