Basic4GL Bikin Garis

    sub garisBuk(x0#,y0#,x1#,y1#)
    glBegin (GL_LINES)
    glvertex2f(x0#,y0#)
    glvertex2f(x1#,y1#)
    glEnd()
    end sub
 

 
    glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)    ' Clear The Screen And The Depth Buffer
    glLoadIdentity()                            ' Resewtw The View
 
    glTranslatef(0.0, 0.0, -25.0)                    ' Move Left 1.5 Units And Into The Screen 6.0
    glRotatef(40, 0, 0, 1)  
    garisBuk(0, 0, 10, 0)

    glTranslatef(10.0, 0.0, 0.0)  
    glRotatef(-120, 0, 0, 1)  
    garisBuk(0, 0, 3, 0)
 
   glTranslatef(3.0, 0.0, 0.0)  
    glRotatef(120, 0, 0, 1)  
    garisBuk(0, 0, 10, 0)
 



 

    SwapBuffers ()