|
|
Post by alexfish on Dec 18, 2012 18:53:07 GMT 1
What Next Mile stone for Rad demo 0.5 Now got most of what is needed in terms of functionality , most of it's what I call rat code but now know what will work and what is required, so time to sit back and apply some of what bacon can do best , one of them been "ASSOC " in terms of the likes older types Basic finding the relationship at three levels require some ,hit and miss to get the required result , not the case in bacon this can be reduced to something like this.
DECLARE tab$, notebook$ ,widget$ ASSOC STRING
RELATE tab$ TO notebook$
RELATE widget$ TO tab$
tab$("tab1") = "notebook1"
tab$("tab2") = "notebook1"
widget$("button1")="tab1"
' Print the child to tab to parent
get$ = widget$("button1")
PRINT "attach button 1 to ",get$
PRINT "attach ",get$," to ",tab$(get$)
also will be a fix for the tab-notebook , notice if delete the main tab ,there is the page remnant left on the screen , Oops Regards Have fun Alex PS this could be a good thing to try , some say it be easy in prolog , en.wikipedia.org/wiki/Zebra_Puzzle |
|
|
|
Post by alexfish on Jan 1, 2013 19:26:13 GMT 1
Getting Keyboard input
Whilst pondering on how to get more realisims with the rad tool widgets IE: say if have a List Widget it would be nice to update it as is,
then only to find there was already a solution in the HUG lib mm! I thought
so will be implementing something like the below
INCLUDE hug.bac
FUNCTION get_key_press(NUMBER hug_widget, void *hug_data1, NUMBER hug_data2) : REM INCLUDE
REM should work for GTK 1.x and 2.x
USEC
typedef struct {
int type;
void *window;
signed char send_event;
unsigned int time;
unsigned int state;
unsigned int keyval;
} GdkEventKey;
GdkEventKey *keypress;
keypress = (GdkEventKey*)hug_data1;
hug_gui_properties.last_key_pressed = keypress->keyval;
END USEC
IF hug_gui_properties.last_key_pressed < 255 THEN
strings$=CONCAT$(strings$, CHR$(hug_gui_properties.last_key_pressed ))
TEXT(ed, CHR$(hug_gui_properties.last_key_pressed ))
END IF
IF hug_gui_properties.last_key_pressed = 65293 THEN
TEXT(ed, NL$)
END IF
RETURN FALSE
END FUNCTION
win=WINDOW("wee",300,300)
ed=EDIT(300,235)
ATTACH(win,ed,0,0)
but= BUTTON("Edit",100,50)
g_signal_connect_data(but, "key-press-event", get_key_press, 0, 0, 0)
ATTACH(win,but,5,240)
but1= BUTTON("STOP",100,50)
ATTACH(win,but1,185,240)
DISPLAY
The idea here is click on the "Edit button" not the "EDIT" , then type away , click on STOP to well you know.
ADDED :: have now implemented the ASSOC arrays in pre beta 0.5
As a bit of history as regards the rad tool and memory ;
Pre beta 0.5
arryay$[x][y]
At start testing with string arrays 4m allocated : mem usage = 100MiB
Reduced to .................................1m allocated : mem usage = 40 - 50 Mib
beta 0.5 Development in progress
Init : use of ASSOC array + array[x][y] 1m allocated : mem usage : 20MiB
Tab Notebook edits improved :: Now Instant : > Complete.
If have noticed how the tabs are done this =: Now Adding:
Multiple Windows.:: implemented
Dialog Windows. inprogress
Adding bindings to widgets on Tab Notebook. :: implemented
"import_image_from_file". :: implemented , this will be part of the Event Image. IE: sprites
Sprites :: implemented
Event Image : Delayed, this will be implement once the main image lib is complete,
this is been done in the same format as a hug lib , so will be programmable with the radtool + scripting, OR , script only , in essence this is taking longer than expected. but once complete
will have its own Command Structure.
I hope it paves the way for some exiting programming. SEE NEXT POST
:: Update ::
If Using Ubuntu > 11.04
Download latest 29 beta + Latest Hug > Update Ubuntu to latest "system " ,Kernel + c libs + gtk, then recompile latest radtool update.
Best performance = fallback Gnome or use Unity2D
Regards
Alex
|
|
|
|
Post by alexfish on Jan 4, 2013 18:56:03 GMT 1
Radtool: , A peak at what is going into the libs. + what it can do
In the mean time , here is something to play with : Hypnotic ,
as the title says "Hypnotic" , if affected this way , you know what not to do,
:: if so can just let it run and take the mouse away from the focus of the window
Click on window to start , leftside to start then move mouse slowly to the right
Play around with mouse positions , Click any-time on the window to restart or can just leave to
run until end of loop,
Try moding the Display loop + main file with colours etc , can also try fill colour = , at present all are none'
DEPENDS on librsvg.so
SAVE THIS AS hypnotic.sgv , on your Desktop
<svg width='500' height='500'>
<desc>hypnotic by alexfish</desc>
<rect x='0' y='0' width='' height='350'
fill='white' />
<rect transform='translate(150 150) rotate(0)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(20)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(40)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(60)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(80)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(100)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(120)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(140)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(160)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(180)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(200)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(220)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(240)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(260)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(280)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(300)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(320)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect transform='translate(150 150) rotate(340)' x='0' y='0' width='100' height='100' rx='40'
fill='none' stroke='purple' stroke-width='2' />
<rect x='140' y='140' width='20' height='20' rx='20'
fill='red' stroke='magenta' stroke-width='5' />
</svg>
then say this , compile with latest bacon(beta) + hug.bac 82
' *****************************************************************
' Hypnotic
' Build bacon 29beta hug82
' Alexfish BaCon Converter.org
' LICENSE: GPL version 3 or later
' This program comes with ABSOLUTELY NO WARRANTY
'******************************************************
' WARNING *****This Can have a Hypnitic effect*******
'******************************************************
' *****************************************************************
INCLUDE hug.bac
gtk$ = HUGLIB$("gtk")
gdk$ = HUGLIB$("gdk")
CONST rsvg$ = "librsvg-2.so"
IMPORT "gtk_image_set_from_pixbuf(long,long)" FROM gtk$ TYPE void
IMPORT "rsvg_init()" FROM rsvg$ TYPE void
IMPORT "rsvg_term()" FROM rsvg$ TYPE void
IMPORT "rsvg_handle_new()" FROM rsvg$ TYPE long
IMPORT "rsvg_handle_write(long,char*,long,int)" FROM rsvg$ TYPE int
IMPORT "rsvg_handle_close(long,int)" FROM rsvg$ TYPE int
IMPORT "rsvg_handle_get_pixbuf(long)" FROM rsvg$ TYPE long
IMPORT "gtk_image_new_from_pixbuf(long)" FROM gtk$ TYPE long
IMPORT "gdk_pixbuf_get_width(long)" FROM "libgdk_pixbuf-2.0.so.0" TYPE int
IMPORT "gdk_pixbuf_get_height(long)" FROM "libgdk_pixbuf-2.0.so.0" TYPE int
IMPORT "rsvg_handle_new_from_file(char*)" FROM rsvg$ TYPE long
DECLARE image_pointer$ ASSOC STRING
svg$=""
FUNCTION HUG_IMAGE_PIXBUF_MOVE(NUMBER hug_widget)
LOCAL image,myimage,ebox
rsvg_init()
mysvg = rsvg_handle_new()
svi = rsvg_handle_write(mysvg,svg$, LEN(svg$), 0)
svi = rsvg_handle_close(mysvg, 0)
mypix = rsvg_handle_get_pixbuf(mysvg)
rsvg_term()
image = hug_widget_font(STR$(hug_widget))
gtk_image_set_from_pixbuf(image, mypix)
gtk_widget_queue_draw(image)
g_object_unref(mysvg)
g_object_unref(mypix)
SYNC
RETURN TRUE
END FUNCTION
FUNCTION EVENT_IMAGE(STRING hug_file$, int hug_xsize, int hug_ysize)
LOCAL image, ebox
image = gtk_image_new_from_file(hug_file$)
ebox = gtk_event_box_new()
gtk_container_add(ebox, image)
gtk_widget_queue_draw(image)
gtk_widget_set_events(ebox, GDK_POINTER_MOTION_MASK | GDK_KEY_PRESS_MASK | GDK_BUTTON_RELEASE_MASK | GDK_SCROLL_MASK )
g_signal_connect_data(ebox, "button-press-event", hug_mouse_event, 20, 0, 0)
g_signal_connect_data(ebox, "button-release-event", hug_mouse_event, 40, 0, 0)
g_signal_connect_data(ebox, "motion-notify-event", hug_mouse_event, 0, 0, 0)
g_signal_connect_data(ebox, "leave-notify-event", hug_mouse_event, 30, 0, 0)
g_signal_connect_data(ebox, "scroll-event", hug_mouse_event, 10, 0, G_CONNECT_AFTER)
IF HUG_WIDGET_SHOW THEN gtk_widget_show_all(ebox)
hug_widget_xsize(STR$(ebox)) = hug_xsize
hug_widget_ysize(STR$(ebox)) = hug_ysize
hug_widget_signal(STR$(ebox)) = 4
hug_widget_s_widget(STR$(ebox)) = ebox
hug_widget_type$(STR$(ebox)) = "image"
hug_widget_font(STR$(ebox)) = image
hug_widget_focus(STR$(ebox)) = image
hug_widget_image$(STR$(ebox)) = hug_file$
RETURN ebox
END FUNCTION
FUNCTION ROTATE()
FOR s = 0 TO 100000 STEP MOUSE(0)
svg$=""
image_pointer$("5")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("7")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+20),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("9")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+40),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("11")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+60),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("13")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+80),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("15")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+100),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("17")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+120),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("19")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+140),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("21")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+160),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("23")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+180),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("25")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+200),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("27")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+220),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("29")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+240),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("31")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+260),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("33")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+280),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("35")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+300),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("37")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s + 320),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("39")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+340),")' x='0' y='0' width='100' height='100' rx='40'")
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
NEXT
FOR s = 0 TO 100000 STEP MOUSE(0)
svg$=""
image_pointer$("5")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("7")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(-s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("9")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+20),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("11")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(20 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("13")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+40),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("15")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(40 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("17")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+60),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("19")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(60 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("21")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+80),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("23")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(80 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("25")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+100),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("27")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(100 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("29")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+120),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("31")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(120 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("33")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+140),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("35")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(140 -s),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("37")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s + 160),")' x='0' y='0' width='100' height='100' rx='40'")
image_pointer$("39")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(160 -s),")' x='0' y='0' width='100' height='100' rx='40'")
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
NEXT
RETURN TRUE
END FUNCTION
SUB test_click
IF MOUSE(2) = 1 THEN
ROTATE()
END IF
END SUB
'@ ----------------------------------------------------------------
win = WINDOW("Hypnotic",500,500)
wcount=0
svg$=""
'@ path to the svg file change to where the file is saved
' OPEN "/home/<user>/Desktop/hypnotic.svg" FOR READING AS myfile
' EG :: OPEN "/home/alexfish/Desktop/rect.svg" FOR READING AS myfile
WHILE NOT(ENDFILE(myfile)) DO
READLN txt$ FROM myfile
image_pointer$(STR$(wcount))=txt$
INCR wcount
WEND
CLOSE FILE myfile
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
svg_screen1=EVENT_IMAGE("",500,500)
ATTACH(win,svg_screen1,0,0)
CALLBACK(svg_screen1,test_click)
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
DISPLAY
'@ END OF ALL THAT
PS : don't forget to uncomment the OPEN file ,near foot of code
can also try SCALE : EG 1st line at rotate
image_pointer$("5")=CONCAT$( "<rect transform='translate(150 150) scale(1.25) rotate(",STR$(s),")' x='0' y='0' width='100' height='100' rx='40'")
OR try these changes
FUNCTION ROTATE()
FOR s = 0 TO 100000 STEP MOUSE(0)
svg$=""
image_pointer$("5")=CONCAT$( "<rect transform='translate(150 150 ) rotate(",STR$(s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("6")=" fill='yellow' opacity='0.8' stroke='purple' stroke-width='2' />"
image_pointer$("7")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+20),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("9")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+40),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("11")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+60),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("13")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+80),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("15")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+100),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("17")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+120),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("18")=" fill='orchid' opacity='0.8' stroke='purple' stroke-width='2' />"
image_pointer$("19")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+140),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("21")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+160),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("23")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+180),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("24")=" fill='yellow' opacity='0.8' stroke='purple' stroke-width='2' />"
image_pointer$("25")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+200),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("27")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+220),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("29")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+240),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("31")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+260),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("33")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+280),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("32")=" fill='orchid' opacity='0.8' stroke='purple' stroke-width='2' />"
image_pointer$("35")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+300),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("37")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s + 320),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("39")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+340),")' x='0' y='0' width='100' height='100' rx='60'")
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
NEXT
FOR s = 0 TO 100000 STEP MOUSE(0)
svg$=""
image_pointer$("5")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("7")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(-s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("9")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+20),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("11")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(20 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("13")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+40),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("15")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(40 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("17")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+60),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("19")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(60 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("21")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+80),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("23")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(80 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("25")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+100),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("27")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(100 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("29")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+120),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("31")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(120 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("33")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s+140),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("35")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(140 -s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("37")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(s + 160),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("39")=CONCAT$( "<rect transform='translate(150 150) rotate(",STR$(160 -s),")' x='0' y='0' width='100' height='100' rx='60'")
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
NEXT
RETURN TRUE
END FUNCTION
Snakes
'Snakes
FOR s = 0 TO 100000 STEP MOUSE(0)
svg$=""
image_pointer$("5")=CONCAT$( "<rect transform='translate(100 100) rotate(",STR$(s),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("7")=CONCAT$( "<rect transform='translate(330 150) rotate(",STR$(-s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("9")=CONCAT$( "<rect transform='translate(100 120) rotate(",STR$(s+20),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("11")=CONCAT$( "<rect transform='translate(320 170) rotate(",STR$(20 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("13")=CONCAT$( "<rect transform='translate(100 140) rotate(",STR$(s+40),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("15")=CONCAT$( "<rect transform='translate(320 190) rotate(",STR$(40 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("17")=CONCAT$( "<rect transform='translate(100 160) rotate(",STR$(s+60),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("19")=CONCAT$( "<rect transform='translate(320 210) rotate(",STR$(60 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("21")=CONCAT$( "<rect transform='translate(100 180) rotate(",STR$(s+80),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("23")=CONCAT$( "<rect transform='translate(320 230) rotate(",STR$(80 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("25")=CONCAT$( "<rect transform='translate(100 200) rotate(",STR$(s+100),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("27")=CONCAT$( "<rect transform='translate(320 250) rotate(",STR$(100 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("29")=CONCAT$( "<rect transform='translate(100 220) rotate(",STR$(s+120),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("31")=CONCAT$( "<rect transform='translate(320 270) rotate(",STR$(120 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("33")=CONCAT$( "<rect transform='translate(100 240) rotate(",STR$(s+140),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("35")=CONCAT$( "<rect transform='translate(320 290) rotate(",STR$(140 -s),")' x='0' y='0' width='80' height='40' rx='60'")
image_pointer$("37")=CONCAT$( "<rect transform='translate(100 260) rotate(",STR$(s + 160),")' x='0' y='0' width='100' height='100' rx='60'")
image_pointer$("39")=CONCAT$( "<rect transform='translate(320 310) rotate(",STR$(160 -s),")' x='0' y='0' width='80' height='40' rx='60'")
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
NEXT
Have fun and regards
Alex
|
|
|
|
Post by alexfish on Jan 7, 2013 14:56:00 GMT 1
Lunatic
A long time ago nutty scientist designed a rocket with the notion of flighing it to the moon,
unfortunatly the the guidance system did not know left from right. or anything else for that matter!
The object of the game is to fligh the rocket to the top left of the screen then land it back in the bottom right of the screen. Can't see the moon
Pretend it is cloudy,,, or make one...
keeping the rocket in view at all times
finding a specific cordinate X will help with take off , return and landing.
The Rocket , What it's a big one, it was the only he built .
<svg width='500' height='500' id='svg2'>
<image
xlink:href='data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAEsAAABcCAIAAACp/9+eAAAAA3NCSVQICAjb4U/gAAAgAElEQVR4
nNW8d7hdV3Uv+htjzrnW7qdXHXVZvbkIywXbMrYxtoEQTAsGgomBhNDyyL1ALhfd5CUhlyS8UEIw
xtx8pEBsurGxscFFLki2ZXXJktXLaTptn733WmuW8f7YkhAQEvsFm+/N73x7n7K/s9ZvjjHHGL9R
FonIOA7mpewyKUWtsBopACBAtIgALMJCIAAEIhAsPMPHSFgsB4EKCAYckJWgIwRyXhrTFEXQBmxA
Cr+5RSLSwFjDNlp1u6QgpynSPvjJ6tSzzz27ZffWbbu2jY2NtbW0Llu8dOXiVfNmzGtra4sLUSKB
jQokGXkCImgGcQghs5FiVux95jMXFcsA/YYRToaJPOV9kuV1FIRGRo7f9eAPb//6Pz721BPIAxoI
RAJxggZmd8++6NxL3vTmN65Zc0GxFDmftRVaCRTSoOMSBAKIQhJ8LUkqhaIB+DeIr4kwAShIDPis
Njxy5Navf3X9Zz7NRVb9GvNBs43Ox9zI/LEs7IUf9L7uJeC85Ss/8gcffMXaKzoqXZw478DFEmkN
proXGPIAC/KE36SONhG6gMZ0KBbk6LFnb/2nL/35Z/9OzVVdr+nuWTcr64YrBCW+FKiQCk/6E8+N
ndg2nmzN7G4rQ/LGV9zwRze/f9Gq81vbW6tjQ7n2Cufy06kzJoYgOBRzv1EdbSJEikYK0bXbv/EP
7//oR/RSNeP63jmvm304f7JaSVNjSVzeSSFDlEBzwWSlxt705KMT0w9MpzuT2ZW+t7/+prff9I7Z
CxfoiJ1zSsfOI1iJc6ds028a4RhCUbbu2/aqm64asWP9b+uef+PAkcLgeGsyFdWccgQoH4wLkSgh
Zevo5Rkzw9yxJyaO/9vh6lNT9kR6ycqX/6//vn71ypU6SEt7ReBIAUqDNOg3eRLV+vXrMYGUsy/8
09/f+9B95YvLc24aOFoaqnbUpuIpxynIAz5wcFqcRqa95HWVakPZSHFWecZFc3y3UlOyd/vuu37w
QyNm6dJl5VLe2SnOO1AAGQKLCAAiCiE0v3lpEVYxmYx/+K/+aNJMtbyzsz7XJ/1ZNZ6ynIFAZxl7
AQlMAIJ2Np9NxpMTufH8jNzMNXPSqfrYkZENDz+STifnLF/Y3tuWSZ1ZSTAQDiGIiIh470MIRPSS
gdQAJCcHnt594Oh+nqfj+ZVGV2NcVy1SAjSgBAHkiQIA8Gm8HgiebC2XSGtdQm3+Hy7QMzH8wOit
d9827Ibf+3u/v3LZchMXIZxmqVJKKeWcU0qFEEIIzC+R6moAYNm05YmQBT2P44HiRLFqVQYQQYzA
OApQqWJhEgBwgBCIhBlQCCGqTbdmg4V09i29qk+N3jV+xw+/tfvAsU/9t89csXaNjgNz8N4D0FqL
iNb6JYOHpjcWcc/seQZ50vN0MDYJ04BryoqEWJQKSgcmYUCAAHgVJOdVwUV5G2lin7eNtqnD+f0D
r+8ZuGlG24q2XZuf+dSf/s0Ddz3WqCXMzMz1ej3LMgBNdX1pESLbfmAX56jcUw4+oWCBAAQBPMiD
BUQgRiB4IDCgITqw9lr5iEJEpGsNy4VocOr47CX9i69dqFvo8Ufv+1/rP3b3Xfc457z3xpjmCWye
yZcMoQbgItl7/ABH3N5aASGvVAoSiACOQAoqQBAIXklQAQogFqtdJgFCwsqglEuiQrVSGc8PPXki
PMkqQmImth14/FOfrpo8r1u3rlgsaq29902RvqQIp302OjphZphSKa65qmQpKQgBQCBx7AVCAIsQ
OHbQQBqFjL2HB1j7Uinr6Uk6T/74oNvuBn96OOz3yxbmVl257OTx5L67N//5n/8pk7/yymsKxSIQ
iJu2in8pIpcXI0bXAGpJkBQwAp1kMmVDIwRAAQKIEDyTEJSXKATlBYoDbJrXwj5SaTlfnZ3swthD
J4Y2HOEjWDBAl95Yec0rB85dOe/ofls09vvf3frZz/xtIVe6+OWXmdiDrMAEiRmGhcQDIqwIHEC/
DPvXgTA4ggAKQaWiHZnmVZhBESQCfAiZQ1A55rIIJEsKQevEV2x7ckDX7huf2l51m4dn9ePl13a/
8hWVS87Vs/qUwt7uQuGD75/l0vDYQ1tu/YfPmFhfesXLMl8jip0TCpTTpmkJIALnYMyLgtBwgAAO
mmKFAoljRoAg+OCtV+IJxKyV9kmmElWxLV3SXntuevLh8emt425njYfkXa/rXHNedMW63tkzOdbD
WTYWSFShfdmqeR/80MoseWrDow8XKpX2rvKCxQuSLChmVmydjbViQ8GmrF6UGEADKMQxNCgQS55D
EGcJAskCBWHFhOA8eTJKa6tap0vlofzJJyamtkxNbBrzw/61VxSuu3np1ddGneXxcmkEviZcJ2Wd
4oAq6eGV5xXf+/5zGp/Z+uOf3F9p6XrfH35wYM4cpZVR4ikNxCEQw0NFLxbCvM4Xyi3O1bMUgdmT
C/CgBAAxomCiJFI2n0/bcTKfbBg7+sjo9NZpN+ouWIEb37vqipXq/BUdOgwh1OBr0I5UXnNs4UQc
YSjw5IWX9P5+NvNv//rQ3d+/p79r4dve+baWjrzXjdiEIBQ8xyYOIfCLQCU1AMWqs3PgeLZnojrN
CjBWYAGPoFDn2BZ6pMOMm+Pbxyc2jCSbpt2hbOVi3PC2RVdcXL5gcalspmx9lzYEFUCxB6VZ5jjA
KEOiTSKoepVdctmck6Pzv/yFI//8j19ra+143Zuua+tk66aMyhudsyFo1r9+fE2EpNDbP3D0wM7x
yZF2qjBbwCGogmvtQVdpmNze6ZGNwyM/nU4P2TmteOO7Oi5fV1ixzHS01icnDuZiYwpm2k8Qe6NA
FFjEkAYZEhskyUcqyRoqP37DDctGjqvbvrjn9ts+O3NWy9WvurTeyMrFvDK60UiLhQLh1x+PawDC
1NndLQclm2rksmIhFW/ZhNb2ej89h8N3H7WPV7PDdiAvr3t1z3XX9Jwzb7KzP41zh73LWguGkCYe
JgKRZ3JEnsEQFo9TRhk+1s75qZa2kTf/zuLDB5Jvf3PL1//l//QPtC5aukirnAfFubLzpPSL4w89
Y/6CBfIYwnG0TRhKC126mI4Whx4etI9Us21Ju4RXX1i56TUDay4od3QwZSmLp4ZnDbaJmJJhxwFw
FkZ8KrqoxRM8EEWACZIS2cjUQjjS0cU33zLn2NGpBx/4UV9f9wc/8tGe/krwRGSYXzRbKoqWL1mE
SejnzOLa0onq6OYndx/bNJbusTTsL1jS8/tvPveKC4p97Ydjc4JIB3HwAfkya4LUKVOcWoJHuc1O
jeqSghPiWDIK0wnnOQiBhFWm1UQujwWLwltv6p44OfHdb31j7pyFb3nHO+JiUUeo1WylaH7tato8
3LWFc/swBb/NHPkXenbPkSPP1mwiC+fiPR/ru2bd8t4OH5mjYmrCmnydoxSKQDQ5UVeUz5falImm
po9yWiuWdXCOnGeqEVo43wqpsmgJADmoLDKTqiV3w+tW791b/cqXnv3cZ/920bJFl15xVXBUyOsX
gxVrAEw8o2tWRN3JgeSJr24M2fjyOXjrOzuuf/XcmXMd874MdY51g3xVGiVu5MlbJ1q3Utyei+dX
UzM4NNlSWT0+cmT+7LY4sjANycZDdVpJHrmcAiSISA0hJbZaKaMP/94tF+zYkt573+Gv3v6FRUsW
9Q3MDy9OxkoD8Fm+s9h53tI1T2/6YVdev+OWc657Vcc5S0KxKwl21GW1Yk4lSOp2uqDiWJnE+loa
WrjVU8um7ZNf/9e9992dTY5QpEJn25Gbfqf0hjcsaevQUcVN1w6Vci0gRUpIRIJIEEEDdKy9s/SB
P1p0Ymjqnh/e//Irvvna191UrnTlc9GvH6aI1BtSrSYffv/Hulrwpt/qPnni/3LZG+vj/bXxWHyL
rRfTei6E9iAtVaurnlIp+rB4cmLtbX9fvngVz8ijm7GogF5CP2NZG111funI3osOH251blaStjjb
Fnyr+II4JRZiWXx7vTa/Mf2az35m5tyZ1NYS7djxlPdeXoTFADg3hNzIBZfOsDHGRMb15JA/PJ23
utV4TnSeIy00NUZTkyXAWfK+DdniR+5Iv/epLN0a3nwOvvYHqz/9O8u+8I6LP3DlRWFcDmyefttb
dsQtKxuc86w9JQF1gQMZUAwowAlGVHTkzTetWbSk0/vsz//sf4yMHgf8r1uCYACERl5h0dL5k1Uc
PhYmazUfko64LfNUz7IgFkohZkQKHq1a5VV+1+axr395//Cx9Ib5Xe+69GVd44eWytBKPnnDnP4P
Xrkur4jSqW9+fauSnpzOa4bAeYRABDYgHex0PnZGT7QUxz/xJ+fNnVW589/u+eT/+LPadAJpUo1T
70AAHBDO/B4CQTgVdeE/zxUwAIU5IXR2tsxcOq/Tnmwc2rq/reAaOB4pVdQtHBTEwQAaIA2bh205
uG/4xHDSrXHFy2aoxuEuP9FdPbkg1OdNHT+vqG9Ycf7+Hbj/6yZutHLGJBzYWKYGuQaJ48h7HbxC
vUrVo2sv7L/5d2e2teivfPlrN7/1vSNHquIwXYXz8CIupCIW4hAE7pSMBc4jCcieL0JnQZJrb+17
7fU31sbrTz2xizxzIBUUgQAGERhgAhNAfmxicOjkWOoG5hUiDe3S7hzihqB6RCYOlFCb0dcJwHpJ
Gh5CEGLRAAECMESbfMnXU68iU7SNiaff8IYV8xeXtGnc/YPvvOt333X8WDVfkFrDZy74IBOTE/i5
rC1O/0jPh0wyAKWgFKIoWrv2kulpbHxC2aQCKgsFoJm3Pr1VHCTOuCdXK5gaY6wex7mBWlUQRLdB
FExLJpUklFxNIS2EhkoBImElFAnFQBSgPSH4KCdMI8hNSOFE58D4uz/Q19qjrUz/6Cf3vPu9b3vu
wIFCQZQOTtDa2guY5laf2iVRQE4QPV+ExBCIc2HO3DmdncXJCXdgXyq2NUACWyEPBIAAFqKMslTS
UnchFPSe4+PPjZ8MLW1HEz08yY1In1Qi7fEjWx5RRcxcgGJrCGyBQBKUBB2ggkAEaQpNSRKcr5bK
YSLb9urXD1y6Li5XEFC/7/7vv+Pmm7bs3OHBWucDABJQAPnmXpMwgoY8r3RWM18KAFEU9Q/MveoV
14wM1h68/1jwHQIWWCEnFJoaT4IIOvNTy1f19s3NT8W4a+umk5XiaEvnVE/7YLk3m7X43u37Doyk
s+by9dcGH46ISoQ9yAIBEhACxCNikMtXAhlxUi0UprTa857fbym2MqsQ53jjE0+/7a3v3br94FTd
ZsF7SQTJ2SbnbMX6j5dav369EIIPIlCsxk+O3n3Xj1gVr71unskPMtX4Z/rOACGIUvnWjrmpq+7a
Wt33nJ+uT0H31nzv4Yl445GJbz1+dDKmG95QedOberWZIu1BgRDolFUgAEKelDiBorgRrEJI0slz
5izbtnXquefSLBMd9Q8fdw/85MnV562cNbMNVGPKmBgwaBoDgJ4f11Lr16+33mmtgxetTZY2fnTf
D5yVtZd2dPVNEVXp5xF65xgciPv6+xqNdGrCbtuVHj+Op3ZO7TyR3LfnUM9ife66GW//vZmzZkRK
iSUIcfNmqLntHIL4AJU4IlJEkllXjHJacrPnzbrjm0dtpirF1WnSOzbqNz31yLJz58yYWWBKmQxJ
BKjmyaLnZWig1q9fX61PxVHMpEgoMvHuHTt37941a45efm6kdK259QSCBCJiTY6yRmhUyvkVK7rn
z1N22kdFG7VW8zNV35LiVW/qefeHrmhtzRsu1KYloBh8zJQnikQYDHCAQiY+0jogGIq1KMO5LHUd
3QNHj03+9NFalvS0t6yt1fXYyeObtzy6avWcru4WowxBEwzOlMSeB0ISkYatax3DK289if3OHXe8
5903v+JVlb/54uy+3pPenSTYWJH4jFlDIYVrBBDlc1QxoRDGJB3zJ0YmKn2z0dHNudbpKXdi3+TY
ITU1UeNc0taRLFpa7OzRbKqixogmlPKCQGAFrXxEohECkK+H7u27ul657v7JqWVdrW+aqumMDga3
edEK/+m//cgrXn6R4bzhVu8MBEo/r+qyWr9+PSux3hvWIUAbrk7Vfnz/g4kdX31ey+w5FY8pTZbJ
kyImgYCENchQIEqJpk1UjYq1jgFTlyRqnX34QPKTb+7/9pee/O5tB35859FH7x3ctXl0fDAj1dHR
1eWUS2mKVWCIgighFgUhUAAh85LL9z61afC5fVma9bW0LLa2AMqNjhzbt3/3wkUD/TO6FGnvFQIr
9bwRupBCODg2hlmRUmpkaOTRxzdU2vSal/UW81aQSPDMIAE5xSHW0BqUEVkKisEm8jqOCufs3t/2
D5965q7PPaf28TkmPz+OOzmujspTm6b3H7Bdszu6Z+XjQgYkDG8QlDQrBgK2IBFwLu5ibv3BD/YF
aS8UliLMJGoXjxPHD+zd9/TseX09fb2KI0UR8LzK52r9+vWpS4zO16Z9Lq8kBCAQ5Pvf/57SfP55
bZ1dwcuUUZohgJDPw8UIALlE+ZQcIQjIojSRdP39Z/bddevBFcFc3dp6RUt+WVScnWttzxUaWfbc
4Ymhqdrc5cX2PmGqGzgtoenewBLYBRLNJjjdO2P+nd/ePj6hmRYwFovrY2r1Nj12ZOeBQ3vnzZ83
c2CeBE0E9Tyyj01vIQJNIKUI8MweZJ95euPxo0dnzzPnLDFa1RRJ8JZIUYjhFCSDck6RJybAiWLq
OnIw/suPby2Nqzd096wKPLeedaVU9nHZxMQYTpMDY9MDiyqLV+UU1XIIKgQKABiMjMWRaOLgkC+2
7tgz+MyWGmi+T5eIHwihkouKzI1Dh/YMjw4uWLCot6fXGHo+mR0GoFiHEHI5DkGIEed0/4yeK6+8
evC4ffSRE6PD9UiXrfPOOUBEZ2Ia0BkYjHyEShyK+axFVQvHtw6lg+hmWlAqdNqsNbGVZLo7GW+v
nlwUR3MLcWMUQwdtWgdJzGIoKASGqACdQVlAkBhdc/7otdefI5T4MBzESsgp6tO81ERrDa946P7t
f/d3f79t95YA+5/jO92RJYrIWSgiEUrTrFwpX3jRpTP6ztm6ZXr7tobzBYFSJucFGSU2boTICZGI
Jh9HLo580UjH8V3DOYtODiqbqCjoIMo2TDbWaVyH4QqpWFAdn0zqqeYIoiAMMGAEcYASEIInSbSq
LVveR8qLGykU4WCB2NoOmyyMzUXiFjzwo6f/4dbbn312788I1eklv/QrBsBwWoUmeSAwKGaVX7R4
xbqrXnXoAB7bwCOjeXBJoL2wI7LEgQ1IG/EREs82jXw1F6gzlzFqwKQLkxlskCjSPicNdtWEQ4gU
YIzShhzZjK3XAtaQPPtcLBwDTIV0OolNKJezGf0iYcr6ERXbFGkacsHPt9kFCtdMjS2461tPfeVL
/3pw/0FICMFJ8D6EILAezTA6nI2Q4AnOGCGAwcbkQXFXT++ll1/a3jZz86ap3Tut9fnMe1JCxACT
aBJlgjNoBJ00dKPO0wNrZk4ShjyGFI/li76jY4gwpMxUuXzEuRNpo70H8xfG5ZISJJZSzyKsQIqE
Y5FYAK9tJkRpztiZAxD2zifEXth7RA5d3i7y6VoOl4wPd3/7jkf/7Z+/O3R8KHgn8IDYIOE0PPl5
LT0dHZx1cLUxy5Yvvejii3bvqm54eHxyMmZdYVYaIZbAwcM7eEs+05JppFo3Zs5rufyG3KjIQ2NT
m9zkzjztjgvHin0HKL91evRQVlu6tuOiy8rGTGo0InglIAgoBdeFnEAQXK6l4mGJMDkhhBDpQrAE
bySYEEyQInGXUgsjc+7gcPG2r37vO9/90VS1SuTAKZNoBZYmHvmZLYU0S76qCVJO48zn4sOHD957
z4+dS5ct7Z45swhUDTslnrwgCMQDQiRMVLdZId+6eOGCnTv27zvoB9PsqE3G2O9tuCer1f1prf9c
c+N7e1atzSkzaqgeQ9gTBCAnKnPkPBFDq6iUOhw5lvvMX5+wSXeOLwpuhoSioFl7C806uVJaxI+O
Hd1/aM/cBX3dfZU4okYjMzpWRAwQ2WZXpFq/fj0ggIac3f9EBGitjx45+OCPfzw4WO/qKq1Y2Rrl
6gopQyDNPWoyGTDBsDJKt7V1t3XESUg2PZceSd1x74aRNNqyJetyv3XLwMXXdES5KUbdILD3CAAC
2Af2FuJBgUKakVYzfnjP4bu/lxrM5LCYpYdRAiKABRTAgkgoH5kYsMMjB/bs27xi9fzevo5IxYbj
01F+A4hwOuetTwtOCB6AQEFAhP7+GXPmzN+65ZkH7z922eWdF1/e7aWhKT1tg+VUJ5j4KNRrjSOx
MVdd3b9s6axLX33y5GjNT6cFkllzynOXR30zOS4l3k/HPpAngCEB3DR7p+gtiB3nWGZ9586tPmPv
G1b25qhXK0MCLxUn2gsHiUQi6z3rOtnpLU9v+txn/2nmX3100bzukHqlCBRw2pc0tfS0XhJAKRAI
DIiIz1K7bcv2Z3fvmZoMpTYsWVkqlknYB9bCShSREiIBhFhYkVbs6ifKrbJ4aXf/wnTpeWb1y3IL
V+jW/pqjMeem80YxPEMgp2ksQ5g82EMzcobn/uD7I7d+brhg2pecs3ZkeFiQgYSgwHmhWEgLK7AS
McFLvpgX2EMHdrW2lFcuXRozk1JEDuRAudMIwxl4AkoAAQwREYkP2Lbl2Y0/3epdGBydWrK8d945
xUCJI3HEjkRIwMIQWHBUTocn41bRuuHCYLGctJQbOh5OMGTMFKs01qTEE1EzoQWSU91ITAFKkKtl
eWfnvuPNT9fG+fWv/d2P/Lf3bd782PGhvR6pCINzwjoQhAnQEjiXKwcfvPc2re3cvmWgt3vxkvlR
zCAHCCg+cw5PHz8SUEIgIG5yMO/kqae2b9iw1Xq2LtHR+LLF5XIpJRIwJUgZajq1eR0TOQSn2CoO
ijKt0lilmqcN1SLONDlDTrEDe6JAwUHFZLRNHWnFbKpVlzPdnub8n9u33vPNac1tt9/6r0uXzVlx
7sCBw8/sP7AHJIGDjnOkyYsCR1BRcNZllI9bC7nS5OTQrm2b1q5Z0tffxiEBx2BzlgxPNfF4IAMY
iL131mW5XOHQoROPPbq1XiNrs+MnpufNjJYvLqjI1e10TsWW6mVVyiQxxJBATJAACsyeyXEQDqxB
TEFRIHgiESJi00hSkDWREfJExdj02LT3oYcmPv7Ro/Vx9bXbv7Ny1fKohI5OWb5ywbFjR/fu3wtC
QKIjZhWHTMNCoI2pwEWSBRemxib3Z43hV1xzca4UQyLwGVsqZ7KPHvCABiIBRMRoPTw8tnHj1pOj
idb5xnTDTU5csLK9f0bFuumCppiQUt17H3NEZ6j3KZdE8DlkJQRFsIRABIISUllItY4z8ZZSZm3T
ItuFOzfr971v++iwu+lNN//hh94XR0JcM7Ht7ulbsGDR2Pjwnr2bOE6cn5ZAJHkJQqw0F3wQFVRR
R2kYfHb/T1evXrBw0TzxzFr/AkIBOQCAARQTs+KAkGTJM89s37v3WCE/O6eKw4cnjYwsO29eR0fr
yMTxYsSNzBYMMwxBncpqMkBKSFPIw5cAgCyoqSoaUMwUOKs5qzgWVBQWHN3b86H3bdi+vbZo0bKv
fuVfSi3FzI3rHAiio1J394yFi+fWG4NbNj2AUM/FxVgXwSwheBdUiHI6l4u1+LF6dvTokd1XX3NZ
W3t7s0n3LITcDOgMoKnpGwUBXke0devWxx/bSjJX+dniJrZsPTmjv3v2rLZ8PqnWxtqKPQjTinUz
oSoMTxRIC8UkMUFDeXAGEoAJmsD1LEu8rZhuRzmmeXu2F9/+xod3bK8uXLjiwQ2PtVRa0nQyVzQg
EsqL1drkOjpbliyf7WV68+bHbWOC4HO5mBjwKuKcD5LaKulpF0aPHt++5qJVy5ct/CWEZE8JUBhA
COK8KAVS/omNjz3y0FORWq7C8swXE0w+9PieVefPWrK4UqlESfVIHDfdPoSDPxXZM6ACkddBlCVy
1JShEIFj3ZXT3SPjWaSWbHrCfvAPnjrwbK2rY85PHnpCAuWLsc4plyVp4r01Ji54772z/b2t5527
3Nra009vzLLJzCbK5HNRkRHZICK+UAyZG/NhkKP06le+PB9FZyFkOYVQoiZgImImIQfO9h589umn
9vj60shcXJfeui7Us0PPbN/yylcuzfGRiKvKeWhBU3jk0exlRLDkGpRYSkGWKXAzKSzKJbmpsdaC
Xve9O8f/50c3P7uz0T8w+4GHH+noaCm2Fr1NvA06LgFxFOe8hwjncjoEaEUvO3/VnBmdB57bNTEx
5rzOMhJRkSoyI8qFoKacPXHw+Nabb3ldW6nl570FubOjUwLSzCZZGkdxdaqx5ennjhzwwfaLGRDT
BTs1evLolq3bLrl4RWdvjzIK5MFeACJF0AIlEAdn4QTCUISYpQzfJq7X+3OOHu78iz/7yWc/s314
mF5/49v/9Y47W9u7okIEn3EcKR3ZLCitqtW0UNDEyLIAhHw+X66UFi+ZP3/ewOEjR44dPRLCmFaN
Simk2THnjhKPOncwqx/7k098pBif8RYUQKGpVwCfYRjMSnHEMAXduW3LwSc3b6yUizrMMJgZ5SJv
xw8eGtm253Cx0jd7zmqoSa25XsuiqE98ZEUJIwg8KKZYSUVCj3WzRsf7d+2pfOWrOz75Z5s2PJZE
hdaP/cn//aE/+lix0pbLMRgBkCDMxJqIKYp0M/mrDROxtc5ZH+eLS5YufdmF5yXJ6LFjT9dqOxCe
9WGnov2t5UlrR8HpH3/gA4Uin4lL7c/BE4AgIhAoIvEo5MvFQklRNUsP5dilSdG7ufny9fVqy4YH
Hx8c2rH5meG3vmVOb9d0MeJ6NQqedIEadixJ0zy31K0an3RHj9g9O44/umFow8ON8fEol2u9/MqL
brnlfWvWXNrSVjYRvASfyROPP7Jy5cpKpVKtVkulUrN3utk4rbWOoua5qk4AAAu0SURBVFyzg1qA
+fP7/vrTH3nFupWf/dyXdm7fUYyL1VpybNgrTdesu7KlcppDiMjpIFWdoosCEEIIIXgiLQEU6H//
1Zf/96e+nDRmMr/F42LSNTJHU7uXwxaRbUo909tVW7woXLq2r6OtrdLWXukoVtOTQ4NTJ4/7Y4cn
du8+efAg0iQqFivFYulla9e89nW/feVVV7e1tzfSzESaGNVqtVFvrFi2fO3atR//+MeXLl2az+ej
KErTNIoiZhaR5hgDEVl76p4JGDtZ/8Lnb73r7vuqk43MZbMHZq5f/ydXXLmKNZ2N8LQjO10+CSGI
eBEWL0brb3/rgfWf/H927vKB3qDNdaxzNhuGmmqt1L3dWa89gLCBwkhvjyQNaqROFCiChm7NFSNV
0lExiqI5s+ZddfUrL7/iyrnz58aliBRlmbUh1QbOJYVccfDE6Be/eOsdd9wxODj4/ve//4Ybbliy
ZEkul0vTtFAoNLvDm4MNSinnPDPZzNtM4lhlGe3a+Wya2nwhXr36HAFrg19AqH7GjKnJNb21PgTS
Ktqz6/DHP/4X37trpzI3BVxLqo0Ve2fFnYz1ydbK4Ubjnmr9J4vmm9WrZ09VpxvO5crUWmyb2blq
+ZLzly1b3t/fXyqX44LWBmBY50EyXZvcvmPrggVzyy2FXFQgmCwLTz755Oc///mNGzcmSfKxj33s
qquumjVrVhRFAIwxTUkS0Zl2eO+lUU/iODJGZZmPIhXEK0WnrKaIiGQi9lRzRjjz5kJI0mw6yxpJ
YkeGp9//B5+IzAVx4S9V/kmoQzAT0AnrCebD5eIjTP89Mut++7ffNT09HkJazyZqfiQL1RBcsNZb
G5wV7yTY4G3wNgRXq0396P57Fi1e+Bd/+afjE0ONZKpWqzrnnHP1ev2OO+648MILlyxZcv31199+
++07duxIkuTMdJFzzlqbppm1tjntkNkks40Q0iBJrXFSpNH85BmOTz+b9Tx1RD0QmNHMukbG7Nm9
+8mntteSouhOQhk+QohMrsAwaTocRRNpts/L0d+95Y1RlCPWxMojMAWPVJASO6HE+kaaVYUssY8i
VSqVH3zw4c1Pb7nk4st7e/pzuXyWZSGEKIqWLl16/fXXd3V1Pfzww/fee+/g4KBSqqWlpVAoNMem
mqUwVso5C4jSFEJGHATeGB2C57PYU/i52QBqytYHccwAhImV4uGRkU2bdgwNeVb9Rs8S6ZCgvYMI
aWWLhalGuidL977+Ddd2dPSQaIJhUkRNhVIguOCe2brlwYcfKpVK7a3tgCoWytaGb3/7+5VS6wXn
r4lyxhjDzM45Zq5UKosWLXr5y19er9cfffTRu+++e3JyMp/PVyoVYyKlFQJEoLXWmomgVDMLLkzK
Oq/VGQZ8qk/nrDIHNVMUHghBAgARyufyP9245dk9Q5Gex36Ot+3cLI9Aac4Uj6R2v9KHLrns3JXL
VjM4OGJWAg0YkAEi4vhLX7z9Yx//5PLlq85bvSYEZormzVmwaePT9977wOWXXd7b1+O9w+kJqebs
SVdX12WXXbZgwYITJ048+uijDz30UJqmcZwrFSvGGKWboJriCc57xYZIaRWfzgaf8g9nXk9jJCJC
kKCZQ/Aivr2jtbu7PYo8+UnYRAlizZp1kEAwRHmjW7yXHdu2k4AEmqFOE6lmUYeCYopaym3lYitz
JEEFj0ql8p53v9dm9vavfrVRb0xPT2utnXPNARvvvVIqn89fe+21X/jCF/74j/+4paXltttu+8Qn
/uf99z84Pj7tXThd6+Yg7NwZt3eqanMG4c/lxiEEkJxKqJ2axSqXSytWLOruihgjEdeYMgmOKRC8
0pHzxkQV58JPN25sJqi42YdzVrk2+ACRtkpbMV+GcJOOEOPyKy5dt27dXXd9f+PGTXEcO+eIqClD
rXVzu0Wkvb39xhtv/NSnPnXLLbc4a/fte9Za22yzaBogxSaO8kT6lF8AzsQ08gsCPC1FJtKhqS2k
idT556+cOesHQ4MH8vFJl1YzZ1VUatb9nI2ifGsIZt/e/UmWxpEm8s0mDj6NMfWJtbViMc7nI+8c
MzNTCJLPxx/68B8++vjDn//C51afe2sURc1Qpunlm0OZSinvfalUWrZs2cDAwIUXXliptHZ0VXTU
bCeR4ASaTyV8z0pt869CKAIRYtLeS9P9WOsXL54/Y2bRyQFPx7SeCjROpg6S1AYfKswdIuVG3Y1P
TBAHUAJMA9OEGqEOabhsOk1q+XwcR7GIiIAI3kuAnHf+ytff+Fs//vED99xzjzHGOde8b2ttk+aF
EIwxTXdfLpcvuuiiFSsWK+2tawRxSjfTW2A6HZb9ewh/HqQQhEWo2e0VgkCkta2yeNnMllZbT0+Q
TohdYA+G81qkO4Q+oNf58tHj4wIOTUWAhhgEg2BcSj7jcr4tHxeV0iIkAqWhlNjQeM97b543b87t
t99+8ODBpoo2/Z5Sipmb0am1lpmjKBLxgAMyIAMc0ak5TmvdL0z+nalb4JctDUDeB8WalQJYa02E
C9eeOzC7PfPHg4wBmQ9eOLAxngqZrQDtjjqOHJ1ynk5ZURQQCgh58bHPjHhTLLRqnUezpTYIM0Qc
4OfNn/3Od77jySef/MY3vqG1bgYuURSJCBE1x2ubryKilBKIYoqMAoIPVkSa/Se/0IXSRHiq8fAU
2NNfzXPIrJk0s2JmIjlv1ere7jbgsHO7FFUNAoUpHTVIT1s/zflWn+pjx0ZF4DIARoICaQELkUew
PovzcRQbYihFxCAiEBmdY6g3vvHNCxcu/MY3vrF3797m/TXVtek2lFLNI8rMRExQIAMYIk1QSimt
tTH6F9oXmgjVz4jF2X9jVkoDTKSICAQm6unsO3/VyrZKktlthsfYNfIRBV9XKvWUUVTwmR8ZGWVC
s77bvEgzcezFZq6hIkQxE4MVMRNATJqgANXZ2fXhD3949+7dt912W5Ik9XpdqWbMQE2EZ9ACRGQI
EWCIDLP+Vc/fOLu69quK4j/X9qhIX/eqawcGyl4Oh3Aiy8aNKvgsUtKm0IYQee9PDB0hJmMUnQmV
CERknc1sZoxSWv3SJQggZn71q1994YUX3nnnnYODg2eH17/ixvh0NPYrK/ovdFqVQuDVq1cvWNgT
RRM2HNO62mjUIlTYVZS0Imgf/PHjB4hwakKECKdONdI0bZK9ppf7d1dLS8snP/nJ4eHhDRs25HI5
Imoq6v/n9YLncYlVuVK64hXnd3RmHgfj3IQLU4VIwzMHDU/Bu4nJQUEm8EHOBBwgokajkSRJLpdr
UqF/526YR0dHL7744jvvvPPSSy/Nsuy/PjT8whESgXDdq6/omxULjjQa+2JOnE0ggQVKCAgSnIg9
XW9uUlAQUZIkaZrmcjljzK/656VSKYqiq666qqenxznXZIMvKUIEEDBnRs81161taatbtyNnTvhw
QiPR0hylkVNTaM1nEpzlhLIsy7IsjuP/QEubSymVy+Wa7F49n76gX71eIMJmbVvgkb3tbTcOzC6C
D3vsjKNDio5rnjDKMqFcaKHTk9Kno1oB0KSq/8EzFZqBy5nPa61/lT6/aAgBZjjvFMWzBma+6/fe
0j8Q1bKHVH5TrrI9YLt3g6VyS0/3gLMKIIE0YxGcDsFCCP+BDJsuoWlCm7vQzDv9VxC+wLFNAoAs
y3RMOV163Wuu373j2Ne+esf41HhEh8qFUr1xIofGK6++zmglyII4EaVU1JyHWbNmzfr163t7e+M4
/s8v9Wsa8zplBl7AEnjvRTWYKEhux459X7n9S//yz9+ZGG4RMoLJObP7nnj8/lIZgol8IXZWAbpJ
289Qof/i0XqBN/wCV5Zlzlkv6djESCPJnA9HTmy7/R//pqtjdqxnXfSyG75150PeinfeumqQqnNp
kiTee2ttrVZL0/RMhvelWS9YhgIRCRAhUqeKcDQkknnfOTpUV5ra29uqUyi3gFTDSWaoSGQAeO+b
YmwesJfsCTwvXEv//7Z+s0+LeynW/wu0TtbvU1jjGwAAAABJRU5ErkJggg==
'
x='337.5'
y='486.36218'
width='63.57143'
height='83.428574'
transform='rotate(30)'
id='image3047' />
</svg>
The Guidance system
' *****************************************************************
' Lunatic
' Build bacon 29beta hug82
' Alexfish BaCon Converter.org
' LICENSE: GPL version 3 or later
' This program comes with ABSOLUTELY NO WARRANTY
'******************************************************
' WARNING *****This Can have a no effect exept drive you mad *******
'******************************************************
' *****************************************************************
INCLUDE hug.bac
gtk$ = HUGLIB$("gtk")
gdk$ = HUGLIB$("gdk")
CONST rsvg$ = "librsvg-2.so"
IMPORT "gtk_image_set_from_pixbuf(long,long)" FROM gtk$ TYPE void
IMPORT "rsvg_init()" FROM rsvg$ TYPE void
IMPORT "rsvg_term()" FROM rsvg$ TYPE void
IMPORT "rsvg_handle_new()" FROM rsvg$ TYPE long
IMPORT "rsvg_handle_write(long,char*,long,int)" FROM rsvg$ TYPE int
IMPORT "rsvg_handle_close(long,int)" FROM rsvg$ TYPE int
IMPORT "rsvg_handle_get_pixbuf(long)" FROM rsvg$ TYPE long
IMPORT "gtk_image_new_from_pixbuf(long)" FROM gtk$ TYPE long
IMPORT "gdk_pixbuf_get_width(long)" FROM "libgdk_pixbuf-2.0.so.0" TYPE int
IMPORT "gdk_pixbuf_get_height(long)" FROM "libgdk_pixbuf-2.0.so.0" TYPE int
IMPORT "rsvg_handle_new_from_file(char*)" FROM rsvg$ TYPE long
DECLARE image_pointer$ ASSOC STRING
svg$=""
FUNCTION HUG_IMAGE_PIXBUF_MOVE(NUMBER hug_widget)
LOCAL image,myimage,ebox
rsvg_init()
mysvg = rsvg_handle_new()
svi = rsvg_handle_write(mysvg,svg$, LEN(svg$), 0)
svi = rsvg_handle_close(mysvg, 0)
mypix = rsvg_handle_get_pixbuf(mysvg)
rsvg_term()
image = hug_widget_font(STR$(hug_widget))
gtk_image_set_from_pixbuf(image, mypix)
gtk_widget_queue_draw(image)
g_object_unref(mysvg)
g_object_unref(mypix)
SYNC
RETURN TRUE
END FUNCTION
FUNCTION EVENT_IMAGE(STRING hug_file$, int hug_xsize, int hug_ysize)
LOCAL image, ebox
image = gtk_image_new_from_file(hug_file$)
ebox = gtk_event_box_new()
gtk_container_add(ebox, image)
gtk_widget_queue_draw(image)
gtk_widget_set_events(ebox, GDK_POINTER_MOTION_MASK | GDK_KEY_PRESS_MASK | GDK_BUTTON_RELEASE_MASK | GDK_SCROLL_MASK )
g_signal_connect_data(ebox, "button-press-event", hug_mouse_event, 20, 0, 0)
g_signal_connect_data(ebox, "button-release-event", hug_mouse_event, 40, 0, 0)
g_signal_connect_data(ebox, "motion-notify-event", hug_mouse_event, 0, 0, 0)
g_signal_connect_data(ebox, "leave-notify-event", hug_mouse_event, 30, 0, 0)
g_signal_connect_data(ebox, "scroll-event", hug_mouse_event, 10, 0, G_CONNECT_AFTER)
IF HUG_WIDGET_SHOW THEN gtk_widget_show_all(ebox)
hug_widget_xsize(STR$(ebox)) = hug_xsize
hug_widget_ysize(STR$(ebox)) = hug_ysize
hug_widget_signal(STR$(ebox)) = 4
hug_widget_s_widget(STR$(ebox)) = ebox
hug_widget_type$(STR$(ebox)) = "image"
hug_widget_font(STR$(ebox)) = image
hug_widget_focus(STR$(ebox)) = image
hug_widget_image$(STR$(ebox)) = hug_file$
RETURN ebox
END FUNCTION
FUNCTION MOVE_SPRITE()
FOR x = 300 TO -300 STEP -1
svg$=""
image_pointer$("202") = CONCAT$(" x='",STR$(x),"' ")
image_pointer$("203") = CONCAT$(" y='",STR$(x),"' ")
image_pointer$("204") = CONCAT$(" width='",STR$(x),"' ")
image_pointer$("205") = CONCAT$(" height='",STR$(x),"' ")
image_pointer$("206") = CONCAT$(" transform='rotate(",STR$(MOUSE(0)),")' ")
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
NEXT
RETURN TRUE
END FUNCTION
SUB test_click
IF MOUSE(2) = 1 THEN
MOVE_SPRITE()
END IF
END SUB
'@ ----------------------------------------------------------------
win = WINDOW("LUNATIC",500,500)
wcount=0
svg$=""
'@ path to the svg file change to where the file is saved
' OPEN "/home/<user>/Desktop/rocket.svg" FOR READING AS myfile
'OPEN "/home/alexfish/Desktop/rocket.svg" FOR READING AS myfile
WHILE NOT(ENDFILE(myfile)) DO
READLN txt$ FROM myfile
image_pointer$(STR$(wcount))=txt$
INCR wcount
WEND
CLOSE FILE myfile
FOR t = 0 TO wcount
svg$= CONCAT$(svg$,image_pointer$(STR$(t)))
NEXT
PRINT image_pointer$("71")
PRINT image_pointer$("72")
PRINT image_pointer$("73")
PRINT image_pointer$("74")
PRINT image_pointer$("75")
svg_screen1=EVENT_IMAGE("",500,500)
ATTACH(win,svg_screen1,0,0)
CALLBACK(svg_screen1,test_click)
HUG_IMAGE_PIXBUF_MOVE(svg_screen1)
DISPLAY
'@ END OF ALL THAT
Have fun and regards
Alex
|
|
|
|
Post by alexfish on Feb 16, 2013 23:36:22 GMT 1
Rad demo update::
The rad tool as in Alexrad now named Axl-Rada
The Front end is almost Complete.
the editor has two modes for sizing and place the widgets , 1 as the orignal , 2 updated drag and drop type feature , this will alleviate time lag with slow processors an graphics cards , have been testing this on a bog standard Intel Atom and proved to be fast.
Now just one window "No panes" and Integrates well with Unity See screen shot
the gray Layout editor is to the right,
most of the widgets will be axl-rada's own , or in principle can use any graphic(svg) but can embed other images , can achieved using inkscape
can implement most svg functions' these can be written into the event callback event , since each has its own buffer.
can also implement several of gtk's widgets.
each widget has it own scritable callback function and is live once it is registered , the script can be of any language , IE write it in bacon it will use bacon , write it in python then it will use python , script it in scriba the it will use scriba and so on
the white editor to left of layout editor is a sample of the callback code in bacon + the resut of the execution , there is no compilation time once the callback is registered ,
the backdrop has emeded images , done this to show off
I am hope to get this out as a testing version in approx 4 to 6 weeks, the estimated time needed to implement save and load routines.
will still be implementing the Write back functions for using hug as in the original demo
BR
Alex
|
|
|
|
Post by alexfish on Mar 5, 2013 17:56:38 GMT 1
Have sorted the substitution using glyph font the screen shot shows the edit2 with code and the result is shown in edit 1 where edit 1 is all SVG on the image. example code: glyph substitution for svg SPLIT my_txt$ BY NL$ TO new$ SIZE new newtext$=""
'<>
np$=REPLACE$(new$[0],"<","<")
np$=REPLACE$(np$,">",">")
newtext$=CONCAT$(newtext$,"<tspan x='2'>",NL$,np$,NL$,"</tspan>",NL$)
FOR t = 1 TO new -1
np$=REPLACE$(new$[t],"<","<")
np$=REPLACE$(np$,">",">")
newtext$=CONCAT$(newtext$,"<tspan x='2' dy='18'>",np$,NL$,"</tspan>",NL$)
NEXT
BR Alex Attachments:
|
|
|
|
Post by alexfish on Mar 15, 2013 15:06:23 GMT 1
Yep,
Another update:
Possibly Notice a few posts in the Bacon forum Relating how to customise the widgets.
Some of them relate to how Axl-Rada will work , had a tough time getting a workable solution for the EDITABLE Tree view
or some including my self call it Grid view.
So from a BaCon Aspect can Customise your apps Textually right now , Also have a look at Vovchik's Recent posts , very Impressive work.
So in essence I am , way way behind.
but have also introduced a possible solution "visual" for Tab Note Book "classed as a container" see screen shot, still have to add the tree view for editing.
Athough not complete , functions well , each can separate , and each can be minimised , ideal for small foot prints.
The Hlink works well but done away with the Traditional in screen editing "hay ways to slow for this kind of work" and opted for the drag and drop , the see screen shot , some of the widgets are axl-rada and some are linked external files ,one of them has been posted in forum,
but each area of the can have a defined call-back , as some would say Event box.
Getting There , but Late as Usual.
BR
Alex
|
|
