Flowcart Program

TUGAS 3

sub DADA(x0,y0,x1,y1)

        dim dx,dy

    dim step#,i

    dim xinc,yinc

    dim x

    dim y

    glBegin(GL_POINTS)

   

    dy=y1-y0

    dx=x1-x0  

    x=x0

    y=y0

  

   if Abs(dx)>Abs(dy) then step#=Abs(dx) else step#=Abs(dy)  endif

    xinc=dx/step#

    yinc=dy/step#

    glVertex3f(Abs(x), Abs(y),0)

    for i = 0 to step#

    i=i+1

            x=x+xinc

            y=y+yinc

            glVertex3f(Abs(x), Abs(y),0)

     next

   

        glEnd()

                                    

end sub 

   

sub DADA_DOT(x0,y0,x1,y1)

    dim dx,dy

    dim step#,i

    dim xinc,yinc

    dim x

    dim y

    glBegin(GL_POINTS)

   

    dy=y1-y0

    dx=x1-x0  

    x=x0

    y=y0

  

   if Abs(dx)>Abs(dy) then step#=Abs(dx) else step#=Abs(dy)  endif

    xinc=dx/step#

    yinc=dy/step#

    glVertex3f(Abs(x), Abs(y),0)

    for i = 0 to step#

    i=i+1

            x=x+xinc

            y=y+yinc

           if i % 5=0 then glVertex3f(Abs(x), Abs(y),0) endif

     next

   

        glEnd()

                                     

end sub 

   

sub DADA_SRET(x0,y0,x1,y1)

    dim dx,dy

    dim step#,i

    dim xinc,yinc

    dim x

    dim y

    dim z#=0

    glBegin(GL_POINTS)

   

    dy=y1-y0

    dx=x1-x0  

    x=x0

    y=y0

  

   if Abs(dx)>Abs(dy) then step#=Abs(dx) else step#=Abs(dy)  endif

    xinc=dx/step#

    yinc=dy/step#

    glVertex3f(Abs(x), Abs(y),0)

    for i = 0 to step#

    i=i+1

            x=x+xinc

            y=y+yinc 

            if z#=0 then glVertex3f(Abs(x), Abs(y),0) endif

           if i % 5=0 then

             if z#=0 then z#=1 else z#=0 endif

       endif

     next

        glEnd()

                                    

end sub 

   

sub DADA_DOT_SRET(x0,y0,x1,y1)

    dim dx,dy

    dim step#,i

    dim xinc,yinc

    dim x

    dim y

    dim z#=0

    glBegin(GL_POINTS)

   

    dy=y1-y0

    dx=x1-x0  

    x=x0

    y=y0

  

   if Abs(dx)>Abs(dy) then step#=Abs(dx) else step#=Abs(dy)  endif

    xinc=dx/step#

    yinc=dy/step#

    glVertex3f(Abs(x), Abs(y),0)

    for i = 0 to step#

    i=i+1

            x=x+xinc

            y=y+yinc   

      if i % 3=0 then glVertex3f(Abs(x), Abs(y),0)

         else

         if z#=0 then glVertex3f(Abs(x), Abs(y),0) endif

        

         if i % 5=0 then

             if z#=0 then z#=1 else z#=0 endif

          endif

       endif

     next

        glEnd()

                                     '

end sub  

while true

 glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT)      

 const XSize = 640, YSize = 480

 glMatrixMode (GL_PROJECTION)

 glLoadIdentity ()

 glOrtho (0, XSize, YSize, 0, 0, 1)

 glDisable(GL_DEPTH_TEST)

 glMatrixMode (GL_MODELVIEW)

 glLoadIdentity()

 glTranslatef(0.375, 0.375, 0)

       DADA_DOT_SRET(10,40,1000,40)    

       DADA_SRET(10,30,1000,30)

       DADA_DOT(10,20,1000,20)

       DADA(10,10,1000,10)

    SwapBuffers ()

Wend

Flowchart

Nama Kelompok :

1. Dyan Purnomo ( 09043120 )
2. Chairul Anwar ( 09043132 )
3. Suhariodo       ( 09043106 )