Oxygen Basic

Programming => Example Code => Graphics => Topic started by: JRS on October 28, 2015, 12:31:07 PM

Title: Curlicue Fractal
Post by: JRS on October 28, 2015, 12:31:07 PM
I have been following the Curlicue Fractal posts and I can't seem to get a Script BASIC with SDL_gfx to work. I'm thinking it might be a RAD() issue with cos/sin functions.  :o

Code: Script BASIC
  1. ' ScriptBasic GFX - Curlicue Fractal
  2.  
  3. IMPORT gfx.inc
  4.  
  5. s = gfx::Window(1200,700,"Script BASIC SDL_gfx - Curlicue Fractal")
  6. ts = gfx::Time()
  7.  
  8. x = 0
  9. y = 0
  10. f = 0
  11. x1 = 0
  12. y1 = 0
  13. Ang = 0
  14. r = 500
  15.  
  16. FOR a = 0 TO 400000
  17.   Ang = Ang + .0001
  18.   IF Ang > 7 THEN Ang = 0
  19.   f = f - PI * PI
  20.   x = x + cos(f * f)
  21.   y = y + sin(f * f)
  22.   x1 = x + r + cos(Ang) * r / 8
  23.   y1 = y + r + sin(Ang) * r / 8
  24.   x3 = r - cos(Ang) * r / 8 - x
  25.   gfx::PixelRGBA s, x1, y1 - 500, a, x, y, a
  26.   gfx::PixelRGBA s, x3, y1 - 500, a, x, y, a
  27. NEXT
  28.  
  29. te = gfx::Time()
  30. gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0xFFFFFFFF
  31. gfx::Update
  32. WHILE gfx::KeyName(1) <> "+escape"
  33. WEND
  34. gfx::Close
  35.  


.
Title: Re: Curlicue Fractal
Post by: Aurel on October 29, 2015, 02:48:52 PM
John dont use angles

f = f - PI * PI

f=f + 0.003
Title: Re: Curlicue Fractal
Post by: JRS on October 29, 2015, 03:00:50 PM
Thanks for the reply but it causes a seg fault.  :o
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 29, 2015, 03:32:43 PM
According to Item 5.4.4 of ECMA-116 BASIC Standard of June 1986, angle input to numeric functions (such as used in trigonometry) should be expressed in radians unless OPTION ANGLE DEGREES is in effect. This effectively unties the hands of such BASIC developers who don't support OPTION metacommands in their dialects at all, and allows them to decide themselves what units those dialects would assume as default since there's no way to toggle that OPTION in a particular dialect.

IMO any units would do as long as the dialect provides adequate conversion commands (functions). FBSL BASIC uses radians on default but provides Radians(deg) and Degrees(rad) functions for conversion at the user's option.

[UPD] When your render loop is used in FBSL BASIC with the following redundant param conversion:
Code: OxygenBasic
  1. ........
  2. For a = 0 To 400000
  3.   ang = ang + 0.0001
  4.   If ang > 7 Then ang = 0
  5.   f = f - PI * PI
  6.   x = x + Cos(f * f)
  7.   y = y + Sin(f * f)
  8.   x1 = x + r + Cos(Radians(ang)) * r / 8
  9.   y1 = y + r + Sin(Radians(ang)) * r / 8
  10.   x2 = r - Cos(Radians(ang)) * r / 8 - x
  11.   PSet(hDC, x1, y1 - 500, RGB(a, x, y))
  12.   PSet(hDC, x2, y1 - 500, RGB(a, x, y))
  13. Next
  14. ........
it generates such a simpatico ivy devil: :)

.
Title: Re: Curlicue Fractal
Post by: JRS on October 29, 2015, 05:40:31 PM
Still seg faults for me.  :'(

