BASIC

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