prosze o podpowiedz

[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