280 CIRCLE (0,0), .5, 15 : PAINT (0, 0), 12, 15
290 SOUND 300, .5 : DELAY .5
300 NEXT i
В следующем примере демонстрируется работа с окружностями и эллипсами, которые достаточно часто встречаются в графических образах различных объектов. Изображение окружности или дуги окружности выводится тонкими линиями с помощью оператора CIRCLE.
Программа 64
'************0кружности и дуги **********************
20 SCREEN 9
30 WINDOW (-16,-12) - (16,12)
40 COLOR 14,1
50 г*************** задание числа PI ****************
60 pi=4*atn(l)
iq >********** изображение окружности и дуг **********
80 CIRCLE
(0, 0), 4, 15
90 CIRCLE (5. 5), 4, 14, 0, pi/2 'дуга в первой четверти
100 CIRCLE
(-5, 5). 4, 14. pi/2, pi
'во второй
110 CIRCLE
(-5,-5) ,4, 14, 0, pi, 3*pi/2 'в третьей
120 CIRCLE
(5,-5), 4, 14, 3*pi/2,2*pi 'в четвертой
Для изображения линий используется оператор LINE, который строит линии одной и той же толщины. Однако, при создании графических образов в компьютерных Демонстрациях требуются линии различной толщины. Например, выделяются оси координат на фоне координатной сетки или рисуется график линейной зависимости и т.д. Существует очень быстрый способ получения изображений вертикальных и горизонтальных линий различной толщины. Это достигается выводом на экран узких прямоугольников. Этот прием иллюстрируется на примере построения осей координат:
LINE(-16.-.l)-(16,.l),15,bf LINE(-.l,-12)-(.l,12),15,bf
Линии произвольной формы и толщины, в том числе и прямые, выводятся на экран дисплея при помощи оператора CIRCLE. Заключенный в цикл с достаточно малым шагом, оператор CIRCLE действует аналогично плакатному перу с шириной линии, равной диаметру окружности:
FOR х =-4 ТО 4 STEP .01
у = 0.5*\''2
CIRCLE (x,y),.1,15 NEXTx
Если требуется провести очень тонкую линию, то вместо CIRCLE используется оператор PSET (\,y). z, где z - номер цвета, а (х,у) - координаты точки (PSET -точка). Иногда изображения соседних точек соединяют отрезками прямых линий. График функции в этом случае будет представляться ломаной линией.