Digital Art Stelli6

Testelli6 ist ein minimalistisches Smallbasic-Programm, besser ein paar unkommentierte lines of code, das bei smallbasic unter XMQ284 von mir veröffentlicht ist:

pi=3.141592654
GraphicsWindow.Width=1260
GraphicsWindow.Height=740
GraphicsWindow.BackgroundColor="blacK"
GraphicsWindow.FontSize=10

For rad=0 To 2*pi*58 Step pi/305
  x=630+620*Math.Sin(rad)
  y=30+1.9*rad+30*Math.Cos(rad)
  GraphicsWindow.BrushColor=GraphicsWindow.GetRandomColor()
  R=255*Math.Power(Math.Cos(rad),4)
  G=255*Math.Power(Math.Cos(rad-2*pi/3),4)
  B=255*Math.Power(Math.Cos(rad-4*pi/3),4)
  GraphicsWindow.BrushColor=GraphicsWindow.GetColorFromRGB(R,G,B)
      GraphicsWindow.DrawText(x,y,"#")
    EndFor

Sicher, es kann einiges besser codiert und kommentiert werden. So wie es steht, eröffnet es erst das Window und definiert die Fontgrösse. Dann folgt die Zeichnung(x,y) einer Farbspirale. das besondere dabei ist die Definition der Farbe RGB mit der harmonischen Funktion cos^4 mit Math.Power, hier synchron mit den Windungen der Spirale. 

Und so sieht das Bild unbeschnitten aus dem Screenshot aus, das ich vorhabe, auf Baumwolle drucken zu lassen, zum Anfassen und Rahmen.