First thought: that is very cool.

Sober second thought: what are the security implications ?  For example, what happens if an imported file from some source is maliciously modified?

It would be good to well-document whatever risks, and how to mitigate risks.  (I'm no web guy, so my security hat is very much of the base-level-amateur kind.)

I would only import into my programs source code in my control (i.e. my web domain), but I think I'd be okay with the mechanism for running, sandboxed, a program that is hosted wherever.

I know Linux is strict about upper and lower case file names.

I just looked at old thread and it seems the Paint Box or Orbits needs a 2 click system one to start and one to stop. Don't know what 9 is doing.

Yeah, those were annoying but easy to fix.

COMDLG32 is a Windows DLL file.  So I can't see this program working on my computer.

Just uploaded a new version of that program.  (links in original post don't change.)

Made the color choices two characters wide instead of one.

changed the "f" and "b" label toggles to "foreground" and "background".

got rid of the brush instructions, which I will add to the intro screen instead.

added intro screen (instructions pending) to ask for character width and height of the canvas.

fixed a problem that caused drawing past either left or right edges of canvas to "wrap" the drawing, even though the mouse is way past the edge of the canvas.

Good times.

On my immediate todo: turn on/off the grid, which will require storing the current drawing to re-render the drawing after toggling the grid.

Then get QB64 version working  (I think mouse-input is the only incompatibility.)

At some point: saving the drawing to something (file? browser localstorage? clipboard?) and loading a previously saved drawing.

Lines? Shapes?  Eraser?  Fill ?  Maybe.

ASCII characters that we don't see on our keyboards (well, unless you have a Vic-20/C64 kind of keyboard ...)

I find all of this simple stuff fun and wondrous.  Takes me right back to the early 80's.

For anybody who wants to do some extra reading on his/her down time:  Google Search for "0.1 0.2 not equal 0.3"

It is pretty interesting stuff that I wish my digital design course (from university many moons ago) had covered.

@CharlieJV  you might be in habit of thinking of i as an incremented (by 1) integer index (like for arrays).

No, I am not thinking that.  When I do a For i = 1 to 5, I expect 1,2,3,4,5 to happen.

jack is suggesting a While loop I think to try an get that last loop for i when it isn't an incremented (by 1) integer index but I had same idea tried it and still i a single type + .1 collects gabage and passes exactly 1.000 just like in For loop!

As per the example you had given with .1, my solution to the problem is to multiply everything by 10 so that we are no longer dealing with floating point numbers, and then divide by ten when we want to show the floating point values.

And that works great.


I'm very confused because I don't understand what point either you or Jack are trying to make.  With the samples I gave, I don't see what value a while-wend would provide over a for-next.

(SNIP!)
I still say the absolute best solution, when possible, is to just avoid the floating point imperfections entirely.

FOR i = -10 TO 10 'use integers when possible
  iDec = i /10 'only convert to the floating point value when necessary
NEXT

It's why the banks track how many PENNIES are in your account, and not how many dollars.  The results are displayed as dollars, but all the calculations are in pennies.

Yeah, I do believe I am firmly in that camp.

I might just adopt a standard variable and approach for that kind of thing.

like:


Maybe.  Time, mood, and pudding o' proof will tell.

(SNIP!)

Code: QB64: [Select]

1. For i = -1 To 1.0001 Step .1
2.     Print i, format$("##.#", Str$(i))
3. Next
4. Function format$ (template As String, Source As String)
5.     Dim d, s, n, i, t$
6.     d = _Dest: s = _Source
7.     n = _NewImage(80, 80, 0)
8.     _Dest n: _Source n
9.     Print Using template; Val(Source)
10.     For i = 1 To 79
11.         t$ = t$ + Chr$(Screen(1, i))
12.     Next
13.     If Left$(t$, 1) = "%" Then t$ = Mid$(t$, 2)
14.     format$ = _Trim$(t$)
15.     _Dest d: _Source s
16.     _FreeImage n
17. End Function
18.  

I'm pretty sure I'll be leaning this way going forward: