Russian Sorting Halves Danilin

[DANILIN]

we draw 5D relief creating a random array of heights

on QB64 in 5 minutes and plus in an hour
beauty and versatility

  [ You are not allowed to view this attachment ]  

Code: QB64: [Select]

1. ' 5d relief and array
2. SCREEN 12: RANDOMIZE TIMER: DIM a(12,12)
3. FOR t=1 TO 12 ' quantity
4.     FOR x=1 TO 12: FOR y=1 TO 12
5. a(x,y)=INT(RND*20)'heights
6.     NEXT: NEXT: CLS
7.     FOR y=1 TO 12: FOR x=1 TO 11
8. LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*y-a(x+1,y)), y
9.     NEXT: NEXT
10.     FOR x=1 TO 12: FOR y=1 TO 11
11. LINE (50+20*x+20*y, 400-20*y-a(x,y))-(50+20*(x+1)+20*y, 400-20*(y+1)-a(x,y+1)), x
12.     NEXT: NEXT:SLEEP 1
13. NEXT
14. END

on C# pendulum program is used
because of what remained incomprehensible lines about timer
and random function depends on outside / inside cycles
and to understand another program created random

how to clear screen is still unclear and builds slowly
and it is unclear how to set color of lines by variables

  [ You are not allowed to view this attachment ]  

still as task manager shows
simple C# program or array fills memory
and only at end does memory clear line save

Code: QB64: [Select]

1. //RELIEF
2. using System;
3. using System.Drawing;
4. using System.Windows.Forms;
5. class RELIEF
6. {
7. Timer timer; // it is not clear
8. Form form;
9.        
10. int[,] a = new int[22, 22];
11. static void Main(string[] args)
12. {
13. var p = new RELIEF();
14. }
15. public RELIEF()
16. {
17.         form = new Form() { Text = "RELIEF", Width = 600, Height = 360 };
18.         timer = new Timer() { Interval = 200 }; // it is not clear
19.         timer.Tick += delegate(object sender, EventArgs e) // it is not clear
20.         {
21.         Random rand = new Random();
22. // heights
23.         for (int x = 1; x <=12; x++)
24.         {
25.         for (int y = 1; y <=12; y++)
26.         a[x,y]=rand.Next(20);
27.         }
28. // parallels X
29.         for (int y = 1; y <=12; y++)
30.         {
31.         for (int x = 1; x <=11; x++)
32.                 {
33.         var x1 = 50 + 20*x + 20*y;
34.         var y1 = 300 - 20*y - a[x,y];
35.         var x2 = 50 + 20*(x+1) + 20*y;
36.         var y2 = 300 - 20*y - a[x+1,y];
37.  
38.         Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
39.         Graphics g = Graphics.FromImage(dblBuffer);
40.         Graphics f = Graphics.FromHwnd(form.Handle);
41.  
42.         g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
43. //      f.Clear(Color.Green); // clear screen
44.         f.DrawImage(dblBuffer, new Point(0, 0));
45.         }
46.         }
47. // parallels Y
48.         for (int x = 1; x <=12; x++)
49.         {
50.         for (int y = 1; y <=11; y++)
51.         {
52.         var x1 = 50 + 20*x + 20*y;
53.         var y1 = 300 - 20*y - a[x, y];
54.         var x2 = 50 + 20*(x+1) + 20*y;
55.         var y2 = 300 - 20*(y+1) - a[x, y+1];
56.  
57.         Bitmap dblBuffer = new Bitmap(form.Width, form.Height);
58.         Graphics g = Graphics.FromImage(dblBuffer);
59.         Graphics f = Graphics.FromHwnd(form.Handle);
60.  
61.         g.DrawLine(Pens.Red, new Point(x1, y1), new Point(x2, y2));
62. //      f.Clear(Color.Green); // clear screen
63.         f.DrawImage(dblBuffer, new Point(0, 0));
64.         }
65.         }
66. Array.Clear(a, 0, 22); // clears memory
67.         };
68.         timer.Start(); // it is not clear
69.         Application.Run(form);
70.         }        
71. }

besides C# pendulum is C # diagonal simpler
and no other C# program is included
so as in basic: 1 file = 1 program

that's why my given 5D relief program is important.
drawing at least something predictable
and at same time we study nested loops

and I'm still looking for compilable graphics programs:

1 file = 1 program
1bas=1exe & 1cs=1exe

and already created studies about strings

[DANILIN]

1 april

  [ You are not allowed to view this attachment ]  

2019

  [ You are not allowed to view this attachment ]  

? is it easy to draw these pictures on basic & C# ?

http://rosettacode.org/wiki/Category:C_sharp
http://rosettacode.org/wiki/Category:QB64

[_vince]

Хилэриэс!

[DANILIN]

Valar Dohaeris (c) Game of Thrones - all people should serve

Game of Thrones Simpsons PARODY

Game of Thrones Simpsons PARODY

further we will continue: strings and animation

[odin]

This thread has been going on for too long spreading on too many different matters and going off topic as well. Start a new thread when a new discussion is required and please remember to stay on topic - this board is for QB64 discussion.