Для рисования окружностей, эллипсов и эллиптических дуг используются следующие процедуры:
| Команда
| Действие
|
| Circle(x,y,r)
| Рисование окружности с центром в точке (х.у) радиусом г
|
| EUipse(x,y,0,360,rx,ry)
| Рисование эллипса с центром в точке (х,у), горизонтальным радиусом гх и вертикальным радиусом гу
|
| Ellipse(x,y,an,ak,rx,ry)
| Рисование эллиптической дуги, ограниченной углами an и ак (ап<ак)
|
Чего ещё не хватает нашей картинке? Романтики! «Светит месяц, светит ясный...» Вот и добавим серпик месяца.
• На небе, естественно, будет всегоодин месяц, но всё же есть смысл создать отдельную процедуру Luna — так легче будет ориентироваться в программе:
Разбор полётов:
с помощью процедуры Ellipse можно рисовать не только эллипсы, но и эллиптические дуги — для указания начального и конечного углов дуги и служат третий и четвёртый параметры;
командаEllipse(x,y,239,95,30.30)выводит дугу радиусом 30 пикселей от 239 до 95 градусов:
Замечание.239=95+144.
команда Ellipse(x-20,y-5,275,55,30,30) рисует дугу с центром, смещённым относительно центра первого эллипса на 20 пикселей влево и на 5 — вверх, от 275 до 55 градусов:
• Поместите луну в левый верхний угол.
• Поставьте домик на основу — травку, лужайку, землю...
Наша картинка готова! • Сохраните файл.