Code: Script BASIC
  1. ' ScriptBasic GFX - Curlicue Fractal
  2.  
  3. IMPORT gfx.inc
  4.  
  5. s = gfx::Window(1200,700,"Script BASIC SDL_gfx - Curlicue Fractal")
  6. ts = gfx::Time()
  7.  
  8. a = 0
  9. f =0
  10. y = 0
  11. f = 0
  12. x1 = 0
  13. x2 = 0
  14. y1 = 0
  15. ang = 0
  16. r = 500
  17.  
  18. FOR a = 0 TO 400000
  19.   ang = ang + 0.0001
  20.   If ang > 7 Then ang = 0
  21.   f = f - PI * PI
  22.   x = x + Cos(f * f)
  23.   y = y + Sin(f * f)
  24.   x1 = x + r + Cos(RAD(ang)) * r / 8
  25.   y1 = y + r + Sin(RAD(ang)) * r / 8
  26.   x2 = r - Cos(RAD(ang)) * r / 8 - x
  27.   gfx::PixelRGBA s, INT(x1), INT(y1 - 500), INT(a), INT(x), INT(y), 255
  28.   gfx::PixelRGBA s, INT(x2), INT(y1 - 500), INT(a), INT(x), INT(y), 255
  29. NEXT
  30.  
  31. te = gfx::Time()
  32. gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0xFFFFFFFF
  33. gfx::Update
  34. WHILE gfx::KeyName(1) <> "+escape"
  35. WEND
  36. gfx::Close
  37.  
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 29, 2015, 06:11:57 PM
Try remming out the lines from bottom to top within the loop to see which one exactly causes the segfault. If the offending lines are those two gfx commands at the bottom, try and substitute them with other gfx calls with the same x and y. If those segfault as well, try them with some fixed x and y that would certainly fit within the specified canvas size. Do you remember you had some problems with SDL canvas cropping when you were developing your SDL gfx proxy library/module a couple years ago or so?
Title: Re: Curlicue Fractal
Post by: JRS on October 29, 2015, 09:59:50 PM
Thanks for the hint. My first problem was that x wasn't initialized and that was passed along onto the x1 result which ended up undef. The problem now is I'm generating numbers (negative & out of range) that SDL_gfx PixelRGBA doesn't like. As far as the old problem of putting pixels outside the window goes, (clipping) that was resolved long ago and not related to this issue. I'm thinking the color values for RGB is the issue.

Code: Script BASIC
  1. ' ScriptBasic GFX - Curlicue Fractal
  2.  
  3. IMPORT gfx.inc
  4.  
  5. s = gfx::Window(1200,700,"Script BASIC SDL_gfx - Curlicue Fractal")
  6. ts = gfx::Time()
  7.  
  8. a = 0
  9. f =0
  10. x =0
  11. y = 0
  12. f = 0
  13. x1 = 0
  14. x2 = 0
  15. y1 = 0
  16. ang = 0
  17. r = 500
  18.  
  19. FOR a = 0 TO 400000
  20.   ang = ang + 0.0001
  21.   If ang > 7 Then ang = 0
  22.   f = f - PI * PI
  23.   x = x + Cos(f * f)
  24.   y = y + Sin(f * f)
  25.   x1 = x + r + Cos(RAD(ang)) * r / 8
  26.   y1 = y + r + Sin(RAD(ang)) * r / 8
  27.   x2 = r - Cos(RAD(ang)) * r / 8 - x
  28.  
  29. PRINT "x1: ",x1,"\n"
  30. PRINT "y1 - 500: ",y1 - 500,"\n"
  31. PRINT "a: ",a,"\n"
  32. PRINT "x: ",x,"\n"
  33. PRINT "y: ",y,"\n"
  34. LINE INPUT wait
  35.  
  36. ' gfx::PixelRGBA s, ABS(INT(x1)), ABS(INT(y1 - 500)), ABS(INT(a)), ABS(INT(x)), ABS(INT(y)), 255
  37. ' gfx::PixelRGBA s, INT(x2), INT(y1 - 500), INT(a), INT(x), INT(y), 255
  38. NEXT
  39.  
  40. te = gfx::Time()
  41. gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0xFFFFFFFF
  42. gfx::Update
  43. WHILE gfx::KeyName(1) <> "+escape"
  44. WEND
  45. gfx::Close
  46.  


jrs@laptop:~/sb/sb22/gfx$ scriba curlicue.sb
x1: 5.615002e+02
y1 - 500: -1.960177e-02
a: 0
x: -9.998057e-01
y: -1.971085e-02

x1: 5.624971e+02
y1 - 500: 5.927415e-02
a: 1
x: -2.912656e-03
y: 5.905598e-02

x1: 5.615128e+02
y1 - 500: -1.170967e-01
a: 2
x: -9.872169e-01
y: -1.174240e-01



.
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 30, 2015, 05:17:28 AM
2. :D

1. Try AND-ing each of them with 0xFF (or 255).
Title: Re: Curlicue Fractal
Post by: JRS on October 30, 2015, 12:55:39 PM
Code: Script BASIC
  1. gfx::PixelRGBA s, ABS(INT(x1)), ABS(INT(y1 - 500)), ABS(INT(a)) AND 255, ABS(INT(x)) AND 255, ABS(INT(y)) AND 255, 255
  2.  


