Графика на бейсике

@Quiet Snow · Регистрация: 25.04.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте уважаемые участники форума и администрация!

Уже давно заметил, что "скудновато" в данном разделе по прикреплённым темам, есть предложение закрепить топик, освещая следующие вопросы:

1) Обсуждаем графические приложения, написанные на бейсике(любые MS-DOS компиляторы)
2) Выкладываем разные "поучительные" примеры

Понимаете, область далеко не самая простая, хочется развеить предрассудки о том что бейсик мол "игрушка", отсталый язык, есть же "сильные" программы, использующие разные ухищрения. Короче хочется чтобы было больше дискуссий на эту тему. В рамках форума можно решать самые разнообразные вопросы, от вопросов алгоритмизации до выбора стратегии оптимизации, от простых до сложных.

Что подразумевается под графическими приложениями:
- В первую очередь программы работающие в графическом режиме, с упором на вывод графики.
- Разные рисунки, анимация, эффекты, воспроизводящиеся непосредственно в программе.
- Мультимедиа приложения и игры.
- Обычные программы использующие средства для вывода графики.

Также можно обсуждать и выкладывать какие-либо вспомогательные программы(будь то конвертер или редактор), идеологические аспекты, т.е. допустим один человек предлагает идею - другой реализовывает.

Вообщем если найдутся энтузиасты поддержать топик, буду очень рад. Хочется чтобы в разделе было больше посетителей и чтоб форум не "сдох".

@Vladimir1982 · 11.09.2021, 06:59

@Vladimir1982 · 11.09.2021, 10:19

@Vladimir1982 · 11.09.2021, 10:59

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
5 SCREEN 12
10 CLS
30 FOR f = 0 TO 1500 STEP 1
40 R = SIN(f * 7)
50 X = R * SIN(f * 1) * 2
60 Y = R * COS(f / 3)
70 LINE -(Y * 220 + 310, 230 - X * 100), 10
80 NEXT f

@Vladimir1982 · 11.09.2021, 11:04

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
5 SCREEN 12
10 CLS
30 FOR f = 0 TO 1500 STEP 1
40 R = SIN(f * 4)
50 X = R * SIN(f * 3) * 2
60 Y = R * COS(f * 3)
70 LINE -(Y * 220 + 320, 240 - X * 110), 10
80 NEXT f

@Vladimir1982 · 11.09.2021, 11:13

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
SCREEN 12: a = 0: d = 50: CLS
1 FOR x = 1 TO 10
FOR y = 1 TO 5
x1 = (x - 6) * COS(a) / SIN(x2 - y1) * 2
y1 = (x - 6) * SIN(a)
x2 = (x - 6) * COS(a)
PSET (290 + x2 * 18 * d / (y1 - d), 240 - (y1 - 1) * 18 * d / (x1 - d)), 15
a$ = INKEY$
IF a$ = " " THEN END
NEXT y
NEXT x
a = a + 3 / 20
GOTO 1

@Vladimir1982 · 11.09.2021, 20:41

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
SCREEN 12
CLS
FOR t = 1 TO 2000 STEP .2
r = (1 + SIN(t)) * (1 - .9 * ABS(SIN(4 * t))) * (.9 - .05 * COS(200 * t))
x = (r * COS(t))
y = (r * SIN(t)) * 1.5
PSET (x * 220 + 320, 390 - y * 120), 10
NEXT t

@qbfan · 21.02.2022, 15:04

Рисунок кентавра в фортрановском стиле.

Маленькая программа и длинный список строк DATA —
это не очень интересно для сегодняшнего дня.
Но эта картинка — историческая, она была прислана
на конкурс машинной графики в журнал «Квант» в 1981 году.

http://kvant.mccme.ru/1981/09/... sunkov.htm

