Basic4Gl Bikin Rotasi Tata Surya Matahari, Bumi, Bulan, Mars dan Asteroid

sub kubudku(l1#)

              glBegin(GL_QUADS)                            ' Draw A Quad

              glColor3f(1,1,0.1)

            ' kotak depan

            glVertex3f(0.0, 0.0, 0.0)                    ' Top Left

            glVertex3f(l1#, 0.0, 0.0)                    ' Top Left

            glVertex3f(l1#, l1#, 0.0)                    ' Top Left

            glVertex3f(0.0, l1#, 0.0)                    ' Top Left

            glColor3f(0.1,1,1)      ' kotak bawah

            glVertex3f(0.0, 0.0, 0.0)                    ' Top Left

            glVertex3f(l1#, 0.0, 0.0)                    ' Top Left

            glVertex3f(l1#, 0.0, -l1#)                    ' Top Left

            glVertex3f(0.0, 0.0, -l1#)                    ' Top Left

               glColor3f(1,1,1)      ' kotak bawah

            glVertex3f(l1#, 0.0, -l1#)                    ' Top Left

            glVertex3f(0.0, 0.0, -l1#)                    ' Top Left

            glVertex3f(0.0, l1#, -l1#)                    ' Top Left

            glVertex3f(l1#, l1#, -l1#)                    ' Top Left

            

            glColor3f(1,0.1,1)      ' kotak bawah

             glVertex3f(l1#, l1#, 0.0)                    ' Top Left

            glVertex3f(0.0, l1#, 0.0)                    ' Top Left

       glVertex3f(0.0, l1#, -l1#)                    ' Top Left

            glVertex3f(l1#, l1#, -l1#)                    ' Top Left

      

      

            glVertex3f(0.0, 0.0, 0.0)                    ' Top Left

            glVertex3f(0.0, l1#, 0.0)                    ' Top Left

       glVertex3f(0.0, l1#, -l1#)                    ' Top Left

            glVertex3f(0.0, 0.0, -l1#)                    ' Top Left

     

            glVertex3f(l1#, 0.0, 0.0)                    ' Top Left

            glVertex3f(l1#, l1#, 0.0)                    ' Top Left

            glVertex3f(l1#, l1#, -l1#)                    ' Top Left

            glVertex3f(l1#, 0.0, -l1#)                    ' Top Left

      glend()

 end sub

    

    

    dim rtri#                                        ' Angle For The Triangle ( NEW )

    dim rquad#

    dim pro#

    dim fix#

    dim life#

    dim klop#

    dim top# 

    dim iop#

    iop#=0

    top#=0

    klop#=0

    life#=0

    fix#=0

    pro#=0

    rtri#= 0

    rquad#= 0

                                       ' Angle For The Quad     ( NEW )

    while true

        glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)    ' Clear The Screen And The Depth Buffer

        glLoadIdentity()                            ' Reset The View

        

        glPushMatrix()

        glTranslatef(0.0, 0.0, -100.0)

        glRotatef(-45, 60, -10, 1)

        rquad#=rquad#+0.1

        glRotatef(rquad#,0,0,1) 

        

        kubudku(5)

        

        iop# = iop# =0.01

        pro# = pro# + 0.2  

        glRotatef(iop#,0,0, 1)

        glTranslatef(30.0, 15.0,0.0)

        glRotatef(pro#,0,0, 1)

        kubudku(3)                 ' Move right 1.5 units and into the screen 6.0

        

        

        

        top#= top# - 0.6

        glRotatef(top#,0,0, 1)

        glTranslatef(8.0,6.0,0.0) 

        glRotatef(top#,0,0, 1)

        kubudku(2)

        

           ' glPopMatrix()

                 

                                        

     'glPopMatrix ()  

               rtri# = rtri# + 0.2  

     glRotatef(rtri#,0,-50,1) 

      glTranslatef(2.0, 0.0,-500.0)

     

      kubudku(4)

                    

          

                 glPopMatrix ()

                    

                    klop#= klop# - 0.1

                    life#= life# + 1

                    glRotatef(klop#, 0,0,1)

                    glTranslatef(25, 0, -45)

                   ' glRotatef(60,44,0,1)

                    glRotatef(life#,90,0,1)

                    kubudku(2)    

                          fix#=fix#+1

                   glRotatef(fix#,0,0,2)

                   glTranslatef(30,0,-500)

                   'glRotatef(-45,60,10,0) 

                  ' glRotatef(fix#, 0,0, 1)

                   

                   kubudku(3)    

                   

                

     

     

        SwapBuffers ()      

       

    wend