Search found 213 matches

by hhr
May 09, 2024 18:48
Forum: Sources, Examples, Tips and Tricks
Topic: Cairo animated spiral
Replies: 14
Views: 867

Re: Cairo animated spiral

That was the problem, thank you.
by hhr
May 09, 2024 17:46
Forum: Sources, Examples, Tips and Tricks
Topic: Cairo animated spiral
Replies: 14
Views: 867

Re: Cairo animated spiral

Compiling this takes a very long time. I don't know why this is the case. dim shared as any ptr image 'No transparency, only gray values. 'To determine the gray values, a power function abs(x)^exponent is used with the minimum at the exact coordinates. 'The gray values are read from the pixel coordi...
by hhr
Apr 26, 2024 19:25
Forum: Community Discussion
Topic: Deleting .exe file when compiling.
Replies: 5
Views: 260

Re: Deleting .exe file when compiling.

I have tried to reproduce the problem I had with FBEdit, but have not succeeded.
At the moment FBIde and FBEdit are working fine on my computer.
I am also using Windows 7.
by hhr
Apr 26, 2024 16:49
Forum: Community Discussion
Topic: Deleting .exe file when compiling.
Replies: 5
Views: 260

Re: Deleting .exe file when compiling.

I have this problem with FBEdit. That's why I don't use FBEdit. I get along wonderfully with FBIde. FBIde does not have this problem for me.
by hhr
Apr 20, 2024 22:15
Forum: Community Discussion
Topic: free Basic - just curious?
Replies: 17
Views: 1474

Re: free Basic - just curious?

-
by hhr
Apr 12, 2024 19:42
Forum: Sources, Examples, Tips and Tricks
Topic: OpenB3D ASCII Art
Replies: 2
Views: 307

Re: OpenB3D ASCII Art

Where can I get OpenB3D?
A good library archive would be helpful.
by hhr
Apr 12, 2024 16:45
Forum: Sources, Examples, Tips and Tricks
Topic: Simple 2D Ball Collision Demo
Replies: 11
Views: 942

Re: Simple 2D Ball Collision Demo

@ UEZ
My screen is too small.
Instead of

Code: Select all

Const w = 1920
Const h = Int(w * 9 / 16)
Const h2 = h Shr 1
I tried

Code: Select all

Dim As Long w, h, h2
Screeninfo w, h
h2 = h Shr 1
by hhr
Mar 28, 2024 17:34
Forum: Sources, Examples, Tips and Tricks
Topic: Cairo animated spiral
Replies: 14
Views: 867

Re: Cairo animated spiral

Interesting example. I wanted to know what Cairo was needed for and simply removed Cairo. Without Cairo the points are shaking, with Cairo the points are calm. This is achieved by transparency (or grayscale) in the outer pixels, which is why the dots appear smaller when Cairo is used. But it's a mys...
by hhr
Mar 03, 2024 21:12
Forum: Sources, Examples, Tips and Tricks
Topic: my newest bits read / write
Replies: 2
Views: 357

Re: my newest bits read / write

A suggestion for an example: dim as udecimal a,b,c,d a = cudeci("123456789.123230000023000001") b = cudeci("545676666.997555555559999999") c = a + b d = b - a print udeci_str(c),udeci_str(d) c = c + d print udeci_str(c) d = b + b print udeci_str(d) print c = d, c > d, c >= d, c <...
by hhr
Mar 03, 2024 20:04
Forum: Beginners
Topic: Picture doesn't show until I click outside the graphics window
Replies: 3
Views: 440

Re: Picture doesn't show until I click outside the graphics window

I can confirm that. I have used tire.jpg from FBImage and the following example. Compile example, select exe file, press enter repeatedly. It seems to work reliably with put, but only sometimes with MultiPut. In the command prompt it does not seem to work at all with MultiPut. #include "FBImage...
by hhr
Feb 21, 2024 10:11
Forum: Sources, Examples, Tips and Tricks
Topic: Connected balls
Replies: 1
Views: 231

Connected balls

#cmdline "-s gui" Open Scrn As #1 : Close #1 ' Wait until console is active, useful in Linux with QTerminal Dim As Long w = 800,h = 600 Screenres w,h Window (0,0)-(1,1) Dim Shared As Single r,dt,c,d r = 0.01 ' radius dt = 0.02 ' interval c = 0.02 Type ball Dim As Single x,y,vx,vy End Type...
by hhr
Feb 17, 2024 8:35
Forum: General
Topic: Console window during graphics
Replies: 4
Views: 666

Re: Console window during graphics

You can try this line. The system waits until the console is active. If you then start a graphics window, the console window remains in the background. Open Scrn As #1 : Close #1 ' Wait until console is active In Linux, the line is useful when using QTerminal because QTerminal starts slowly. In othe...
by hhr
Feb 12, 2024 22:40
Forum: Sources, Examples, Tips and Tricks
Topic: Rounding numbers
Replies: 48
Views: 5056

Re: Rounding numbers

@ badidea, caseih, neil
Thanks for the helpful comments.
by hhr
Feb 11, 2024 18:18
Forum: Sources, Examples, Tips and Tricks
Topic: Rounding numbers
Replies: 48
Views: 5056

Re: Rounding numbers

This also works with sprintf: #Include "crt.bi" Dim As Double n,a(1 To ...) = {997.931, 997.932, 997.933, 997.934, 997.935, 997.936, 997.937, 997.938, 997.939} Dim As Zstring*20 zs Dim As Integer DecimalPlaces For i As Long = Lbound(a) To Ubound(a) n = a(i) Print "Original number &quo...