.draw_road

    ;-Set up the frame
    X# = sx2 ;posicion de la carretera (centrada pro defecto)
    DX# = 0 ;para mover horizontalmente la perspectiva
    HalfWidth# = (screeny * 0.75) ;era 30;ancho por defecto de la carretea en Z0? a partir de aki empieza la carretera (punto de fuga) 50 default
    ScreenLine = (screeny - 1)
    ;-
    ;-DIBUJADO D LA CARRETERA
    For a = 0 To (roadlines-1)
        ;-
        If  (road(a)\ZMap + TexOffset#) Mod (100) > (100/2) Then ;colores de tile1 y tile 2
          ;-
          road_RGB(a,0)=147:road_RGB(a,1)=147:road_RGB(a,2)=147
          grass_RGB(a,0)=239:grass_RGB(a,1)=222:grass_RGB(a,2)=206
        Else
          ;--colores de tile2
          road_RGB(a,0)=156:road_RGB(a,1)=156:road_RGB(a,2)=156
          grass_RGB(a,0)=230:grass_RGB(a,1)=214:grass_RGB(a,2)=198
        End If
        ;--

        ;aki venia la parte de los stripes y edges, cada cuarto de tile, ok?
        ;-------------------------------------------------------------------

        ;--

        ;-
        ;-dibujo cada elemento de la linea, de izq a derecha..
            ;-

            Color grass_RGB(a,0),grass_RGB(a,1),grass_RGB(a,2)
            Line 0, ScreenLine,screenx,Screenline;CESPED O CARRETERA
            ;-

                ;Dibujo la carretera en si-
                ;-
                Color road_RGB(a,0),road_RGB(a,1),road_RGB(a,2)
                Line (X - HalfWidth)-steer_x, ScreenLine,(X + HalfWidth)-steer_x, ScreenLine;CARRETERA CENTRAL
                ;---
            ;-
                ;_
                road((roadlines-1)-a)\x1 =(X- HalfWidth)-steer_x ;ahora ya tengo el puto limite izq de la carretera
                road((roadlines-1)-a)\x2 =(X+ HalfWidth)-steer_x ;ahora ya tengo el puto limite der de la carretera
                ;-
                ;-;saco de cada una el ancho de linea
                road((roadlines-1)-a)\anchosmap =  HalfWidth ;la formula es Ancho , pero le falta el giro...
                ;DebugLog road((roadlines-1)-a)\anchosmap : Stop
                ;-----


        ;-----
        HalfWidth# = HalfWidth# - WidthStep
        ScreenLine = ScreenLine -  1

        ;-

        ;-


        ;-


DX# = DX# + DDX#

        X# = X# + DX# +(steer_x*0.01)
        ;---


        ;--prueba---

        ;---

    Next
    ;-


    ;;--fuerza de curva---
    If NextStretch$ <> "Recta" Then  ;viene una curva...
        If accel# > 3.0 Then  ;si la velocidad es mayor de 30 % ...
            ;steer_x = steer_x - (DX# * .5) * accel#    ;derrapa!!!
        EndIf
    EndIf
    ;-----------------------

    ;--calcula limites del coche
    car_limiteizq= (car_x - (ImageWidth(car)/2) )
    car_limiteder= (car_x + (ImageWidth(car)/2) )
    ;-
    ;-
    ;--------------------------




    ;-MOVIMIENTO DE TILES
    TexOffset# = TexOffset# + ScrollSpeed#  ;scroll de la textura hacia abajo
    While TexOffset# >= SizeTile#               ;temaño por defecto de cada tile, se puede cambiar..
        TexOffset# = TexOffset# - SizeTile#
    Wend
    ;-----------

    SegY# = SegY# - (1*Scrollspeed#)  ;frecuancia y velocidad con la que sale la curva. Default 5. Ahora depende de la velocidad




    ;-
    While SegY# < 0
        ;-

        Gosub read_circuit ;temporal, borrarlo
        ;-
    Wend
    ;-



    ;------Actualizo y dibujo los objetos-----------
    Update_Objects()
    ;------------------------------------------------



;-
Return