Search found 7932 matches

by dodicat
Jan 15, 2024 16:58
Forum: Sources, Examples, Tips and Tricks
Topic: 3D cube drawing
Replies: 28
Views: 2466

Re: 3D cube drawing

Hi neil. If you like opengl here is a text method. Also, better to include a sleep 1 in the loop. ' OpenGL 3D cuboid demo #include once "GL/gl.bi" #include once "GL/glu.bi" dim rquad as single declare Sub drawstring(xpos As Long,ypos As Long,text As String ,col As Ulong,size As S...
by dodicat
Jan 12, 2024 17:43
Forum: Community Discussion
Topic: anyone remember this book?
Replies: 6
Views: 997

Re: anyone remember this book?

Douglas C Rogers maybe or Mark Feldman?
https://www.qbasic.net/en/qbasic-downlo ... amming.htm
by dodicat
Jan 11, 2024 20:27
Forum: General
Topic: Circle bug?
Replies: 7
Views: 606

Re: Circle bug?

I have had these troubles in the past caseih, although it was a cathode ray model. Anjost, how do you manage it using "fbgfx.bi"? Here was my attempt, how is the circle on your monitor? #lang "fb" 'Circle test 'My monitor 1440 x 900 dim as long xr,yr screeninfo xr,yr var ratio=xr...
by dodicat
Jan 11, 2024 13:32
Forum: General
Topic: Circle bug?
Replies: 7
Views: 606

Re: Circle bug?

I have this problem with my pool game. https://www.freebasic.net/forum/viewtopic.php?p=220681&hilit=pool#p220681 I asked if anybody could correlate monitor display settings with the aspect in CIRCLE, to automate it to work everywhere giving a proper circle to the eye, but no luck. I tried myself...
by dodicat
Jan 10, 2024 16:13
Forum: Sources, Examples, Tips and Tricks
Topic: 3D cube drawing
Replies: 28
Views: 2466

Re: 3D cube drawing

Thanks neil, I got them both working.
For the opengl speed, just put sleep 20 at the end of the dorender sub.
by dodicat
Jan 09, 2024 12:48
Forum: Sources, Examples, Tips and Tricks
Topic: 3D cube drawing
Replies: 28
Views: 2466

Re: 3D cube drawing

Here is a gold plated cube. Screen 19,32 ' or 20 or 21 Dim As Long xr,yr Screeninfo xr,yr Color Rgb(192,192,192),Rgb(0,0,0) Windowtitle "Golden cube" Type V3 As Single x,y,z End Type Type angle3D 'FLOATS for angles for rotator As Single sx,sy,sz As Single cx,cy,cz Declare Static Function c...
by dodicat
Jan 08, 2024 11:52
Forum: Sources, Examples, Tips and Tricks
Topic: 3D cube drawing
Replies: 28
Views: 2466

Re: 3D cube drawing

Thank you neil.
I have a feeling that UEZ might have actually been on a similar winding journey in real time, or should I say spacetime.
by dodicat
Jan 07, 2024 19:19
Forum: Sources, Examples, Tips and Tricks
Topic: 3D cube drawing
Replies: 28
Views: 2466

Re: 3D cube drawing

For a solid cube only three faces are visible at any time. Screen 19 ' or 20 or 21 Dim As Long xr,yr Screeninfo xr,yr Type V3 As Single x,y,z End Type Type angle3D 'FLOATS for angles for rotator As Single sx,sy,sz As Single cx,cy,cz Declare Static Function construct(As Single,As Single,As Single) As...
by dodicat
Jan 02, 2024 23:45
Forum: General
Topic: Latest Bass Library and MP3 files
Replies: 11
Views: 1180

Re: Latest Bass Library and MP3 files

Windows. Simple audio player and the part which can be compiled to .a or .dll, and a .bi file. (sectioned off) 32 and 64 bits tested 'declarations for .bi file if required declare sub init(file As String) declare Sub play(file As String) declare Sub setvolume(vol As Long) declare Sub finish() declar...
by dodicat
Dec 31, 2023 23:23
Forum: General
Topic: Latest Bass Library and MP3 files
Replies: 11
Views: 1180

Re: Latest Bass Library and MP3 files

You could use the windows built in player for video or audio.
viewtopic.php?p=297147&hilit=mciSendString#p297147
by dodicat
Dec 31, 2023 12:20
Forum: Beginners
Topic: DIM-ing a constant string
Replies: 6
Views: 567

Re: DIM-ing a constant string

Because this is in the beginner's section, this task is done without using pointers. Function Set(n As Long,Chars As String,mode As boolean=false) As String If mode=true Then n*=Len(Chars) Var c=String(n,0),count=-1 For m As Long=0 To n-1 Step Len(Chars) For k As Long=0 To Len(Chars)-1 count+=1 If c...
by dodicat
Dec 29, 2023 16:08
Forum: Beginners
Topic: DIM-ing a constant string
Replies: 6
Views: 567

Re: DIM-ing a constant string

This works also: function MakePair(pair as const string) as const string dim as ubyte u(511) for n as long=0 to 511 if n mod 2=0 then u(n)=pair[0] else u(n)=pair[1] next return *cast(zstring ptr,@u(0)) end function dim as const string * 512 a=MakePair("Er") dim as const string * 512 b=Make...
by dodicat
Dec 17, 2023 10:56
Forum: Windows
Topic: Win 11 console
Replies: 26
Views: 2126

Re: Win 11 console

Yes, thanks srvaldez, I did see your post but I cannot get For developers and terminal from privacy settings here, I have to go through settings/system which goes to show that Win 11 does not seem consistent through continents. Thanks caseih Although perhaps changing font sizes or gdi stuff in the t...
by dodicat
Dec 16, 2023 20:02
Forum: Windows
Topic: Win 11 console
Replies: 26
Views: 2126

Win 11 console

Looks like you can easily change to the old console now: Open the start menu on the taskbar (the 4 blue squares) settings system For developers In the terminal drop down list choose Windows Console Host. Tester code: #include "windows.bi" Shell "color f0" Sub changefontsize(w As ...
by dodicat
Dec 15, 2023 18:29
Forum: General
Topic: slow to execute after compiling source code
Replies: 11
Views: 1196

Re: slow to execute after compiling source code

I have Avast antivirus here on win 11. If I run code via quickrun in fbide (I don't have fbidetemp.exe set as an exception), I get a beautiful little console called Avast Cybercapture, which is an intermediate console to test for viruses e.t.c. After I click off this capturing console when the progr...