lib_seven_seg.ks

// This file is distributed under the terms of the MIT license, (c) the KSLib team

function seven_seg {
 parameter
  num,
  col,
  ln.
 if num > -1 {
  if num < 5 {
   if num < 2 {
    if num < 1 {
     print  "_" at (col+1,ln).
     print "| |" at (col,ln+1).
     print "|_|" at (col,ln+2).
    } else {
     print  " " at (col+1,ln).
     print "  |" at (col,ln+1).
     print "  |" at (col,ln+2).
    }
   } else {
    if num < 4 {
     if num < 3 {
      print  "_" at (col+1,ln).
      print " _|" at (col,ln+1).
      print "|_ " at (col,ln+2).
     } else {
      print  "_" at (col+1,ln).
      print " _|" at (col,ln+1).
      print " _|" at (col,ln+2).
     }
    } else {
     print  " " at (col+1,ln).
     print "|_|" at (col,ln+1).
     print "  |" at (col,ln+2).
    }
   }
  } else {
   if num < 7 {
    if num < 6 {
     print  "_" at (col+1,ln).
     print "|_ " at (col,ln+1).
     print " _|" at (col,ln+2).
    } else {
     print  "_" at (col+1,ln).
     print "|_ " at (col,ln+1).
     print "|_|" at (col,ln+2).
    }
   } else {
    if num < 9 {
     if num < 8 {
      print  "_" at (col+1,ln).
      print "  |" at (col,ln+1).
      print "  |" at (col,ln+2).
     } else {
      print  "_" at (col+1,ln).
      print "|_|" at (col,ln+1).
      print "|_|" at (col,ln+2).
     }
    } else {
     print  "_" at (col+1,ln).
     print "|_|" at (col,ln+1).
     print "  |" at (col,ln+2).
    }
   }
  }
 // special cases
 } else if num = "b" {  //"b" = blank
  print  " " at (col+1,ln).
  print "   " at (col,ln+1).
  print "   " at (col,ln+2).
 } else if num = "-" { //"-" = minus
  print  " " at (col+1,ln).
  print " _ " at (col,ln+1).
  print "   " at (col,ln+2).
 }// else if num = // add more special cases here.
}