Я не нашёл ни итогов конкурса, ни текста программы,
а только сам рисунок (в книжке).
По нему я с помощью цифрового фотоаппарата
и простого графического редактора на FreeBasic
восстановил исходный текст.
Программа работает на QB/Qbasic и FreeBasic.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
'qbasic
' Add next line for FreeBasic
' OPTION GOSUB
DEFINT A-Z
CONST col = 14
SCREEN 12
TYPE circtype
x AS INTEGER
y AS INTEGER
r AS INTEGER
a AS SINGLE
b AS SINGLE
END TYPE
DIM s AS circtype
FOR v = -1 TO 1: FOR u = -1 TO 1
RESTORE arcs
READ n
FOR i = 1 TO n
READ s.x, s.y, s.r, s.a, s.b
CIRCLE (s.x + u, s.y + v), s.r, col, s.a, s.b
NEXT i
GOSUB lines
NEXT u: NEXT v
' bsave "kentavr.bmp",0
SLEEP
END
 
lines:
'col=rgb(0,255,0)
LINE (130 + u, 404 + v)-(92 + u, 443 + v), col
LINE (92 + u, 443 + v)-(97 + u, 433 + v), col
LINE (92 + u, 443 + v)-(101 + u, 440 + v), col
LINE (99 + u, 410 + v)-(128 + u, 436 + v), col
 
LINE (423 + u, 207 + v)-(526 + u, 248 + v), col
LINE (526 + u, 248 + v)-(512 + u, 234 + v), col
LINE (526 + u, 248 + v)-(507 + u, 248 + v), col
PSET (254 + u, 366 + v), col: GOSUB star
PSET (100 + u, 108 + v), col: GOSUB star
PSET (372 + u, 22 + v), col: GOSUB star
RETURN
star:
LINE -STEP(4, 26), col
LINE -STEP(46, -2), col
LINE -STEP(-48, 18), col
LINE -STEP(-14, 43), col
LINE -STEP(-2, -45), col
LINE -STEP(-14, -2), col
LINE -STEP(14, -8), col
LINE -STEP(14, -28), col
RETURN
 
