Circle Patterns

Окружностей

Окружностей привлекает до шестидесяти различных моделей, основанных на

Команда CIRCLE, который используется здесь необычным способом. Узоры генерируется выглядят очень как tesselating напольной плитки и может быть использован для хорошего эффекта в титульных экранов.

Программа была написана для 16K Spectrum Д. Trebilcock из продажи в графстве Чешир.

Объяснение Программа

Переменные:

Col число цветом, используемым RAD1 радиус внутреннего круга RAD2 радиус внешней окружности amend1 регулировка в горизонтальное положение печати amend2 регулировка в вертикальное положение печати Декабрь фактором размер рисунка с управления ПО / NEXT петли а, б хранения данных для печати позиций

Линия 20 Наборы чернил до черного, и остальная часть экрана до белого.

Строка 30 Устанавливает цвет рисунка наугад.

Линия 40 ВОССТАНОВЛЕНИЕ сообщает компьютеру, чтобы начать чтение данных из                 частности заявление DATA – в этом случае на линии 250.                 Без восстановления команды, когда программа была                 выполняется во второй раз компьютер будет не в состоянии                 найти любой больше данных для загрузки.

Lines 60- 70 Set две разные цифры для радиуса круга.

                В зависимости от размера каждого блока в шаблоне, существует                 может быть более чем один круг в каждом блоке. Lines 80- 90 Set два отдельных цифры для регулировки, где каждая часть                 картины должно быть напечатано.

Линия 100 устанавливает коэффициент для размера рисунка единиц; 0, 1 или 2. Линия 110 Основной цикл программы начинается здесь. Есть 23                 единиц, который можно сделать.

Линия 120 читает печатные позиции от заявлений данных, начиная                 на 250. Когда первый оператор используется до компьютера                 автоматически переходит к следующему.

Линия 130 Если размер единицы равен 1 или 2 Компьютер рисует небольшой                 круг. Обычно с КРУГ Круг представляет собой изогнутую линию.                 Вот, потому что чернила и бумага цвета установлены так же,                 Весь характер квадрат, через который проходит круг                 установлен в одном цвете. Это особенность использования спектра                 цвета, которые на этот раз была превращена с положительной стороны.                 Попробуйте изменить либо чернила или бумага цвета и видеть то, что                 происходит.

Линия 140 Если размер единицы равно 0 или 1 компьютер рисует больше                 Круг, некоторые из которых могут уничтожить части ранее                 круг.

Линия 150 INKEY $ проверяет, если вы нажатие клавиши на клавиатуре. В                 этот случай, если вы нажмете “S” программа остановится. Линия 160 Петля возвращается к линии 110 привлечь другого устройства. Линия 170- 180 Компьютер делает паузу, чтобы отобразить закончил рисунок и                 затем возвращается к линии 30, чтобы установить новый цвет и нарисуйте                 Новая картина.

Заявления Line 250 260 данные, которые содержат координаты для                 печати шаблона. Программа будет читать их два на                 Время, а затем настроить их немного больше разнообразия. Видеть

                что произойдет, если вы измените некоторые из них.