Originally Posted by
Charles Pegge
This is my interpretation in OxygenBasic
sys x,y,k, single i,j,r, string b
for y=0 to 31
for x=1 to 84
b+=mid " .:-;!/>)|&IH%*#",1+(k and 15),1
i=0 : k=0 : r=0
do
j=r*r-i*i-2+x*.04 : i=2*r*i-1.6+y*.1 : r=j
if k++>110 or i*i+j*j>10 then exit do
end do
next
b+=chr(13)+chr(10)
next
putfile "m.txt",b
Charles
Charles,
I tried the above code (which I based the SB version on) and your output is different.
:::::::::::::::::::::--------------------------------::::::::::::::::::::::::::::::
::::::::::::::::--------------------------------------------::::::::::::::::::::::::
:::::::::::------------------------------------------------------:::::::::::::::::::
::::::::----------------------------------;;;;;;;-------------------::::::::::::::::
:::::-----------------------------;;;;;;;;;;;;;;;;;;;;;;---------------:::::::::::::
:::--------------------------;;;;;;;;;;;;!!!/-%//!!!;;;;;;;;-------------:::::::::::
:------------------------;;;;;;;;;;;;;!!!!//>)I#&I /!!!;;;;;;;--------------::::::::
:---------------------;;;;;;;;;;;;;!!!!!//>>|&:# &)>/!!!!!;;;;;;-------------:::::::
:-----------------;;;;;;;;;;;;!!!!!!////>>)&- /-&>>//!!!!!;;;;;-------------:::::
:--------------;;;;;;;;;;!!!!!!!//>))H))|&&H %I||)>>>>#/!!;;;;-------------::::
:---------;;;;;;;;;;!!!!!!!!!////>)%- & .H%I#H >!!;;;;-------------:::
:-----;;;;;;;;;!!!!!//////////>>)&:%- H)//!!;;;;-------------::
:--;;;;;;;;;!!!!/>&&)>>>))>>>))|&%. *&I>!!;;;;;-------------:
:;;;;;;;;!!!!!//>>|I. !H#;% I&&I> #|>/!!;;;;;------------:
:;;;;;!!!!!///>>)|H%-; I//!!;;;;;-------------
:!!!!/////>>>)|%*:## # |>/!!!;;;;;-------------
:#I. I )*%) # . .I|>//!!!;;;;;-------------
:!!!!/////>>>)|%*:## # |>/!!!;;;;;-------------
:;;;;;!!!!!///>>)|H%-; I//!!;;;;;-------------
:;;;;;;;;!!!!!//>>|I..!H#;% I&&I> #|>/!!;;;;;------------:
:--;;;;;;;;;!!!!/>&&)>>>))>>>))|&%. *&I>!!;;;;;-------------:
:-----;;;;;;;;;!!!!!//////////>>)&:%- H)//!!;;;;-------------::
:---------;;;;;;;;;;!!!!!!!!!////>)%- & .H%I#H >!!;;;;-------------:::
:--------------;;;;;;;;;;!!!!!!!//>))H))|&&H %I||)>>>>#/!!;;;;-------------::::
:-----------------;;;;;;;;;;;;!!!!!!////>>)&- /-&>>//!!!!!;;;;;-------------:::::
:---------------------;;;;;;;;;;;;;!!!!!//>>|&:# &)>/!!!!!;;;;;;-------------:::::::
:------------------------;;;;;;;;;;;;;!!!!//>)I#&I)/!!!;;;;;;;--------------::::::::
:::--------------------------;;;;;;;;;;;;!!!/-%//!!!;;;;;;;;-------------:::::::::::
:::::-----------------------------;;;;;;;;;;;;;;;;;;;;;;---------------:::::::::::::
::::::::----------------------------------;;;;;;;-------------------::::::::::::::::
:::::::::::------------------------------------------------------:::::::::::::::::::
::::::::::::::::--------------------------------------------::::::::::::::::::::::::
This is the original compiled with gcc under Ubuntu 64.
main(k){float i,j,r,x,y=-16;while(puts(""),y++<15)for(x
=0;x++<84;putchar(" .:-;!/>)|&IH%*#"[k&15]))for(i=k=r=0;
j=r*r-i*i-2+x/25,i=2*r*i+y/10,j*j+i*i<11&&k++<111;r=j);}
.............::::::::::::::::::::::::::::::::::::::::::::::::.......................
.........::::::::::::::::::::::::::::::::::::::::::::::::::::::::...................
.....::::::::::::::::::::::::::::::::::-----------:::::::::::::::::::...............
...:::::::::::::::::::::::::::::------------------------:::::::::::::::.............
:::::::::::::::::::::::::::-------------;;;!:H!!;;;--------:::::::::::::::..........
::::::::::::::::::::::::-------------;;;;!!/>&*|I !;;;--------::::::::::::::........
::::::::::::::::::::-------------;;;;;;!!/>)|.*#|>/!!;;;;-------::::::::::::::......
::::::::::::::::-------------;;;;;;!!!!//>|: !:|//!!!;;;;-----::::::::::::::.....
::::::::::::------------;;;;;;;!!/>)I>>)||I# H&))>////*!;;-----:::::::::::::....
::::::::----------;;;;;;;;;;!!!//)H: #| IH&*I#/;;-----:::::::::::::...
:::::---------;;;;!!!!!!!!!!!//>|.H: #I>/!;;-----:::::::::::::..
:----------;;;;!/||>//>>>>//>>)|% %|&/!;;----::::::::::::::.
--------;;;;;!!//)& |;I*-H#&||&/ *)/!;;-----::::::::::::::
-----;;;;;!!!//>)IH:- ## #&!!;;-----::::::::::::::
;;;;!!!!!///>)H%.** * )/!;;;------:::::::::::::
&)/!!;;;------:::::::::::::
;;;;!!!!!///>)H%.** * )/!;;;------:::::::::::::
-----;;;;;!!!//>)IH:- ## #&!!;;-----::::::::::::::
--------;;;;;!!//)& |;I*-H#&||&/ *)/!;;-----::::::::::::::
:----------;;;;!/||>//>>>>//>>)|% %|&/!;;----::::::::::::::.
:::::---------;;;;!!!!!!!!!!!//>|.H: #I>/!;;-----:::::::::::::..
::::::::----------;;;;;;;;;;!!!//)H: #| IH&*I#/;;-----:::::::::::::...
::::::::::::------------;;;;;;;!!/>)I>>)||I# H&))>////*!;;-----:::::::::::::....
::::::::::::::::-------------;;;;;;!!!!//>|: !:|//!!!;;;;-----::::::::::::::.....
::::::::::::::::::::-------------;;;;;;!!/>)|.*#|>/!!;;;;-------::::::::::::::......
::::::::::::::::::::::::-------------;;;;!!/>&*|I !;;;--------::::::::::::::........
:::::::::::::::::::::::::::-------------;;;!:H!!;;;--------:::::::::::::::..........
...:::::::::::::::::::::::::::::------------------------:::::::::::::::.............
.....::::::::::::::::::::::::::::::::::-----------:::::::::::::::::::...............
.........::::::::::::::::::::::::::::::::::::::::::::::::::::::::...................
.............::::::::::::::::::::::::::::::::::::::::::::::::.......................
Here is Matthew's Basic4GL version running under Wine.
Bookmarks