b+rotan.bas

Some mods to figosdev graphic:


'b+rotan.bas for SmallBASIC 0.12.9 (B+=MGA) 2017-05-15
'extensive mods to rotan / 2008 mennonite
'license info appended below

'======================================================
'
' press space bar for fresh screen and color pattern
'
'======================================================

definekey 32, resetPlasma
resetPlasma
while 1
FOR y2 = 200 TO 1 STEP -10
c = c + dc
FOR d = 1 TO 0 STEP -1
FOR a = -3.14 + c TO 3.14 + c STEP .125/8
r = 40 + TAN((a + c) * 7) * 4
x = xmax/2 + r * COS(a)
y = ymax/2 + r * SIN(a)
setPlasma
CIRCLE x, y, 4 filled
NEXT
showpage
NEXT
NEXT
wend

sub
resetPlasma() 'all globals
cls : dc = rnd
plasmaR = rnd ^ 2 : plasmaG = rnd ^ 2 : plasmaB = rnd ^ 2 : plasmaN = 0
end

sub
setPlasma() 'all globals
plasmaN += .001
color rgb(127+127*sin(plasmaR*plasmaN),127+127*sin(plasmaG*plasmaN),127+127*sin(plasmaB*plasmaN))
end

############################################################​​####################

# The MIT License (MIT)
# Copyright (c) 2016-2017 B+=MGA, figosdev
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
# SOFTWARE.

############################################################​​####################