arcs:
DATA 102
DATA  16,352,200, 0.80, 0.97
DATA  29,288, 80, 0.12, 0.59
DATA  29,176,190, 0.22, 0.37
DATA  56,287,200, 0.22, 0.39
DATA  75,105,200, 5.70, 5.97
DATA  82,380,160, 1.02, 1.57
DATA 110,394, 50, 1.24, 1.57
DATA 122,148, 50, 0.72, 1.29
DATA 125,227,110, 5.92, 6.17
DATA 127, 93, 30, 0.40, 1.67
DATA 132, 87, 40, 0.20, 2.17
DATA 135,361, 20, 4.90, 1.09
DATA 149, 62, 40, 2.90, 4.47
DATA 156,111, 30, 0.70, 1.57
DATA 164,178, 80, 1.02, 1.17
DATA 166,252, 90, 2.80, 3.97
DATA 166,360, 30, 2.50, 3.87
DATA 168,274, 60, 3.20, 4.17
DATA 172,119, 40, 0.50, 1.57
DATA 173,311, 10, 5.20, 1.39
DATA 173,341, 50, 3.24, 3.77
DATA 176,310, 10, 2.10, 4.57
DATA 177,225, 50, 5.52, 6.17
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 178,111, 20, 0.00, 1.57
DATA 180,317, 50, 3.24, 3.77
DATA 184,319, 80, 3.12, 3.47
DATA 188,223, 30, 5.22, 6.17
DATA 193,170,120, 3.80, 4.67
DATA 205,139, 50, 2.70, 3.67
DATA 208, 69, 40, 5.50, 6.17
DATA 214,217, 60, 2.70, 2.97
DATA 220, 91, 10, 3.70, 4.97
DATA 222, 72, 10, 1.50, 3.87
DATA 226, 77, 40, 5.20, 5.57
DATA 230, 95, 20, 2.50, 3.67
DATA 232, 94, 10, 3.70, 4.97
DATA 238,104, 20, 5.00, 5.67
DATA 240,101, 20, 5.50, 6.17
DATA 246,146, 20, 0.62, 1.67
DATA 247, 62, 20, 0.80, 3.17
DATA 249, 90, 20, 5.50, 6.17
DATA 252,327,200, 1.60, 1.77
DATA 257,232,100, 3.70, 5.27
DATA 258, 26, 50, 4.50, 4.87
DATA 260,178,100, 3.00, 3.27
DATA 261, 67, 20, 4.40, 4.87
DATA 265, 87, 10, 5.50, 6.17
DATA 267, 55, 10, 5.90, 2.29
DATA 271,164, 30, 0.20, 1.77
DATA 272, 74, 20, 3.80, 4.27
DATA 272, 88, 20, 3.80, 4.27
DATA 273,355, 50, 0.10, 1.27
DATA 276,106, 40, 3.00, 3.67
DATA 277, 75, 10, 3.00, 5.67
DATA 278,148, 80, 2.52, 2.67
DATA 281, 69, 10, 5.40, 1.79
DATA 282,173, 80, 2.60, 4.77
DATA 282, 98, 40, 3.00, 3.47
DATA 285,210,130, 3.10, 3.37
DATA 287,179,120, 5.32, 5.97
DATA 301, 36,140, 4.42, 4.69
DATA 308,187, 30, 0.90, 1.77
DATA 319,160, 30, 3.62, 4.99
DATA 322,239,200, 2.90, 3.07
DATA 337,300, 70, 5.90, 2.39
DATA 338,215,200, 3.50, 3.67
DATA 339,191, 30, 0.70, 2.07
DATA 345,220, 60, 4.82, 0.09
DATA 352,148, 80, 5.70, 0.47
DATA 355,150, 50, 3.92, 4.69
DATA 358,298, 20, 1.62, 5.37
DATA 365,379,120, 0.62, 1.39
DATA 369,258, 60, 0.82, 1.89
DATA 407,194, 20, 4.80, 0.09
DATA 410,244,140, 4.00, 4.87
DATA 415,149, 40, 4.70, 1.47
DATA 424,381,130, 0.32, 1.79
DATA 424, 92, 20, 0.82, 4.57
DATA 441,329, 40, 2.92, 4.79
DATA 448, 23,170, 4.22, 4.57
DATA 457,218,120, 4.22, 4.69
DATA 502,320, 80, 4.10, 4.77
DATA 506,337, 70, 3.62, 4.59
DATA 511,323, 60, 3.42, 4.69
DATA 532,319,120, 3.70, 4.57
DATA 542,449, 20, 5.92, 1.51
DATA 542,449, 20, 5.92, 1.51
DATA 543,361, 40, 3.72, 4.49
DATA 544,382, 50, 3.62, 4.59
DATA 545,410, 10, 5.92, 1.51
DATA 546,413, 40, 3.80, 4.67
DATA 546,210,130, 4.00, 4.67
DATA 552,408, 10, 2.72, 4.59
DATA 552,338, 80, 4.00, 4.67
DATA 558,437, 20, 2.92, 4.79
DATA 562,262,140, 4.50, 4.57
' end of data

@Vladimir1982 · 21.05.2022, 18:22

@yevrowl · 01.09.2022, 00:58

В институте курсовая работа была связана с синтезом производных адамантана, и тогда же склепал статическое изображение с динамической палитрой.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
RANDOMIZE TIMER
SCREEN 12
LINE (220, 340)-(260, 260), 1
LINE (260, 260)-(260, 180), 2
LINE (260, 180)-(340, 140), 3
LINE (340, 140)-(300, 220), 4
LINE (300, 220)-(300, 300), 5
LINE (300, 300)-(220, 340), 6
LINE (300, 300)-(380, 340), 7
LINE (380, 340)-(420, 260), 8
LINE (420, 260)-(420, 180), 9
LINE (420, 180)-(340, 140), 10
LINE (420, 260)-(340, 300), 11
LINE (340, 300)-(260, 260), 12
DO
    FOR j = 1 TO 12
        nm& = 65536 * CINT(63 * RND(1)) + 256 * CINT(63 * RND(1)) + CINT(63 * RND(1))
        PALETTE j, nm&
    NEXT j
LOOP WHILE INKEY$ = ""
END

@yevrowl · 01.09.2022, 01:09

