felcio

czesc napisalem czesc programu ( qbasic,),ale stanalem w jednym miejscu tz. niewiem jak przedluzyc "belke" ktora przechodzi przez koleczko o to co napisalemdo tej pory: REM dane pi = 3.141592654# yk = 250 'wspol. okregu xk2 = 250 'wspol. okregu r = 50 'promien okregu REM program CLS SCREEN 12 FOR i = 1 TO 20 t = (d + i) x2 = INT(320 - 30 * COS(t)) y2 = INT(yk - 30 * SIN(t)) FOR j = 1 TO 1 x = INT(xk1 - r * COS(t + j)) y = INT(250 + r * SIN(t + j)) REM przeglub CIRCLE (100, 250), 2, 7 LINE (100, 250)-(90, 240), 7 LINE (100, 250)-(90, 260), 7 LINE (90, 220)-(90, 280), 7 LINE (80, 220)-(90, 230), 7 LINE (80, 230)-(90, 240), 7 LINE (80, 240)-(90, 250), 7 LINE (80, 250)-(90, 260), 7 LINE (80, 260)-(90, 270), 7 LINE (80, 270)-(90, 280), 7 REM podpora LINE (190, 450)-(310, 450), 7 LINE (190, 450)-(195, 435), 7 LINE (310, 450)-(305, 435), 7 REM okrag CIRCLE (xk2, yk), r x2 = INT(xk2 + r * COS(t + j)) LINE (x2, y)-(x2, y) LINE (100, xk2)-(x2, y), 7 REM kuleczko m CIRCLE (x2, y), 5, 7 NEXT j REM zwolnienie FOR k = 1 TO 20000 'zwolnienie x2 = x2 ^ (2 / 3) NEXT k CLS NEXT i END moze ktos wie co zrobic albo co zle zrobilem.jeszcze w programie nalezy narysowac na koncu "belki" tzw.cypelek.z gory dzieki za pomoc

elo programisci ma pytanie i zarazem prosbe,potrzebuje program w qbasic :"zbiór cantora" oto link z wygladem tego "zbioru cantora":http://www.mini.pw.edu.pl/MiNIwyklady/minkowski/zbior_Cantora.html moze jest to prosty fraktal ale nie moge sobie poradzic, prosze o pomoc z gory dzieki :sp_ike: