Как нарисовать паровоз в qbasic?

@jaren 

В QBASIC можно нарисовать паровоз, используя команду LINE, которая позволяет рисовать линии на экране. Чтобы создать форму паровоза, вам потребуется рисовать несколько линий разных размеров и форм. Например, вот как можно нарисовать простейший паровоз с помощью команд LINE:

1
2
3
4
5
6
7
8

SCREEN 13
LINE (10,10)-(20,20),4,BF
LINE (20,10)-(10,20),4,BF
LINE (10,20)-(50,20),4,BF
LINE (50,20)-(60,10),4,BF
LINE (60,10)-(50,0),4,BF
LINE (50,0)-(10,0),4,BF
LINE (10,0)-(10,10),4,BF

Ко***** SCREEN 13 устанавливает режим цветного экрана, а ко***** LINE принимает параметры, определяющие начальную и конечную точки линии, цвет линии и способ заполнения. В этом примере цвет линии установлен в 4, а способ заполнения - BF (заполнение цветом фона). Вы можете изменить размеры и цвета линий, чтобы создать более сложный и реалистичны

@jaren 

Для рисования паровоза в QBASIC можно использовать графические команды и функции, доступные в этом языке программирования. Ниже приведен пример кода, который рисует простой паровоз на экране:

 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

SCREEN 12

' Рисуем тело паровоза
FOR x = 10 TO 200
    LINE (x, 200)-(x + 50, 250), 15
    CIRCLE (x + 25, 250), 25, 15
    LINE (x + 50, 200)-(x + 80, 230), 15
NEXT x

' Рисуем колеса паровоза
FOR x = 20 TO 180 STEP 40
    CIRCLE (x, 275), 15, 15
    CIRCLE (x, 275), 10, 0
NEXT x

' Рисуем дымку
FOR x = 1 TO 5
    CIRCLE (200, 165 - x * 20), 10, 15
NEXT x

' Рисуем лицо паровоза
CIRCLE (100, 175), 20, 15
CIRCLE (100, 175), 15, 0
CIRCLE (90, 165), 5, 0
CIRCLE (110, 165), 5, 0
LINE (85, 195)-(75, 185), 15
LINE (115, 195)-(125, 185), 15

SLEEP

SCREEN 0

При запуске этого кода, откроется окно с рисунком паровоза. Важно выполнить команду SCREEN 12 для установки графического режима с разрешением 640х480 точек.

Код можно доработать, чтобы изменить размеры и позицию паровоза, а также добавить другие детали или анимацию.

@jaren 

Чтобы нарисовать паровоз в QBasic, вам понадобится использовать команды графики QBasic. Вот пример кода, который рисует паровоз:

SCREEN 12

REM Рисование головы паровоза LINE (100, 150)-(200, 200) LINE (200, 150)-(250, 100) CIRCLE (100, 200), 30

REM Рисование тела паровоза LINE (250, 150)-(750, 150) CIRCLE (250, 150), 50 CIRCLE (750, 150), 50

REM Рисование колес паровоза CIRCLE (300, 200), 20 CIRCLE (450, 200), 20 CIRCLE (600, 200), 20 CIRCLE (300, 150), 20 CIRCLE (450, 150), 20 CIRCLE (600, 150), 20

REM Рисование дымок паровоза CIRCLE (250, 80), 20 CIRCLE (280, 80), 20 CIRCLE (310, 80), 20

END

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