Search found 6065 matches

by dodicat
Jan 28, 2020 2:04
Forum: General
Topic: Squares
Replies: 7545
Views: 452732

Re: Squares

place2 hits 7 twice as place1 goes from 0 to 15.
by dodicat
Jan 27, 2020 23:34
Forum: General
Topic: Squares
Replies: 7545
Views: 452732

Re: Squares

0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15 - place1
0,1,1,2,3,4,5,6,7,7, 8, 9, 10, 11,12,13 -place2

place2 has 1 and 7 repeated so I cannot get a one to one mapping formula.
by dodicat
Jan 27, 2020 19:08
Forum: Windows
Topic: Windows graphics tutorial
Replies: 57
Views: 1505

Re: Windows graphics tutorial

This is a great big pseudo anti aliasing cheat. The final result shows when the fractal is finished and the close button is clicked or <esc> is pressed. #include "windows.bi" #define cdXSize 640 '//cdYSize*1.6 #define cdYSize 400 #define cdColFondo 0 #define MAIN_ICON 100 ' // IDI_APPLICAT...
by dodicat
Jan 27, 2020 13:27
Forum: General
Topic: OPENGL NEHE EXAMPLES
Replies: 10
Views: 330

Re: OPENGL NEHE EXAMPLES

Hi bluatigro. Here is a moving texture (via an image) on your two quads. '' BLUATIGRO 27 JAN 2020 '' openGL texture example--tweaked #include "fbgfx.bi" #if __FB_LANG__ = "fb" Using FB #endif #include once "GL/gl.bi" #include once "GL/glu.bi" #include "GL...
by dodicat
Jan 27, 2020 11:13
Forum: Windows
Topic: Windows graphics tutorial
Replies: 57
Views: 1505

Re: Windows graphics tutorial

I have edited the fractal GDI setpixel() spheres code.
No blue background, but a blue frame instead.
You cannot resize the main window.
It is quite fast with 64 bit fbc -O3 optimised.
by dodicat
Jan 26, 2020 22:52
Forum: Windows
Topic: Windows graphics tutorial
Replies: 57
Views: 1505

Re: Windows graphics tutorial

I tried your spheres in GDI. better to use -O3 optimisation. edit:made the window fixed size with blue frame. #include "windows.bi" #define cdXSize 640 '//cdYSize*1.6 #define cdYSize 400 #define cdColFondo 0 #define MAIN_ICON 100 ' // IDI_APPLICATION #define cdVCursor IDC_ARROW #define cdV...
by dodicat
Jan 26, 2020 21:58
Forum: Projects
Topic: Rebus generator
Replies: 6
Views: 238

Re: Rebus generator

It's a big job to take on.
Thank you for reconstructing my nomdyploom.
by dodicat
Jan 26, 2020 21:49
Forum: Windows
Topic: Windows graphics tutorial
Replies: 57
Views: 1505

Re: Windows graphics tutorial

Not the code of course, I translated your template thing from tiny c to fb. (Not a difficult task I know) But the music link (YouTube). Maybe I am too old for that fast music. Anything you can't whistle is not music to my ear. I prefer the sixties stuff. https://www.freebasic.net/forum/viewtopic.php...
by dodicat
Jan 26, 2020 21:12
Forum: Tips and Tricks
Topic: Some Variations of a Binary Fractal Tree
Replies: 16
Views: 390

Re: Some Variations of a Binary Fractal Tree

I tried this tree by hurtado by winapi GDI shapes. It is a bit slower of course. #include "windows.bi" Const xres=800 Const yres=600 Const c1 = 27 Const c2 =6 Const c3 =3 Dim Shared As Ubyte mColores(0 To 19) Dim Shared As Ulong miColor(2 To 10) Declare Function WndProc(As HWND,As UINT, As...
by dodicat
Jan 26, 2020 14:06
Forum: Windows
Topic: Windows graphics tutorial
Replies: 57
Views: 1505

Re: Windows graphics tutorial

Cairo is desperately slow to replace direct pixel drawing with anti aliased lines.
hurtado.
I have no complaints whatsoever about your graphics, in fact they are very nice, but that music must be hard to play, for it is hard to listen to.
by dodicat
Jan 26, 2020 13:47
Forum: General
Topic: Squares
Replies: 7545
Views: 452732

Re: Squares

If this is any help, look at the strings and v2,v3 and v4. Using your method of looping. function cremainder(mods() As long,remainders() As long) As longint dim as longint max=1 for n as long=lbound(mods) to ubound(mods) max*=mods(n) next dim as long b,c,d dim as long s(lbound(mods) to ubound(mods))...
by dodicat
Jan 26, 2020 13:16
Forum: General
Topic: Squares
Replies: 7545
Views: 452732

Re: Squares

Hi Albert. I see that you add 1 (then 2 in your last post) i.e. in compress_loop v2 = ( v1 mod 2 ) + 1 I have used a select case in the decompress_loop to test for values of n1 which are missed if the 1 is not added.(in the case ELSE) This might help in debugging. The 2,3,11 gives value (in theory) ...
by dodicat
Jan 25, 2020 14:40
Forum: Tips and Tricks
Topic: Some Variations of a Binary Fractal Tree
Replies: 16
Views: 390

Re: Some Variations of a Binary Fractal Tree

Yea hurtado, I know that integer plods through 0 to 255 in four loops for rgba(r,g,b,a) just as well as ulong. But as you have seen integer is actually longint in 64 bits. So, depending on how you use colours (via pointers e.t.c.), strange aberrations can occur flipping between the 64 and 32 bit com...
by dodicat
Jan 25, 2020 13:02
Forum: Tips and Tricks
Topic: Some Variations of a Binary Fractal Tree
Replies: 16
Views: 390

Re: Some Variations of a Binary Fractal Tree

Nice hurtado. Using 32 bit colour ulong (or double) will hold all values in fb 32 bit or fb 64 bit. I avoid using Integer or uinteger for 32 bit colours. basiccoder2 You can adjust the colour for the second BresLine, which seems mainly the trunk. for example: if i>2 then c=rgb(cast(ubyte ptr,@c)[2]+...
by dodicat
Jan 23, 2020 19:51
Forum: Tips and Tricks
Topic: Some Variations of a Binary Fractal Tree
Replies: 16
Views: 390

Re: Some Variations of a Binary Fractal Tree

paul doe . . . (being both Greenpeace members) . . . my respect. Here is my variation screenres 900,700,32 color ,rgb(150,150,150) cls type point as long x,y as ulong col end type type angle as single cosa,sina declare sub set(as single) end type sub angle.set(a as single) cosa=cos(a) sina=sin(a) en...

Go to advanced search