Линза, Помогите нарисовать линзу! Опции

[ODVk]

.

Сообщение отредактировано: ODVk - 24.01.2011 0:10

[TarasBer]

В общем для двояковыпуклой линзы для радиусов r1 и r2
координаты центров будут
x1 := Width div 2 + sqrt(sqr(r1)-sqr®) и
x2 := Width div 2 - sqrt(sqr(r2)-sqr®)
а углы будут +-arctg(R/x1) и 180+- arctg(R/x2);