jrs@laptop:~/sb/sb22/gfx$ scriba curlicue.sb
Segmentation fault (core dumped)
jrs@laptop:~/sb/sb22/gfx$


Strange why this is so difficult for SB.
Title: Re: Curlicue Fractal
Post by: Aurel on October 31, 2015, 01:34:48 PM
Quote
Strange why this is so difficult for SB

Strange...Strange for me is why Peter scarab is fine when i compile
under o2 and i use same function like i do in my crappy interpreter
but i get freaking image... ;D
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 31, 2015, 02:19:06 PM
Quote from: John on October 30, 2015, 12:55:39 PM
Code: Script BASIC
  1. gfx::PixelRGBA s, ABS(INT(x1)), ABS(INT(y1 - 500)), ABS(INT(a)) AND 255, ABS(INT(x)) AND 255, ABS(INT(y)) AND 255, 255
  2.  

And what happens if it is
Code: Script BASIC
  1. gfx::PixelRGBA s, INT(ABS(x1)), INT(ABS(y1 - 500)), INT(ABS(a)) AND 255, INT(ABS(x)) AND 255, INT(ABS(y)) AND 255, 255
  2.  
?
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 31, 2015, 02:27:00 PM
Hehe Aurel, you raised much ado about that curlicue fractal of yours on BASIC forums, didn't you? :)
Title: Re: Curlicue Fractal
Post by: JRS on October 31, 2015, 02:39:49 PM
Quote from: Mike
And what happens if it is
Code: Script BASIC
  1.     gfx::PixelRGBA s, INT(ABS(x1)), INT(ABS(y1 - 500)), INT(ABS(a)) AND 255, INT(ABS(x)) AND 255, INT(ABS(y)) AND 255, 255
  2.  
     

?


jrs@laptop:~/sb/sb22/gfx$ scriba curlicue.sb
Segmentation fault (core dumped)
jrs@laptop:~/sb/sb22/gfx$


Script BASIC SDL_gfx - Bitbucket (https://bitbucket.org/ScriptBasic/c-basic/src/4f5e9271b527ec1fe4e4efbc30a932f505b0e62c/SBext/SDL_gfx/?at=master)
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 31, 2015, 03:27:25 PM
Hmmmm....

Quote
Script BASIC SDL_gfx - Bitbucket

And the full 32-bit scriba installation distro?

Will SB22_beta_windows_32.zip + scriba_Windows32_b2.zip suffice? Does the latter overwrite the former?

TIA
Title: Re: Curlicue Fractal
Post by: JRS on October 31, 2015, 05:28:07 PM
Mike,

I think any of the SDL_gfx SB ext. modules would work for this problem. I think I added the Mandelbrot iterator in the last version.

Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 31, 2015, 06:36:18 PM
Thanks for the input, John. I'd like to first see under the debugger which module exactly throws that seg fault exception before I go look for the sources to work with.

But still, how do I use scriba from the later and smaller b2 zip? Is it there to simply overwrite the older SB22_beta's scriba.exe with?

[EDIT] No, I don't see any gfx modules in the beta distro except IUP. So, am I still supposed to compile SDL 1.2 stuff from the repo with MinGW/GCC myself? (I don't intend to produce an impression of being picky but such activity would seem entirely unnatural to an average Windows user under similar circumstances... you know, as they say when in Rome...)
Title: Re: Curlicue Fractal
Post by: JRS on October 31, 2015, 07:26:25 PM
Sorry for the grief when you are being so kind to help.

HERE (https://bitbucket.org/ScriptBasic/com/src/19f25e14e98ff7835b6f6560db272734e34c4edb/SBDebug_Setup.exe?at=master) is the Script BASIC Debugger Windows install.

Attached is the Script BASIC updated extension modules and include files.

.
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on October 31, 2015, 07:31:18 PM
You are very kind, John, thanks! :)
Title: Re: Curlicue Fractal
Post by: JRS on October 31, 2015, 09:09:52 PM
Mike,

Attached are the SDL 1.2 and SDL_gfx library DLLs I forgot to put in the last zip.

