'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
DECLARE SUB teledeporte (x!, y!, t!)
SCREEN 12
CONST pi = 3.141592654#

teledeporte 150, 50, 12
teledeporte 50, 50, 1
teledeporte 450, 50, 5.5
teledeporte 50, 400, 1.5
teledeporte 450, 300, 3.5

'
'  © JM. :: Hecho en Ronda
'
'
'  Procedente de...        es.geocities.com/jm00092
'
'______________________________________________________________________
'
SUB teledeporte (x, y, t) STATIC

LINE (x, y + (20 * t))-(x + (20 * t), y + 25 * t), 7, BF
LINE (x, y + (20 * t))-(x + (20 * t), y + 25 * t), 15, B
LINE (x + (5 * t), y + (25 * t))-(x + (15 * t), y + 30 * t), 7, BF
LINE (x + (5 * t), y + (25 * t))-(x + (15 * t), y + 30 * t), 15, B
LINE (x + (20 * t), y)-(x + (20 * t), y + (20 * t)), 15
CIRCLE (x + (20 * t), y + (20 * t)), 20 * t, 15, pi / 2, pi
PAINT (x + (2 * t), y + (18 * t)), 14, 15
CIRCLE (x + (20 * t), y + (20 * t)), 14 * t, 15, pi / 2, pi
PAINT (x + (10 * t), y + (18 * t)), 2, 15
CIRCLE (x + (20 * t), y + (20 * t)), 7 * t, 15, pi / 2, pi
PAINT (x + (15 * t), y + (18 * t)), 9, 15
CIRCLE (x + (10 * t), y + (9 * t)), 15 * t, 15, 1.27 * pi, 1.73 * pi

END SUB