! ПЛАЗМА

! размер экрана:
! мой вариант:
bw = 720
bh = 400
! вариант Mintoris:
! bw = 180
! bh = 100

! размер примитива
! мой вариант:
size = 20
! вариант Mintoris:
! size = 4

! активация экрана
gr.open 255,0,0,0
gr.orientation 1

DIM r[256]
DIM g[256]
DIM b[256]

FOR x = 1 TO 255

  r[x] = int((255-(SIN(3.14*3*x/255)+1)*127))
  g[x] = int(254*(SIN(3.14*2*x/127)+1)/4)
  b[x] = int(255-r[x])

NEXT x

iter:

! скорость:
 ! мой вариант по y : 
FOR y =0 TO bh step 20
! вариант Mintoris:
! FOR y=0 TO bh step 5

   ! мой вариант по x :
 FOR x = 0 TO bw step 20
! вариант Mintoris:
! FOR x=0 TO bw step 5
      
      ind = int(SIN(x/50+f+y/200+SIN((1-y/100+(1-x/160)*1)))*63.5+127)
    
     gr.color 255, r[ind], g[ind], b[ind]
   ! можно эксперементировать с графическими примитивами
! квадрат ( прямоугольник )
     gr.rect pt,x,y,x+size,y+size
! окружность
   ! gr.circle pt,x,y,size
    NEXT xc
  NEXT y

gr.render

! приращение:
! мой вариант:
 f = f + 0.4
! вариант Mintoris:
! f = f + 0.1  

goto iter