Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Qedo

Pages: [1] 2 3 ... 12
1
GLBasic - de / Re: Compile Zeit
« on: 2019-Aug-10 »
GLBasic IDE, Version: 16.252

Elapsed: 2.6 sec.

2
MrPlow,
On my computer same results with these configurations:

GLB 12.656 WIN10, ANDROID (BlueStacks)
GLB 14. 497 WIN10, ANDROID (BlueStacks)
GLB 15.238 WIN10, ANDROID (BlueStacks)

SEEDRND 505
RND(100) = 68
RND(15)+5) = 14

4
GLBasic - de / Re: Olle Kamellen (Android)
« on: 2019-Jul-11 »
JAVA_HOME C:\Program Files (x86)\Java\jdk1.6.0_25
JAVA32 bit

OK with GLB 15xxx and lower but  don't compile with GLB 16.xxx version (sorry for english but dont'know german language)
QEDO

5
GLBasic - en / Re: How to compile "Fluids" ?
« on: 2019-Jul-10 »
bigsofty compliments you are great   :nw:,  even if can't understand why it was enough to insert a two-dimensional array (moreover not used in the programm) at the beginning to compile.
I thought computer science was an exact science but ...   :blink:  I was wrong.
Certainly Gernot could clear up this little strangeness.
Qedo

6
i have tried to compile Android but don't work with GLBasic Version: 16.215
to you too?
Qedo

*** Configuration: ANDROID ***
precompiling:
GPC - GLBasic Precompiler V.15.394 SN:8e14b964 - 3D, NET
Wordcount:35 commands
compile+link:
*** create process failed
success
_______________________________________
*** Finished ***
Elapsed: 14.1 sec. Time: 19:49
Build: 1 succeeded.

7
GLBasic - en / How to compile "Fluids" ?
« on: 2019-Jul-06 »
Has anyone managed to compile the beautiful Gernot's "Fuilds" program?
http://www.glbasic.com/showroom.php?site=games&game=Fluids
I can't, too many mistakes.
I suspect that in INLINE / ENDLINE the two-dimensional matrices are not supported.
I wonder though that it was compiled because the exe is present.
Gernot what do you say?
Thank you
Qedo


8
does the file exist?
look in C:\Program Files (x86)\Steam\steamapps\common\GLBasic_SDK

9
Competitions / Re: GLBasic Contest 02: 2D Art
« on: 2019-Apr-27 »
And instead another plasma / fire example.
Surely there is something better but I hope you like it and above all that it is useful.

ps It's not entirely my idea. In the program the references of inspiration

10
GLBasic - en / Re: For a new project...
« on: 2019-Apr-27 »
MrPlow, see if the program works for you (maybe with some changes)

http://www.glbasic.com/forum/index.php?topic=9108.msg82633#msg82633


11
Competitions / Re: Hello World - Contest
« on: 2019-Mar-16 »
Here is my RND code   :S

Code: GLBasic [Select]

SETFONT 0,3
GLOBAL a[]
DIM a[11]
SEEDRND 505
FOR i=0 TO 10
        a[i]=RND(126)
NEXT

PRINT CHR$(a[0]+a[1]/10*3)+CHR$(a[1]+a[4])+CHR$(a[2]+a[3]/5) _
        +CHR$(a[2]+a[3]/5)+CHR$(a[9]-1)+CHR$(a[7])+CHR$(a[5]+a[7]-10)+CHR$(a[9]-1) _
        +CHR$(a[1]+a[10])+CHR$(a[2]+a[3]/5)+CHR$(a[3]),0,0
SHOWSCREEN
MOUSEWAIT
END


 

12
2D-snippets / Re: C64-ize graphics
« on: 2019-Feb-11 »
Try with this file.

13
2D-snippets / Re: C64-ize graphics
« on: 2019-Feb-10 »
 Yes the file test.bmp is 24bit but inside there are only 16 colours.
Change the array to integer don't improve on my pc.

14
2D-snippets / Re: C64-ize graphics
« on: 2019-Feb-10 »
I enjoyed optimizing the no shader version.
On my pc 20 ms with standard programming

Code: GLBasic [Select]
SETFONT 0,2
GLOBAL pixels%[],id%=0
IF DOESFILEEXIST("test.png")
        LOADSPRITE "test.png",id
ENDIF
SPRITE2MEM (pixels[],id)
GETSPRITESIZE id, sx%, sy%
dtime% = GETTIMERALL()
C64ize()
MEM2SPRITE(pixels[],id,sx,sy)
dtime% = GETTIMERALL()-dtime%
DRAWSPRITE id,0,0
SAVESPRITE "test.bmp", id
PRINT dtime%,10,300
SHOWSCREEN
MOUSEWAIT
END

FUNCTION C64ize:
        // weighting of color components
LOCAL x%,y%,c%, r%,g%,b%, dr%,dg%,db%
LOCAL mindist, dist, ibest, i
LOCAL c64_pal[]
        DIMDATA c64_pal[], _
                        0x00    , 0x00  , 0x00, 0, _
                        0xff    , 0xff  , 0xff, 0, _
                        0x88    , 0x00  , 0x00, 0, _
                        0xaa    , 0xff  , 0xee, 0, _
                        0xcc    , 0x44  , 0xcc, 0, _
                        0x00    , 0xcc  , 0x55, 0, _
                        0x00    , 0x00  , 0xaa, 0, _
                        0xee    , 0xee  , 0x77, 0, _
                        0xdd    , 0x88  , 0x55, 0, _
                        0x66    , 0x44  , 0x00, 0, _
                        0xff    , 0x77  , 0x77, 0, _
                        0x33    , 0x33  , 0x33, 0, _
                        0x77    , 0x77  , 0x77, 0, _
                        0xaa    , 0xff  , 0x66, 0, _
                        0x00    , 0x88  , 0xff, 0, _
                        0xbb    , 0xbb  , 0xbb, 0

        FOR i=0 TO 15
                c64_pal[i*4+3] = RGB(c64_pal[i*4], c64_pal[i*4+1], c64_pal[i*4+2])
        NEXT

        FOR x=0 TO 319 STEP 2
                FOR y=0 TO 239
                                                ind=x+y*320
                        c = pixels[ind]
                                                c = BAND(c, 0xffffff)
                                            r=BAND(c, 0xff)/2
                                                g=BAND(ASR(c,8), 0xff)/2
                                                b=BAND(ASR(c,16), 0xff)/2
                        mindist=0
                        c = pixels[ind+1]
                                                c = BAND(c, 0xffffff)
                                            INC r,BAND(c, 0xff)/2
                                                INC g,BAND(ASR(c,8), 0xff)/2
                                                INC b,BAND(ASR(c,16), 0xff)/2
                        ibest=0
                        FOR i=0 TO 15
                                                                db=b - c64_pal[i*4+2]
                                                                dg=g - c64_pal[i*4+1]
                                                                dr=r - c64_pal[i*4  ]
                                dist=dr*dr+dg*dg+db*db
                                IF i=0 OR dist<mindist
                                        mindist=dist
                                        ibest=i
                                ENDIF
                        NEXT
                        fillcolour=BOR(c64_pal[ibest*4+3], ASL(255, 24))
                        pixels[ind]=fillcolour
                        pixels[ind+1]=fillcolour
                NEXT
        NEXT
ENDFUNCTION

 

15
Beta Tests / Re: Test 3D software
« on: 2019-Jan-29 »
I got 260 FPS

Pages: [1] 2 3 ... 12