Main.lua

LOVECODIFYHUD = false
if dofile ~= nil then
   dofile("loveCodify.lua")
   dofile("HersheyCodea/Romansimplex.lua")
end

-- Just a "Main" tab for Codea to demo the class
-- DON'T PANIC!
-- You don't need any of this - all of the Font is in the class.
-- This is just a few examples to show you how you might call it.

function setup()
   -- instantiate the font; this is the only "required" line. 
   f=HersheyRomanSimplex()
   -- initialize some variables for the demos in draw()
   frame=1
   offset = 0
   stroke_width=2
   iparameter("stroke_width", 1, 5, stroke_width)
   speed=2
   parameter("speed", 0, 8, speed)
   x=50
   text = "  Why do you necessarily have to be wrong just because "
       .. "a few million people think you are?  "
   bannerscale= 2
   parameter("bannerscale", 0, 10, bannerscale)
   bannerlength = f:stringwidth(text, bannerscale)
   spintxt = "Bananas!"
   spinscale = 1.5
   spinwidth = f:stringwidth(spintxt, spinscale)
   rf = 0.03 -- rainbow frequency
   lab = f:addlabel("Don't Panic!", 100, 400, 1, 45, { 255, 255, 0, 255 })
   lab2 = f:addlabel{ txt="TOUCH SCREEN FOR TOP FUN", x=10, y=700, size=0.5, rot=0, color={0, 255, 255, 255} }
   -- setup for particle fountain
   grav=0.7
   yimpulse=5
   ximpulse=20
    k=Keyboard()
end

function draw()
   background(0, 0, 0, 255) -- clear screen
   frame = frame + 1 -- used by lots of things
   stroke(226, 235, 234, 255)
   noSmooth()
   strokeWidth(stroke_width)
   lineCapMode(ROUND)

    k:draw()
   
   -- simple text printing
   f:drawstring("Hershey Roman Simplex " .. frame, 150, 300)
   
   -- smooth scroll
   stroke(140, 147, 215, 255)
   local bl = f:drawstring(text .. text ,
                           x - offset, HEIGHT/2,
                           bannerscale) /2
   offset = offset + speed
   if (offset > bl) then offset = 0 end

   -- changing size
   fps = string.format("%.2f", frame / ElapsedTime)
   f:drawstring(fps .. " fps", 500, 600, math.sin(frame / 94))

   -- rainbow!
   stroke(math.sin(rf*frame)*127 + 128,
          math.sin(rf*frame + 2)*127 + 128,
          math.sin(rf*frame + 4)*127 + 128, 255)
    f:drawstring("Daddy loves Gracie and Maddy", 200, 25)
    
   -- spinner (using external positioning)
   pushMatrix()
   translate(200, 550)
   rotate(frame*2.5)
   translate(0-spinwidth/2, -10)
   stroke(255, 252, 0, 255)
   f:drawstring(spintxt, 0, 0, spinscale)
   popMatrix()

   -- label
   lab.x = math.sin(frame/300) * (WIDTH/3) + WIDTH/2
   lab.y = math.cos(frame/300) * (HEIGHT/3) + HEIGHT/2
   lab.rot = math.sin(frame/300) * 5
   lab.color = { 255, 40, 40, math.sin(frame/3) * 100 + 155 }
   f:draw()
   if (CurrentTouch.state == 2) then
      f:addlabel{ txt=string.char(33+math.random(92)), x=CurrentTouch.x, y=CurrentTouch.y, rot=math.random(360),
                  color={ math.random(128)+127, math.random(128)+127, math.random(128)+127, 255}, rot=math.random(360),
                  yv=math.random(yimpulse), xv=math.random(ximpulse)-ximpulse/2, rv=(math.random() - 0.5) / 10 }
   end
   local k,v
   for k,v in pairs(f.labels) do
      if (v.xv) then -- only if it's a particle
         v.x = v.x + v.xv
         v.y = v.y + v.yv
         v.yv = v.yv - grav
         v.rot = v.rot + v.rv
         if (v.y < -20) then -- offscreen
            f.labels[k]=nil
         end
      end
   end
end