Задача про преломление лучей на qbasic

Формулировка задачи:

Ребята, помогите написать программу на qbasic. Входные данные - угол, под которым направлен луч, плотность среды. Должна отобразиться схема преломления данного луча при заданной плотности среды. Должно получиться наподобие этой картинки. Заранее спасибо :*

Решение задачи: «Задача про преломление лучей на qbasic»

textual
                            Листинг программы 
                        
                            1.0-ABS(x)