Request for hug.bac

[alexfish]

Hi Peter

not sure if you have any vision of more updates to hug.bac

need to stop timeout:: and then restart
A REPEAT of TIMEOUT(*,*) will not work in hug imager apps

Example code of what I be doing, of NOTE there a RESETKEY ... thinking TIMEOUTSTOP or TIMOUT*

ELIF KEY() = 65366 THEN
' Hug hack to stop callback whilst downloading tiles + updating canvas
g_source_remove(hug_gui_properties.timeout_id)
hug_gui_properties.timeout_id=-1

RESETKEY
'sequence ------------------------------
ZOOM = BB_MAPBOX.zoom

DECR ZOOM

GPS(54.48774,-0.61498,ZOOM)
SET_GEO(N,S,W,E)
TILES_GET()
MAPTILES(-256,-256*3)
TIMEOUT(50,Key_Press)

ELIF KEY() = 65362 THEN

Full demo Code of using hug.bac with hug imager, include Geo*.bac

'file Demo, streetmap.bac

INCLUDE "includegtk.bac"
' TO Scroll CANVAS , will these be in the lib? NO.
DECLARE CANY , CANX

'HOME$
'is this in the lib? Yes in Geo*bac , but good practice
'to start an app if accessing files
' append with '/' IE HOME$ & "/path/to/foo"
'=======================================================
HOME$ = GETENVIRON$("HOME")
'=======================================================

' best method to move gps position to suit, Practice before venture
' best practice :keep this file in root save this file as:
': as in for reference

FUNCTION Key_Press

IF KEY() THEN
' need to ref keys
' avoid UP/DOWN Arrow keys whem MOUSE enabled on widgets
'
'PRINT KEY()

IF KEY() = 65365 THEN
' Hug hack to stop callback whilst updating canvas
g_source_remove(hug_gui_properties.timeout_id)
hug_gui_properties.timeout_id=-1

RESETKEY

ZOOM = BB_MAPBOX.zoom

INCR ZOOM

GPS(54.48774,-0.61498,ZOOM)
SET_GEO(N,S,W,E)
TILES_GET()
MAPTILES(-256,-256*3)
TIMEOUT(50,Key_Press)
ELIF KEY() = 65366 THEN
' Hug hack to stop callback whilst updating canvas
g_source_remove(hug_gui_properties.timeout_id)
hug_gui_properties.timeout_id=-1

RESETKEY
'sequence ------------------------------
ZOOM = BB_MAPBOX.zoom

DECR ZOOM

GPS(54.48774,-0.61498,ZOOM)
SET_GEO(N,S,W,E)
TILES_GET()
MAPTILES(-256,-256*3)
TIMEOUT(50,Key_Press)

ELIF KEY() = 65362 THEN
DECR CANY,128/2
MOVE(win,canvas,CANX,CANY)

ELIF KEY() = 65364 THEN
INCR CANY,128/2
MOVE(win,canvas,CANX,CANY)

ELIF KEY() = 65361 THEN
DECR CANX,128/2
MOVE(win,canvas,CANX,CANY)

ELIF KEY() = 65363 THEN
INCR CANX,128/2
MOVE(win,canvas,CANX,CANY)
END IF
RESETKEY
END IF
'=======================================
RETURN TRUE

END FUNCTION

'=Callback Icon Button ========================================
SUB Click()
PRINT "Button Click Event"
'rest of code here
END SUB
'==============================================================

/*
===============================================================
= Notes === play with ZOOM levels + arrow keys then venture =
= n = "tiles" north of gps pos, s south of                  =
= e left of gps w ->                                        =
===============================================================
*/
' some basic rule for normal use: more on advanced use later
N = 4
S = 2
W = 5
E = 4

IF (N > 5) THEN
N=6
CANY= -256
END IF

IF (S > 5) THEN
S=6
END IF

IF (E > 5) THEN
E=6

END IF

IF (W > 5) THEN
W=6

END IF
'============
IF (N < 2) THEN
N=2

END IF

IF (S < 2) THEN
S=2
END IF

IF (E < 3) THEN
E=2

END IF

IF (W < 3) THEN
W=2

END IF

'=====================================================================
' IF GPS THEN PASS DATA HERE LAT FIRST & THEN LON
' need if last pos not = this pos then , sequential style in
' Key_Press ZOOM home and page down keys Change
' but can map own keys...
GPS(54.48774,-0.61498,18)
'######################################################################