Code: Script BASIC
  1. ' ScriptBasic GFX - Fern
  2.  
  3. IMPORT gfx.inc
  4.  
  5. s = gfx::Window(640,500,"ScriptBasic GFX Fern")
  6. RANDOMIZE(gfx::Time())
  7.  
  8. SPLITA STRING(3,"0") BY "" TO xy
  9.  
  10. Sub Fern
  11. r = RND() % 100
  12. IF r <= 10 THEN
  13.    a = 0
  14.    b = 0
  15.    c = 0
  16.    d = 0.16
  17.    e = 0
  18.    f = 0
  19. ELSE IF r > 1 AND r <=86 THEN
  20.    a = 0.85
  21.    b = 0.04
  22.    c = -.04
  23.    d = 0.85
  24.    e = 0
  25.    f = 1.60
  26. ELSE IF r > 86 AND r <=93 THEN
  27.    a = 0.2
  28.    b = -.26
  29.    c = 0.23
  30.    d = 0.22
  31.    e = 0
  32.    f = 0.16
  33. ELSE
  34.    a = -.15
  35.    b = 0.28
  36.    c = 0.26
  37.    d = 0.24
  38.    e = 0
  39.    f = 0.44
  40. END IF
  41.  
  42. newx = ((a * xy[1]) + (b * xy[2]) + e)
  43. newy = ((c * xy[1]) + (d * xy[2]) + f)
  44. xy[1] = newx
  45. xy[2] = newy
  46.  
  47. gfx::pixelRGBA s, INT(xy[1]*40+275), INT(xy[2]*40+50), 0, 210, 55, 255
  48.  
  49. END SUB
  50.  
  51. ts = gfx::Time()
  52. FOR w=1 TO 100000
  53.     Fern
  54. NEXT
  55. te = gfx::Time()
  56. gfx::stringColor s, 20, 15, "Time: " & FORMAT("%.4f",(te-ts)/1000) & " Seconds." & CHR(0), 0xffffffff
  57. gfx::Update
  58. WHILE gfx::KeyName(1) <> "+escape"
  59. WEND
  60. gfx::Close
  61.  

.
Title: Re: Curlicue Fractal
Post by: Aurel on November 01, 2015, 02:08:50 AM
Quote
Hehe Aurel, you raised much ado about that curlicue fractal of yours on BASIC forums, didn't you?

heh...yes...of course  ;D
Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on November 01, 2015, 05:19:10 AM
John,

Thank you for this very important addition. It's great to have all the modules collected in one place; having to hunt for them on the net would've made me uneasy. :)
Title: Re: Curlicue Fractal
Post by: JRS on November 01, 2015, 11:33:23 AM
I'm putting together a Windows 32 bit install of everything done to date. You unzip it in C:\ and it creates a C:\scriptbasic directory with everything included. You will need to run the setup.sb script once to register OCX controls, set paths, ... and it will be ready to run. All the needed dependency libraries are included and part of the search path.

If testing of of this works on all the Windows platforms, I'll move on to a Ino setup install for the real setup.exe.


@Mike - Do you have any interest in maybe using Dave VB/COM/OLE stuff with FBSL?

Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on November 01, 2015, 02:10:09 PM
John,

If you can, please make it possible to unzip it on any logical disk in the system, not only in C:\, and don't hardcode the disk in Inno either.

Many people usually have at least one (or more) much larger logical partition(s) and install additional physical disks to keep data on. I, for one, have them all the way down to M:\ :) Such people get nervous being forced to install anything extra in C:\ which is a system disk where the ever growing \WINDOWS resides and where there's always too little space no matter how large the disk. :)

Whenever you're making a Windows install, I think it will be reasonable too to include the SB<->VB/COM/OLE stuff in it as a standard. VB6 still is and will continue to be very popular under Windows for as long MS Windows is available at all.

(No, not really but thanks anyway. I think FBSL already has its own COM layer and can communicate with VB/VBA by itself. Perhaps it might need some extra polishing but it certainly won't be me to engage in that activity. There's so much interesting stuff around, and one's life is only so short... :) )
Title: Re: Curlicue Fractal
Post by: JRS on November 01, 2015, 03:57:42 PM
Quote
If you can, please make it possible to unzip it on any logical disk in the system, not only in C:\, and don't hardcode the disk in Inno either.

I'll try to make the beta zip work from where ever you unzip it. Shouldn't be too hard.

Title: Re: Curlicue Fractal
Post by: Mike Lobanovsky on November 01, 2015, 04:27:03 PM
Not sure if you're aware of that... Many Windows' zip utilities can also create self-extracting exes that would automatically extract their content into the directory where you've launched them. Many zip-capable archivers including Windows 7-z can also read those exes like usual files and would allow you to extract the content from them manually just like you would having a "static" non-executable archive.