holoAlphaNumeric

term = require("term")
component = require("component")
h = component.hologram
-- valid characters are:
-- abcdefghijklmnopqrstuvwxyz1234567890!@#$%^&*()-=_+[]{};':"\|,./<>?`~
function charToImg(char,c,x,y)
  char = tostring(char)
  n = "nil"
  local img = {}
  if char == "a" or char == "A" then
    img[1] = {n,c,c,c,n}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,n,n,n,c}
  elseif char == "b" or char == "B" then
    img[1] = {c,c,c,c,n}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,n}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,n}
  elseif char == "c" or char == "C" then
    img[1] = {n,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {c,n,n,n,n}
    img[4] = {c,n,n,n,n}
    img[5] = {n,c,c,c,c}
  elseif char == "d" or char == "D" then
    img[1] = {c,c,c,c,n}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,n,n,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,n}
  elseif char == "e" or char == "E" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {c,c,c,c,n}
    img[4] = {c,n,n,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "f" or char == "F" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {c,c,c,c,n}
    img[4] = {c,n,n,n,n}
    img[5] = {c,n,n,n,n}
  elseif char == "g" or char == "G" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {c,n,n,c,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "h" or char == "H" then
    img[1] = {c,n,n,n,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,n,n,n,c}
  elseif char == "i" or char == "I" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "j" or char == "J" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {c,n,c,n,n}
    img[5] = {c,c,c,n,n}
  elseif char == "k" or char == "K" then
    img[1] = {c,n,n,c,n}
    img[2] = {c,n,c,n,n}
    img[3] = {c,c,c,n,n}
    img[4] = {c,n,n,c,n}
    img[5] = {c,n,n,n,c}
  elseif char == "l" or char == "L" then
    img[1] = {c,n,n,n,n}
    img[2] = {c,n,n,n,n}
    img[3] = {c,n,n,n,n}
    img[4] = {c,n,n,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "m" or char == "M" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,c,n,c}
    img[3] = {c,n,c,n,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,n,n,n,c}
  elseif char == "n" or char == "N" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,n,n,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,n,n,n,c}
  elseif char == "o" or char == "O" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,n,n,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "p" or char == "P" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {c,n,n,n,n}
    img[5] = {c,n,n,n,n}
  elseif char == "q" or char == "Q" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,c,n,c}
    img[4] = {c,n,n,c,n}
    img[5] = {c,c,c,n,c}
  elseif char == "r" or char == "R" then
    img[1] = {c,c,c,c,n}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,n}
    img[4] = {c,n,n,c,n}
    img[5] = {c,n,n,n,c}
  elseif char == "s" or char == "S" then
    img[1] = {n,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {n,c,c,c,n}
    img[4] = {n,n,n,n,c}
    img[5] = {c,c,c,c,n}
  elseif char == "t" or char == "T" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == "u" or char == "U" then
    img[1] = {c,n,n,n,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,n,n,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "v" or char == "V" then
    img[1] = {c,n,n,n,c}
    img[2] = {c,n,n,n,c}
    img[3] = {n,c,n,c,n}
    img[4] = {n,c,n,c,n}
    img[5] = {n,n,c,n,n}
  elseif char == "w" or char == "W" then
    img[1] = {c,n,n,n,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,c,n,c}
    img[4] = {c,n,c,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "x" or char == "X" then
    img[1] = {c,n,n,n,c}
    img[2] = {n,c,n,c,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,c,n,c,n}
    img[5] = {c,n,n,n,c}
  elseif char == "y" or char == "Y" then
    img[1] = {c,n,n,n,c}
    img[2] = {n,c,n,c,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == "z" or char == "Z" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,n,c,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "1" then
    img[1] = {n,c,c,n,n}
    img[2] = {c,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "2" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {c,n,n,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "3" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,n,n,c}
    img[3] = {n,c,c,c,c}
    img[4] = {n,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "4" then
    img[1] = {c,n,n,n,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {n,n,n,n,c}
    img[5] = {n,n,n,n,c}
  elseif char == "5" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {c,c,c,c,c}
    img[4] = {n,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "6" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,n}
    img[3] = {c,c,c,c,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "7" then
    img[1] = {c,c,c,c,c}
    img[2] = {n,n,n,c,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {c,n,n,n,n}
  elseif char == "8" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "9" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,c,c,c,c}
    img[4] = {n,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "0" then
    img[1] = {c,c,c,c,c}
    img[2] = {c,n,n,n,c}
    img[3] = {c,n,n,n,c}
    img[4] = {c,n,n,n,c}
    img[5] = {c,c,c,c,c}
  elseif char == "!" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == "@" then
    img[1] = {c,c,c,c,n}
    img[2] = {c,n,n,c,n}
    img[3] = {c,n,c,c,n}
    img[4] = {c,n,n,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "#" then
    img[1] = {n,c,n,c,n}
    img[2] = {c,c,c,c,c}
    img[3] = {n,c,n,c,n}
    img[4] = {c,c,c,c,c}
    img[5] = {n,c,n,c,n}
  elseif char == "$" then
    img[1] = {n,c,c,c,c}
    img[2] = {c,n,c,n,n}
    img[3] = {n,c,c,c,n}
    img[4] = {n,n,c,n,c}
    img[5] = {c,c,c,c,n}
  elseif char == "%" then
    img[1] = {c,n,n,n,c}
    img[2] = {n,n,n,c,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {c,n,n,n,c}
  elseif char == "^" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,c,n,c,n}
    img[3] = {c,n,n,n,c}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,n,n,n}
  elseif char == "&" then
    img[1] = {n,c,n,n,n}
    img[2] = {c,n,c,n,n}
    img[3] = {n,c,c,n,c}
    img[4] = {c,n,n,c,n}
    img[5] = {n,c,c,n,c}
  elseif char == "*" then
    img[1] = {c,n,c,n,c}
    img[2] = {n,c,c,c,n}
    img[3] = {c,c,c,c,c}
    img[4] = {n,c,c,c,n}
    img[5] = {c,n,c,n,c}
  elseif char == "(" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,c,n,n,n}
    img[3] = {n,c,n,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == ")" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,n,n,c,n}
    img[3] = {n,n,n,c,n}
    img[4] = {n,n,n,c,n}
    img[5] = {n,n,c,n,n}
  elseif char == "-" then
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,n,n,n}
    img[3] = {n,c,c,c,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,n,n,n}
  elseif char == "_" then
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,n,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {c,c,c,c,c}
  elseif char == "=" then
    img[1] = {n,n,n,n,n}
    img[2] = {c,c,c,c,c}
    img[3] = {n,n,n,n,n}
    img[4] = {c,c,c,c,c}
    img[5] = {n,n,n,n,n}
  elseif char == "+" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {c,c,c,c,c}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == "`" then
    img[1] = {c,n,n,n,n}
    img[2] = {n,c,n,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,n,n,n}
  elseif char == "~" then
    img[1] = {n,n,n,n,n}
    img[2] = {n,c,n,n,n}
    img[3] = {c,n,c,n,c}
    img[4] = {n,n,n,c,n}
    img[5] = {n,n,n,n,n}
  elseif char == "?" then
    img[1] = {n,c,c,c,n}
    img[2] = {c,n,n,n,c}
    img[3] = {n,n,c,c,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == "/" then
    img[1] = {n,n,n,n,c}
    img[2] = {n,n,n,c,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {c,n,n,n,n}
  elseif char == "<" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,c,n,n,n}
    img[3] = {c,n,n,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == ">" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,n,n,c,n}
    img[3] = {n,n,n,n,c}
    img[4] = {n,n,n,c,n}
    img[5] = {n,n,c,n,n}
  elseif char == "," then
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,n,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,c,n,n,n}
    img[5] = {c,n,n,n,n}
  elseif char == "." then
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,n,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {c,n,n,n,n}
  elseif char == ":" then
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,n,n,n}
  elseif char == ";" then
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,c,n,n,n}
  elseif char == "'" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,c,n,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,n,n,n}
  elseif char == "\"" then
    img[1] = {n,n,c,n,c}
    img[2] = {n,c,n,c,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,n,n,n}
  elseif char == "{" then
    img[1] = {n,n,c,c,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,c,n,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,c,c,n}
  elseif char == "[" then
    img[1] = {n,n,c,c,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,c,c,n}
  elseif char == "}" then
    img[1] = {n,c,c,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,n,c,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,c,c,n,n}
  elseif char == "]" then
    img[1] = {n,c,c,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,c,c,n,n}
  elseif char == "|" then
    img[1] = {n,n,c,n,n}
    img[2] = {n,n,c,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,c,n,n}
    img[5] = {n,n,c,n,n}
  elseif char == "\\" then
    img[1] = {c,n,n,n,n}
    img[2] = {n,c,n,n,n}
    img[3] = {n,n,c,n,n}
    img[4] = {n,n,n,c,n}
    img[5] = {n,n,n,n,c}
  else
    img[1] = {n,n,n,n,n}
    img[2] = {n,n,n,n,n}
    img[3] = {n,n,n,n,n}
    img[4] = {n,n,n,n,n}
    img[5] = {n,n,n,n,n}
  end
  for i=1,#img do
    for j=1, #img[i] do
      if img[i][j] ~= "nil" then
        h.set(x + i  - 1, y +j - 1,1, img[i][j])
      end
    end
  end
end
function stringToImg(_str,_color,_x,_y)
  local iterator = 1
  local _str = tostring(_str)
  for i = 1, #_str do
    local _char = _str:sub(i,i)
    x = _x + ((iterator-1)*6)
    charToImg(_char,_color,x,_y)
    iterator = iterator + 1
  end
end

local args={...}
local command = args[1]
if command=="help" then
  term.clear()
  term.setCursorPos(1,1)
  print("This program is a simple api which allows programs to print large characters of text without having to resize the font size.")
  print("Functions:\n  stringToImg(\"Text Here\",color,x,y)\n  charToImg(\"c\",color,x,y)")
  print("Characters are 5x5. x and y point to the top left corner of where the characters should appear")
  print("Supported characters - a-z A-Z 0-9 !@#$%^&*()-=_+[]{};':\"\\|,./<>?~")
  print(" ")
  print("stringToImg(\"See It?\",colors.red,2,h-6) = ")
  local w,h = term.getSize()
  stringToImg("See It?",colors.red,2,h-5)
  print(" ")
end