Giving Karma is like honoring someone for something you think was nice. The opposite is when you don't like someones post, then you take it.
Some people like this forum feature, some people don't care about it.
thank you petr and lionheart again for your answer! I like these kind of examples. I will proof tbgl and lion examples! Both are very interesting for my ideas. good luck for lionheart for development. I see its a hard work. good luck for tbgl too.
sorry: but what are "karmas"? I dont know why you can choose or get it ? I know Buddha and spiritual things by my girl friend, but karma and basic language, that` s funny
I heard from thinbasic, powerbasic, ibasic by my old math. teacher. He was an scary original with full dark beard, a lot of dry humour and high intelligence about qbasic, basic and fortrun. these times are passed. I tried first thinbasic, but I have bought also powerbasic and will use it, so I have difficults or staying still with working or understanding thinbasic. though this cas I cannot imagine. I am eager and intelligent.
see you again hombres, lydia
hasta la vida
Giving Karma is like honoring someone for something you think was nice. The opposite is when you don't like someones post, then you take it.
Some people like this forum feature, some people don't care about it.
michael, I understand "karma", but I think it`s not objectiv indication for good, better, best for me and it`s typical men gratification some bonus points were given in IT industry (usa, gb). I know it by my father. But I don`t like it. that`s why I was wondering to see such gratification at this board. nevertheless, it`s ok and not important for me. bye, lydia
hasta la vida
for mr. lionheart surfer
I have to laugh a lot about your little game with circles and coloured box. I test it and make some more features! great. thank you. my girl friend thea was laughing too. thanks for beeing not so dry and typical programming guy I can imagine. perhaps I can give you some day some help. nice day from cologne! hasta la vida, lydia
hasta la vida
short reply
thank you lydia for nice words. such friendly things help every time and day
one little update for the circle game (ok: I hope you see it as it is: it's not really a prof. game, only an experiment, exercise how to handle with liongfx features!) you can see in my last post. one little problem I have to delete in this example, I will try it to make it better for the next time...
nice week-end to all here. more to come next week...
lionheart
ps: I was surfing last summer at the german "ostsee" (eastsee). not very dangerous but I was feeling great while surfing over the rough (!) sea with para gliding !
you can't always get what you want, but if you try sometimes you might find, you get what you need
good morning
little things with rgb's... I have thought this example should be here too... perhaps it's useful for somebody...
part one:
[code=thinbasic]'- color example with liongfx, 7.aug.2009 by lionheart
uses "liongfx", "console"
liongfx_screenres 320,320,24
liongfx_paint 1,1,liongfx_rgb, 255,255,255 'white
liongfx_color, liongfx_RGB,255, 163, 79: liongfx_print "white: 255,255,255"
liongfx_sleep
liongfx_paint 1,1,liongfx_rgb,255,0,0 'Red
liongfx_color, liongfx_RGB,255, 163, 79: liongfx_print "red: 255,0,0"
liongfx_sleep
liongfx_paint 1,1,liongfx_rgb, 0,255,0 'Green
liongfx_color, liongfx_RGB,255, 163, 79: liongfx_print "green: 0,255,0"
liongfx_sleep
liongfx_paint 1,1,liongfx_rgb, 0,0, 255 'Blue
liongfx_color, liongfx_RGB,255, 163, 79: liongfx_print "blue: 0,0,255"
liongfx_sleep
liongfx_cls
liongfx_paint 1,1,liongfx_rgb, 0,0,0 'black
liongfx_color, liongfx_RGB,255, 163, 79: liongfx_print "black: 0,0,0"
liongfx_sleep
liongfx_getkey
liongfx_color, liongfx_RGB,255, 163, 79
liongfx_paint 100,100,100
liongfx_locate 12,16
liongfx_print "two lonesome circles"
liongfx_circle 140, 140, 60, liongfx_rgb, 255, 15,250
liongfx_circle 200,200,100, liongfx_RGB,255,255,0
liongfx_sleep
[/code]
shows values of rgb's. I will try to translate html colours into rgb's too .
part two:
[code=thinbasic]uses "liongfx", "console"
liongfx_SCREEN 18, 32
' frontcolor Orange, background darkblue
liongfx_COLOR &hFF8000, &h000040
liongfx_CLS
liongfx_LOCATE 18, 30: liongfx_PRINT "Hello dear liongfx & thinbasic World!"
liongfx_sleep
liongfx_CLS
liongfx_COLOR &hFF2000, &h000080
liongfx_LOCATE 20, 26: liongfx_PRINT "this summer is simply hot and great!"
liongfx_SLEEP
[/code]
nice week-end. I am not really here holidays are calling me too !
sunny greetings, lionheart
ps: all copied in zip file, two liongfx examples and liongfx dll
you can't always get what you want, but if you try sometimes you might find, you get what you need
..rendering experiments
if somebody can test this example, would be great to get any feedback ...
a) this example renders a scene with different coloured regions
b) after rendering is finishing wait a moment...
c) push any key at the keyboard, you will see a number at the screen for multikey functions
d) if you want to render new one you have to push ESC (Escape) key...
e) close the console window to end this scene
- will check why the script doesn't stop by pushing "p" as I wished
this rendering example I have adapted in some big parts from freebasic ...
[code=thinbasic]'- test rendering for liongfx by lionheart, friday, 8.aug.2009
uses "liongfx", "console"
liongfx_windowtitle "rendering test parcour vol 0.5 beta with liongfx "
DIM X AS DOUBLE
DIM Y AS DOUBLE
DIM XS, XT AS DOUBLE
DIM YS, YT AS DOUBLE
DIM R, COLR, P AS INTEGER
DIM G, COLG AS INTEGER
DIM B, COLB AS INTEGER
DIM col as integer
DIM CT AS SINGLE
DIM RESET_DEMO AS INTEGER
DIM max2 AS SINGLE
liongfx_SCREEN 18,32
liongfx_CLS
RANDOMIZE TIMER
msgbox 0, "using: wait a moment after render finished scene, then push any key, best way to render new: push ESC"
X = RND(1,255) * 640
Y = RND(100,255) * 480
RESET_DEMO = 1
DO
IF RESET_DEMO = 1 THEN
liongfx_CLS
RESET_DEMO = 0
X = 1
Y = 1
COLR = RND(1) * 255
COLG = RND(1) * 255
COLB = RND(1) * 255
P = RND(1) *1
END IF
X += XS
Y += YS
FOR xt = x TO 1000+x+P
FOR yt = y TO 1000+y+P
R = (COLR + ((TAN(XT/1024) + COS(YT/76) * 255))/2
G = (COLG + ((SIN(YT/76 + TAN(XT/1024)) * 255))/2
B = (COLB + ((COS(XT/1024) + SIN(YT/76) * 255))/2
COL = liongfx_RGB, R,G,B
liongfx_PSET XT, YT, COL
NEXT yt
NEXT xt
liongfx_SCREENSYNC
IF X < 512 THEN
XS += 0.001
ELSE
XS -= 0.001
END IF
IF Y < 384 THEN
YS += 0.001
ELSE
YS -= 0.001
END IF
IF liongfx_multikey_up, 24 THEN
liongfx_print "this script is ok, rendering new one "
RESET_DEMO = 1
END IF
IF liongfx_multikey_up, 24 THEN
FOR xt = 0 TO 1024
FOR yt = 0 TO 768
R = (COLR + ((TAN(XT/1024) + COS(YT/76) * 255 ))/4
G = (COLG + ((SIN(YT/76*gettickcount/200*128 + TAN(XT/1024)) * 255 ))/4
B = (COLB + ((COS(XT/1024)*gettickcount/200*128 + SIN(YT/76) * 255 ))/4
COL = liongfx_RGB, R,G,B
liongfx_PSET XT, YT, COL
NEXT
NEXT xt
END IF
LOOP UNTIL liongfx_inkey = "p"
liongfx_getkey
liongfx_sleep
[/code]
best regards, Lionheart
you can't always get what you want, but if you try sometimes you might find, you get what you need
hi mr. lionheart surfer. question: do you continue your particle example with circles ? It`s possible to move the objects by key input ? would be good to see. thanks for new examples. pleasure to see more. Check all scripts this evening. Coming back from my girl friend, party time over three days !!! great. now I am hungry.
do you work with new tbgl sprite examples too ?
hasta la vida, lydia
hasta la vida
good evening, senorita lydia_sp
oh yes, of course I will do that the next days/weeks (I think so!). I have only to compile in a better way all the multikey and put and imagecreate stuff new...because I have noticed some mistakes --men/man and users are only doing mistakes, not machines! -- at my side... then I will examine and explore the circle and line example and show it for a better handling.. if it doesn't work at all or as I wished I change the site to freebasic... no, that was only a joke ! I plan some holidays with girl friend and doggy...do you continue your particle example with circles ? It`s possible to move the objects by key input ?
thank you for this sentence, I must laugh. I am always hungry and thirsty too, even in summertime, but I cannot celebrate parties three or four days or all along the night, I am no longer 20 years old 'young'! But I know that feeling very well to have a heavy or foggy mind and nothing is going on right or everything happens with a certain distance to you... wish you good recovering if you have such a foggy headparty time over three days !!! great. now I am hungry.
tbgl and sprite example I will have a closer look also next week...
good evening, lionheart
you can't always get what you want, but if you try sometimes you might find, you get what you need
without any words... see and wonder how simple this little love things could be ...
[code=thinbasic]uses "liongfx", "console", "math"
DIM x,y AS INTEGER
DIM x1,y1 AS INTEGER
DIM i AS SINGLE
liongfx_SCREEN 18, 32
liongfx_windowtitle "popart and your heart meets liongfx"
DO
i += 0.005
x = SIN(i)*120 + 200
y = COS(i)*120 + 200
x1 = SIN(i*2)*75 + x+1
y1 = COS(i*2)*75 + y+1
liongfx_SCREENLOCK
CLS
liongfx_COLOR liongfx_RGB, 255*4, 163, 79,8
liongfx_CIRCLE x+200,y+200, 50, &h00FFFF*sin(gettickcount/200)*128
liongfx_PSET 300+i*40,300-i*12,&h0040FF*sin(gettickcount/200)*128
liongfx_COLOR liongfx_RGB, 55, 163*sin(gettickcount/200)*128, 79,8
liongfx_CIRCLE x1,y1, 10, liongfx_rgb, rnd(1,255),10,128*10 'sin(gettickcount/200)*128, 79,8
liongfx_PSET 200+i*20,200-i*10,&hFF80FF*2
liongfx_SCREENUNLOCK
liongfx_SLEEP 10
LOOP UNTIL liongfx_INKEY = "q"[/code]
that's my 10 cent for today, bye, Lionheart
you can't always get what you want, but if you try sometimes you might find, you get what you need
Bookmarks