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

@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

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

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

	Графика на бейсике 16.08.2010, 02:10. Показов 112568. Ответов 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