@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
(заполнение цветом фона). Вы можете изменить размеры и цвета линий, чтобы создать более сложный и реалистичны