Membuat Garis Dengan Basic4GL

Sehubungan dengan Tugas yang diberikan, maka kami akan membagikan hasil tugas kami, yaitu membuat garis dengan Basic4GL. 

Inilah Source Code Garis :

     

     sub Line(x0#,y0#,x1#,y1#)

     glBegin(GL_LINES)

     glcolor3f(1.0,0.0,0.0) : glcolor3f(1.0,0.0,0.0)

     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()                            ' Reset The View

     glTranslatef(0.0,0.0,-90.0)

    

      glTranslatef(20,0,0)

      glRotatef(45,0,0,01)

      Line(0,0,20,0)

     

     

      glTranslatef(20,0,0)

      glRotatef(45,0,0,01)

      Line(0,0,20,0)

     

     

      glTranslatef(20,0,0)

      glRotatef(45,0,0,01)

      Line(0,0,20,0)

    

     SwapBuffers ()                 

Jika Di Running, hasilnya akan seperti berikut : 

Jika ingin tahu selengkapnya, Silahkan download disini