Код вроде бы не мой, хотя за давностью лет, больше XX прошло, не уверен. =)

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
SCREEN 13
INPUT "SPEED=", M
INPUT "RADIUS=", L
CLS
LET C = 32
FOR F = 0 TO 6.283 STEP .01
    K$ = INKEY$: IF K$ = CHR$(27) THEN END
    LET R = 100 * SIN(2 * F)
    LET X = R * COS(F)
    LET Y = R * SIN(F)
    LET C = C + 1
    IF C > 80 THEN C = 30
    LET T1 = 0: LET T2 = 0
    CIRCLE (T1 + X + 160, T2 + Y + 100), L, C
    PAINT (T1 + X + 160, T2 + Y + 100), C
    FOR Z = 0 TO M: NEXT Z
NEXT F
END

@yevrowl · 05.09.2022, 00:10

Программы во вложении рисуют по заданной стороне мигающий шести-, семи- и восьмиугольник.

@yevrowl · 05.09.2022, 12:04

Переливающееся сердце, код не мой.

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
SCREEN 13
RANDOMIZE TIMER
REM Уpавнение каpдиоиды в поляpных кооpдинатах
REM r = a * (1 - COS(f))
c = 16
DO
FOR f = 0 TO 6.28 STEP .01
x = 60 * (1 - COS(f)) * COS(f)
y = 70 * (1 - COS(f)) * SIN(f)
LINE (160 + y, 30 - x)-(160, 100), c
c = c + .379
IF c > 255 THEN c = 16
NEXT f
LOOP WHILE INKEY$ = ""

@yevrowl · 05.09.2022, 12:14

И этот код опять не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
SCREEN 13
'Функция вида r = a * COS(n*f)
'Изменение паpаметpа n меняет вид фигуpы
CONST n = 4
 
DO
FOR f = 0 TO 6.28 STEP .01
x = 70 * COS(n * f) * COS(f)
y = 70 * COS(n * f) * SIN(f)
LINE (160 + x, 100 + y)-(160, 100), c, BF
c = c + .5
IF c > 150 THEN c = 25
'-------Задеpжка-------
FOR z = 1 TO 2000: NEXT z
'----------------------
IF INKEY$ <> "" THEN END
NEXT f
LOOP

@yevrowl · 05.09.2022, 12:25

Спираль, код не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
RANDOMIZE TIMER
CLS
SCREEN 12
c = 1
DO
FOR f = 0 TO 114 STEP .05
x = 2 * f * COS(f): y = 2 * f * SIN(f)
PSET (x + 310, y + 230), c
'-------Задеpжка-------
FOR z = 1 TO 30: NEXT z
'----------------------
NEXT f
c = INT(RND(1) * 14) + 1
LOOP WHILE INKEY$ = ""

@yevrowl · 05.09.2022, 12:36

Этот примитивный сфероид возможно и моего изготовления:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
SCREEN 13
FOR f = .04 TO 64 * 6.28 STEP .04
LET c = c + 1
LET r = 3 * (LOG(f)) ^ 2
LET x = r * COS(f)
LET y = r * SIN(f)
LINE (x + 160, y + 100) - (160, 100), c
NEXT

@yevrowl · 05.09.2022, 12:42

Переливающийся разными цветами цилиндр, код не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
CLS
DEFINT A-Z
RANDOMIZE TIMER
SCREEN 12
clr = 1
DO
CIRCLE (320, 100), 100, clr, , , 1 / 3
PAINT (320, 100), clr
FOR i = 1 TO 100
CIRCLE STEP(0, 3), 100, clr, 3.14, 6.28, 1 / 3
IF i \ 20 = i / 20 THEN clr = CINT(RND(1) * 15 + 1)
'---------Задеpжка---------
FOR t& = 1 TO 30000: NEXT t&
'--------------------------
IF INKEY$ <> "" THEN END
NEXT i
LOOP

@yevrowl · 05.09.2022, 13:50

Три орбиты с анимацией, код не мой:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
DEFINT A-Z
SCREEN 13
VIEW SCREEN (110, 50)-(210, 150)
 
'Задеpжка, подобpать если необходимо
z1& = 20000
 