SET_GEO(N,S,W,E)
'------------------------
BB_MAPBOX.provider$ =  "https://a.tile.openstreetmap.org"
BB_MAPBOX.cache$ =  "bacon-osm-maps"
'BB_MAPBOX.degmin$ -------------------------
BB_MAPBOX.rem$ = "Pos: " & BB_MAPBOX.degsec$
' if files to download , tec wise on rpi 4g 20 - 30 secs to 3 - 4 min
' depend on scope of NSWE.  why NSWE '-N , +S , -W, +E' of GPS pos
' can Mmax this out to download many tiles
' this Max will be demo'd in ,thinking, tutorial or in hints an tips
PRINT "Please Wait 3,4 minutes getting Tiles"
TILES_GET()
'------------------------
' medium size, Then Maximize window . position gps to suit then minimise back
win = WINDOW("test imager",800,550)
RESIZABLE(win,TRUE)
'------------------------
canvas = CANVAS(4352,4352)
ATTACH(win,canvas,0,0)
EBOXSVISABLE(canvas,FALSE)

' Map tiles to hug Canvas Typical values -----------
'typical +CANX start -128 0n 4x3 screen @ 1920X1080 monitor
MAPTILES(-256,-256*3)
CANX= -128
MOVE(win,canvas,CANX,CANY)
'------------------------


ico = G_ICON("document-open",4,22)
RATTACH(win,ico,3,3)
CALLBACK(ico,Click)
'------------------------

TIMEOUT(50,Key_Press)

DISPLAY
'--END ALL THAT ------------



BR
Alex

[rikky]

Is it not possible to put an extra check in your TIMEOUT routine yourself?

IF downloading_tiles = 1 THEN GOTO END_TIMEOUT
Or something like that?

 Rik.

[alexfish]

Hi Rik

suppose oe could , originally had

LOCAL BUSY :: if BUSY blagh

what I am after is, in short this

I am very busy here and do not have time for timeout

there are other factors as well , one been callback events.

hence the button event in the example

SUB Click()
PRINT "Button Click Event"
'rest of code here
END SUB


however think this would be a nice feature to have in hug

respective code wise , have this , but here I know it is running , hence no check in this bit

SUB TIMEOUTSTOP()
   g_source_remove(hug_gui_properties.timeout_id)
   hug_gui_properties.timeout_id=-1

END SUB

BR
Alex

[Pjot]

Hi Alex,

I do not have plans to expand HUG on the short term, however, if you want to be able to cancel a timeout, you might consider using the ALARM statement from BaCon instead.

The ALARM statement does the same thing as the TIMEOUT directive, and as you can see from the docs, the value '0' should cancel the alarm.

Best regards
Peter

[alexfish]

Hi Peter

Thanks for the reply

have used ALARM in past esp X11, very problematic with x11 events. problem been it can not be referenced as an object

will continue with code base as is

at same time will look at the ALARM 0 , I did not know that one

Thanks again, esp for this ALARM 0

BR
Alex

[alexfish]

ALARM can be alarming

In fact on latest PI4 latest os with MUTTER rumors are true AKA wayland

SUB dinner
   PRINT "Dinner time!"
END SUB

ALARM dinner, 1000

PRINT "NO DINNER TODAY"


BR
Alex
sitting here still waiting on for my dinner to arrive

still waiting , also had time to think back as to main reason for giving up on the original
nav app in X11.

Attachments:

[alexfish]

Hi Peter

Dinner time

SUB dinner
   PRINT "Dinner time!"
END
END SUB

ALARM dinner, 1000
WHILE 1
PRINT "DINNER TODAY"
WEND

Not sure about alarm 0

SUB dinner
   PRINT "Dinner time!"
ALARM  dinner ,0
END SUB

ALARM dinner, 1000
WHILE 1
PRINT "DINNER TODAY"
WEND

OK,OK act sensible
SUB dinner
PRINT "Dinner time!"
x= 0
END SUB

x=1
ALARM dinner, 1000
WHILE x
PRINT "DINNER TODAY"
WEND

will test in a event ui and see what happens

BR
Alex

[alexfish]

Alarm 0

x=1
SUB dinner
PRINT "Dinner time!"

INCR x
END SUB

SUB POP
IF x = 200000000 THEN
ALARM dinner,0
PRINT "Dinner canceled"
END IF
END SUB

ALARM dinner, 10000
PRINT "Dinner time in 10 secs"
WHILE x
POP()
INCR x
WEND

BR
Alex