GARIS BRESENHAM

CLS
INPUT "masukkan x1: ", x1
INPUT "masukkan y1: ", y1
INPUT "masukkan x2: ", x2
INPUT "masukkan y2: ", y2

dy = y2 - y1
dx = x2 - x1
d1 = 2 * dy
d2 = 2 * (dy - dx)
e = d1 - dx
x = x1
y = y1

SCREEN 1

  IF dx < dy THEN
1 SLEEP 1
  PSET (x, y), 3
  IF e >= 0 THEN
    e = e + d2
    x = x + 1
  ELSE e = e + d1
    x = x
  END IF
  y = y + 1
  IF y >= y2 THEN
    END
  ELSE GOTO 1
  END IF


ELSE
2 SLEEP 1
  PSET (x, y), 3
  IF e >= 0 THEN
    e = e + d2
    y = y + 1
  ELSE e = e + d1
    y = y
  END IF
  x = x + 1
  END IF
  IF x >= x2 THEN
    END
  ELSE GOTO 2
  END IF

END

pada program diatas , jika dijalankan menggunakan program Qbasic maka akan muncul tampilan :
masukkan x1 , masukkan x2 , masukkan y1 dan masukkan y2 ..
jika kita memasukkan nilai berapapun ,program tersebut akan muncul output titik yang membentuk sebuah garis dengan posisi turun kekanan bawah.. karena titik koordinat 0,0 pada komputer berada di pojok kiri atas. jadi sebesar atau sekecil apapun inputan yang kita masukan ,maka garis/titik tersebut tetap akan jalan ke kanan bawah.