'Следующие тpи стpоки задают начальный повоpот окpужностей
b1 = 50: b2 = 25
clr1! = 24: clr2! = 27.5
c2 = 1
 
DO
IF b1 = 0 THEN c1 = 1: clr1! = 31
IF b1 = 50 THEN c1 = -1
IF b2 = 0 THEN c2 = 1: clr2! = 31
IF b2 = 50 THEN c2 = -1
IF b3 = 0 THEN c3 = 1: clr3! = 31
IF b3 = 50 THEN c3 = -1
FOR f! = 0 TO 1.5712 STEP .0982
sx = 50 * COS(f!)
y = b1 * SIN(f!)
up = 24 + CINT((clr1! - 24) * (f! / 1.5712))
dn = 24 + CINT((24 - clr1!) * (f! / 1.5712))
PSET (sx + 160, y + 100), dn
PSET (-sx + 160, y + 100), dn
PSET (sx + 160, -y + 100), up
PSET (-sx + 160, -y + 100), up
dx! = 50 * COS(f!) * .7
dy! = b2 * SIN(f!) * .7
up = 24 + CINT((clr2! - 24) * (f! / 1.5712))
dn = 24 + CINT((24 - clr2!) * (f! / 1.5712))
x = dy! + dx!
y = dx! - dy!
PSET (x + 160, y + 100), up
x = dy! - dx!
y = -dy! - dx!
PSET (x + 160, y + 100), up
x = -dy! - dx!
y = dy! - dx!
PSET (x + 160, y + 100), dn
x = dx! - dy!
y = dy! + dx!
PSET (x + 160, y + 100), dn
x = b3 * SIN(f!)
up = 24 + CINT((clr3! - 24) * (f! / 1.5712))
dn = 24 + CINT((24 - clr3!) * (f! / 1.5712))
PSET (x + 160, sx + 100), dn
PSET (x + 160, -sx + 100), dn
PSET (-x + 160, sx + 100), up
PSET (-x + 160, -sx + 100), up
NEXT f!
b1 = b1 + c1
b2 = b2 + c2
b3 = b3 + c3
clr1! = clr1! - .14
clr2! = clr2! - .14
clr3! = clr3! - .14
FOR z& = 1 TO z1&: NEXT z&
CLS
PALETTE
LOOP WHILE INKEY$ = ""

@yevrowl · 05.09.2022, 15:24

Quiet Snow, не очень понимаю причину недовольства и оскорблений. Молекулу адамантана рисовал на парах по компьютерной химии, где преподавали Бейсик, 3-4 курс ХТФ КПИ, значит 1998-1999 годы. С тех пор навыки программирования на этом языке программирования остались, походу, на прежнем уровне. Поскольку в профессиональной деятельности вообще без особой надобности.

Сообщение от Quiet Snow

никто не догадается по END'у и выравниванию

Вообще моя фирменная фишка LET, но в этом примере упустил. =)
P. S. Код QB64 выравнивает автоматически, когда проверяю работоспособность исходника и делаю скриншот.

Сообщение от Quiet Snow

обычная школота и ворьё

И где видишь, что сворован чужой код?

Сообщение от Quiet Snow

только на библиотеках чужих.

Автор в документации к библиотеке указал свободное использование, что нарушено?

@yevrowl · 05.09.2022, 17:26

Сообщение от Quiet Snow

Не мельтеши. Надо базарить - базарь в личку.

Т. е. обосновать про "ворьё", "вскрылась правда матка" никак не сумел и прячешься обратно в нору? =)

@yevrowl · 05.09.2022, 17:47

Туннель, код опять не мой:

QBasic/QuickBASIC
1
2
3
4
SCREEN 13
FOR i = 1 TO 80
    CIRCLE (i + 10 * LOG(i), i + 10 * LOG(i)), i, i
NEXT

