* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки

Г л а в а V . В ы в о д д а н н ы х на э к р а н м о н и т о р а 33 Операнд сжатие задает отношение радиуса, параллельного оси у, к радиусу, параллельному оси х. Оси эллипса всегда параллельны осям координат. Е с л и з н а ч е н и я о п е р а н д о в н а ч а л о и к о н е ц о т р и ц а т е л ь н ы е , т о используют¬ ся их а б с о л ю т н ы е в е л и ч и н ы и к р а й н и е т о ч к и д у г и э л л и п с а с о е д и н я ю т с я линией с центром. Если операнды начало и конец опущены, то строится полный эллипс. Пример 5.2.5(1) 'Построение окружностей SCREEN 12 CLS CIRCLE ( 2 0 0 , 2 0 0 ) , 200 CIRCLE ( 2 0 0 , 2 0 0 ) , 2 0 0 , 5 , , , 3 / 1 0 CIRCLE ( 2 0 0 , 2 0 0 ) , 2 0 0 , 2 , , , 4 / 1 0 CIRCLE ( 2 0 0 , 2 0 0 ) , 2 0 0 , 1 , , , 5 / 1 0 END Пример 5.2.5(2) 'Построение серии окружностей в цикле CLS 'Очистка экрана SCREEN 12 'установка разрешающей способности 'экрана F O R r = 1 / 2 0 T O 1 0 STEP .1 c = c + 1 I F c > 1 2 THENc=0 CIRCLE ( 3 2 0 , 2 0 0 ) , 1 5 0 , 1 + c , , , r 'построение эллипса с цветом Ч +c NEXT r PSET ( 3 2 0 , 2 0 0 ) , 5 END Пример 5.2.5(3) 'Построение серии эллипсов в цикле CLS 'Очистка экрана SCREEN 12 'установка разрешающей способности экрана F O R r = 1 T O 1 / 1 0 STEP - . 1 'начало цикла построение эллипсов c = c + 1 'переменная для изменения цвета I F c > 1 2 THENc=0 'которая изменяется по модулю 12 CIRCLE ( 3 2 0 , 2 0 0 ) , 1 5 0 , 1 + c , , , r 'построение эллипса с цветом Ч +c PAINT ( 3 2 0 , 2 0 0 ) , 1 + c , 1 + c 'окрашивание эллипса NEXT r 'конец цикла PSET ( 3 2 0 , 2 0 0 ) , 5 'устанавливаем точку в центре 'эллипса END