School themes from USSR and EurAsia

[mnrvovrfc]

Code is horrible to read. Then other people complain QB64 IDE doesn't format it well. At least stop using loop statements between colons. I refuse to copy this program to see what it does.

[DANILIN]

Today is Cosmonautics Day since 1961

It's time to watch USSR cartoon
with American voices & subtitles

Mystery of Third Planet (1981)



It is not clear: if owner of Barnes site is on forum

[DANILIN]

Day of Earth 22\4 ?

VyZoV



Day of Earth 4/22 ?

[DANILIN]

Russian school algorithm: array and dots and animated mesh

We see that motion vector is divided into halves 5=(1+9)/2
3=(1+5)/2: 2=(1+3)/2: 4=(3+5)/2: 7=(5+9)/2: 6=(5+7)/2: 8=(7+9)/2

Main target: translation into other languages especially JavaScript

damesh online qbjs.org

animation 150 KB

Code: (Select All)

Randomize Timer ' damesh.bas Danilin from Russia
Screen 12 ' 1! 2 3? 4 5! 6 7? 8 9!
n=8: u=256: Dim x(n,9),y(n,9)

For i=1 To n
    x(i,1)=Int(Rnd*u+3): y(i,1)=Int(Rnd*u+3)
    x(i,9)=Int(Rnd*u+3): y(i,9)=Int(Rnd*u+3)
Next

Data -5,1,9,-3,1,5,-2,1,3,-4,3,5,-7,5,9,-6,5,7,-8,7,9

For g=1 To 9 - 2: Read d,a,v
    For i=1 To n: x(i,-d)=(x(i,a) +x(i,v))/2: y(i,-d)=(y(i,a) +y(i,v))/2: Next
Next

For g=1 To 10: For k=1 To 9: _Delay .1: Cls
    For i=1 To n: For j=1 To n: Circle (x(i,k),y(i,k)),2: Next: Next

        For i=1 To n - 1: For j=i To n
            Line (x(i,k),y(i,k))-(x(j,k),y(j,k)),i
           'Line (x(i,k),y(i,k))-(x(i+1,k),y(i+1,k)),i
    Next: Next: Next

    For k=8 To 2 Step -1: _Delay .1: Cls

For p=1 To 9
    For i=1 To n: For j=1 To n: Circle (x(i,p),y(i,p)),2,i: Next: Next
Next
    For i=1 To n - 1: For j=i To n
       Line (x(i,k),y(i,k))-(x(j,k),y(j,k)),i
      'Line (x(i,k),y(i,k))-(x(i+1,k),y(i+1,k)),i
    Next: Next: Next
Next

Obvious development: cycles without circles and cycles with circles

Now array is 2-dimensional: point number and number on vector
A 3-dimensional array is possible: vectors several in a row
It is possible to rotate shape and scale by scaling algorithm

Mathematical basis: my universal table of connection of 2 points





  damesh.bas (Size: 993 bytes / Downloads: 10)