Новые блоги и статьи Все статьи Все блоги /
Запрет пометки на удаление и отмены проведения Maks 16.07.2026 Алгоритм из решения ниже реализован на нетиповом документе "ПутевойЛист" разработанного в КА2. Задача: запретить помечать на удаление и отменять проведения путевого листа при условии, если он сдан. . .	Как надо было делать правильно - вообще не слушать ИИ, его дело - текст. Hrethgir 15.07.2026 А вообще надо было делать не так, чтобы не исправлять ошибку https:/ / www. cyberforum. ru/ blogs/ 223907/ 10996. html , правильно было : удалил кнопку, а потом добавил её. Всё это стресс конечно. Почему?. . .	Знаете, от чего появляется стресс? kumehtar 15.07.2026 Стресс появляется оттого, что вы, зная как поступить правильно, делаете наоборот. Ларри Уингет	Нас бьют, а мы крепчаем? Какая чушь! kumehtar 15.07.2026 Вот это вот бытующее мнение, что человек меняется только под действием проблем, всегда считал вредоносным. Поверь, от проблем у людей появляются не изменения, а нервное расстройство и ПТСР. А. . .
сукцессия 29. Переход от одних деревьев на другие делать более или менее вероятностным? anaschu 12.07.2026 Насколько смена типов микоризы — исключительное событие в двухвековой сукцессии? Оценка вероятности в пространстве параметров В текущей версии модели успешно реализован ключевой механизм. . .	сукцессия 27. Думаю, как переделывать уже написанную статью с планами на сукцессию. anaschu 12.07.2026 Анализ соответствия модели требованиям Реализованные компоненты: Механизм закисления почвы через протонную помпу Конкуренция между типами микориз pH как триггер сукцессии C/ P соотношение. . .	Сукцессия 26. Мат модель создана. anaschu 12.07.2026 Модель смены растительных сукцессий посредством управления грибами работает внутри небольшой ячейки почвы, восстанавливающейся после пожара, где ненадолго бывшее царство хвойных снова захватили. . .	Решил проблему с ошибкой пагинации сообщений с сервера на алгоритме обхода дерева "Эстафета хвоста". Hrethgir 12.07.2026 Проблема была в том, что удалялась именно новая кнопка, а не старая. Ни один ИИ не обнаружил это, а сам я смог только когда с работой стало попроще и когда заставил работать будущее автономное. . .

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2

	Графика на бейсике 16.08.2010, 02:10. Показов 113838. Ответов 175 Метки нет (Все метки) Здравствуйте уважаемые участники форума и администрация! Уже давно заметил, что "скудновато" в данном разделе по прикреплённым темам, есть предложение закрепить топик, освещая следующие вопросы: 1) Обсуждаем графические приложения, написанные на бейсике(любые MS-DOS компиляторы) 2) Выкладываем разные "поучительные" примеры Понимаете, область далеко не самая простая, хочется развеить предрассудки о том что бейсик мол "игрушка", отсталый язык, есть же "сильные" программы, использующие разные ухищрения. Короче хочется чтобы было больше дискуссий на эту тему. В рамках форума можно решать самые разнообразные вопросы, от вопросов алгоритмизации до выбора стратегии оптимизации, от простых до сложных. Что подразумевается под графическими приложениями: - В первую очередь программы работающие в графическом режиме, с упором на вывод графики. - Разные рисунки, анимация, эффекты, воспроизводящиеся непосредственно в программе. - Мультимедиа приложения и игры. - Обычные программы использующие средства для вывода графики. Также можно обсуждать и выкладывать какие-либо вспомогательные программы(будь то конвертер или редактор), идеологические аспекты, т.е. допустим один человек предлагает идею - другой реализовывает. Вообщем если найдутся энтузиасты поддержать топик, буду очень рад. Хочется чтобы в разделе было больше посетителей и чтоб форум не "сдох". 10

@Vladimir1982 68 / 18 / 0 Регистрация: 26.01.2018 Сообщений: 166
	11.09.2021, 06:59
	1

@Vladimir1982 68 / 18 / 0 Регистрация: 26.01.2018 Сообщений: 166
	11.09.2021, 10:19
	1

@Vladimir1982 68 / 18 / 0 Регистрация: 26.01.2018 Сообщений: 166
	21.05.2022, 18:22
	2