Julia and Her Rings Again

[Mike Lobanovsky]

Why am I doing this? Well I don't know. Perhaps Peter has just cast a spell on me with his own Julia.

One way or another, here are Julia Rings again with colorful interior and a few more rings in sight. We used to work with Rob (thanks again for cooperation, Rob!) for quite some time trying to improve the looks and speed without resorting to OpenGL but to no avail. This script has been written in FBSL's DynC but what you're going to find in the zip is its verbatim translation to OxygenBasic.

I also tried to use Peter's asm window environment from his latest submission. But it appeared not very friendly for this task and I just had to override some of it in order to get what I wanted.

.

[Mike Lobanovsky]

Why sure, Peter,

It can also show you your tomographic scan in 16 million colors!

.

[Mike Lobanovsky]

Two last minute corrections to the code:

1. The FPS counter in the WindowTitle call should be

Code: [Select]

j * 5 ' Correct rather than

Code: [Select]

j * 4 ' Wrong!
2. Procedure JuliaRings() should be formalized as

Code: [Select]

Function JuliaRings() As Dword
....................
End Functionrather than a simple Sub. Oxygen is permissive in this respect but I prefer to stay orthodox when it comes to languages other than my own.