main.lua

-- EXF: Example Framework -- -- This should make examples easier and more enjoyable to use. --这个东西神奇就神奇在可以把所有的例子都放到一个文件里面调用 --注意需要给文件起名字时候起名格式为 "e"..tostring(0099)..".lua"就是"e"+四位数+".lua"后缀 注意四位数从大于0开始到9999中间不能重复 -- All examples in one application! Yaay! -- -- Updated by Dresenpai

exf = {} exf.current = nil

exf.available = {}

function love.load()

   exf.list = List:new()
   exf.smallfont = love.graphics.newFont(love._vera_ttf,12)
   exf.bigfont = love.graphics.newFont(love._vera_ttf, 24)
   exf.list.font = exf.smallfont

   exf.bigball = love.graphics.newImage("images/love-big-ball.png")

   -- Find available demos.
   local files = love.filesystem.enumerate("")

   for i,v in ipairs(files) do

local unused1, unused2, n = string.find(v, "e(%d%d%d%d)%.lua") if n then table.insert(exf.available, v); local file = love.filesystem.newFile(v, love.file_read) file:open("r") local contents = love.filesystem.read(v,100) local s, e, c = string.find(contents, "Example: ([%a%p ]-)[\r\n]") file:close(file) if not c then c = "Untitled" end local title = exf.getn(n) .. " " .. c exf.list:add(title)

end

   end

   exf.list:done()
   exf.resume()

end

function love.update(dt) end function love.draw() end function love.keypressed(k) end function love.keyreleased(k) end function love.mousepressed(x, y, b) end function love.mousereleased(x, y, b) end

function exf.empty() end

function exf.update(dt)

   exf.list:update(dt)

end

function exf.draw()

   love.graphics.setBackgroundColor(54, 172, 248)

   love.graphics.setColor(255, 255, 255)
   love.graphics.setFont(exf.bigfont)
   love.graphics.print("Example Browser", 50, 50)
   love.graphics.print("Usage", 500, 50)

   love.graphics.setFont(exf.smallfont)
   love.graphics.print("Browse and click on the example you \nwant to run. To return the the example \nselection screen, press escape.\n\nIf you would like to add an \nexample, please contact us! ^.^)/", 500, 80)

   love.graphics.draw(exf.bigball, 800 - 256, 600 - 192)

   exf.list:draw()

end

function exf.keypressed(k) end

function exf.keyreleased(k) end

function exf.mousepressed(x, y, b)

   exf.list:mousepressed(x, y, b)

end

function exf.mousereleased(x, y, b)

   exf.list:mousereleased(x, y, b)

end

function exf.getn(n)

   local s = ""
   n = tonumber(n)
   local r = n
   if r <= 0 then error("Example IDs must be bigger than 0. (Got: " .. r .. ")") end
   if r >= 10000 then error("Example IDs must be less than 10000. (Got: " .. r .. ")") end
   while r < 1000 do
       s = s .. "0"
       r = r * 10
   end
   s = s .. n
   return s

end

function exf.intable(t, e)

   for k,v in ipairs(t) do
       if v == e then return true end
   end
   return false

end

function exf.start(item)

   local e_id = string.sub(item, 1, 4)
   local e_rest = string.sub(item, 5)
   local file = "e" .. e_id .. ".lua"

   if exf.intable(exf.available, file) then
       if not love.filesystem.exists(file) then
          print("Could not load game .. " .. file)
       else

-- Clear all callbacks. love.load = exf.empty love.update = exf.empty love.draw = exf.empty love.keypressed = exf.empty love.keyreleased = exf.empty love.mousepressed = exf.empty love.mousereleased = exf.empty

           love.filesystem.load(file)()

exf.clear()

love.graphics.setCaption(e_rest)

-- Redirect keypress local o_keypressed = love.keypressed love.keypressed = function(k) if k == "escape" then exf.resume() end o_keypressed(k) end

love.load()

       end
   else
       print("Example ".. e_id .. " does not exist.")
   end

end

function exf.clear()

   love.graphics.setBackgroundColor(0,0,0)
   love.graphics.setColor(255, 255, 255)
   love.graphics.setLine(1, "smooth")
   love.graphics.setColorMode("replace")
   love.graphics.setBlendMode("alpha")
   love.mouse.setVisible(true)

end

function exf.resume()

   load = nil
   love.update = exf.update
   love.draw = exf.draw
   love.keypressed = exf.keypressed
   love.keyreleased = exf.keyreleased
   love.mousepressed = exf.mousepressed
   love.mousereleased = exf.mousereleased

   love.mouse.setVisible(true)
   love.graphics.setCaption("LOVE Example Browser")

end

function inside(mx, my, x, y, w, h)

   return mx >= x and mx <= (x+w) and my >= y and my <= (y+h)

end

---

-- List object

---

List = {}

function List:new()

   o = {}
   setmetatable(o, self)
   self.__index = self

   o.items = {}

   o.x = 50
   o.y = 70

   o.width = 400
   o.height = 500

   o.item_height = 23
   o.sum_item_height = 0

   o.bar_size = 20
   o.bar_pos = 0
   o.bar_max_pos = 0
   o.bar_width = 15
   o.bar_lock = nil

   return o

end

function List:add(item)

   table.insert(self.items, item)

end

function List:done()

   self.items.n = #self.items

   -- Recalc bar size.
   self.bar_pos = 0

   local num_items = (self.height/self.item_height)
   local ratio = num_items/self.items.n
   self.bar_size = self.height * ratio
   self.bar_max_pos = self.height - self.bar_size - 3

   -- Calculate height of everything.
   self.sum_item_height = (self.item_height+1) * self.items.n + 2

end

function List:hasBar()

   return self.sum_item_height > self.height

end

function List:getBarRatio()

   return self.bar_pos/self.bar_max_pos

end

function List:getOffset()

   local ratio = self.bar_pos/self.bar_max_pos
   return math.floor((self.sum_item_height-self.height)*ratio + 0.5)

end

function List:update(dt)

   if self.bar_lock then

local dy = math.floor(love.mouse.getY()-self.bar_lock.y+0.5) self.bar_pos = self.bar_pos + dy

if self.bar_pos < 0 then self.bar_pos = 0 elseif self.bar_pos > self.bar_max_pos then self.bar_pos = self.bar_max_pos end

self.bar_lock.y = love.mouse.getY()

   end

end

function List:mousepressed(mx, my, b)

   if self:hasBar() then

if b == "l" then local x, y, w, h = self:getBarRect() if inside(mx, my, x, y, w, h) then self.bar_lock = { x = mx, y = my } end end

local per_pixel = (self.sum_item_height-self.height)/self.bar_max_pos local bar_pixel_dt = math.floor(((self.item_height)*3)/per_pixel + 0.5)

if b == "wd" then self.bar_pos = self.bar_pos + bar_pixel_dt if self.bar_pos > self.bar_max_pos then self.bar_pos = self.bar_max_pos end elseif b == "wu" then self.bar_pos = self.bar_pos - bar_pixel_dt if self.bar_pos < 0 then self.bar_pos = 0 end end

   end

   if b == "l" and inside(mx, my, self.x+2, self.y+1, self.width-3, self.height-3) then

local tx, ty = mx-self.x, my + self:getOffset() - self.y local index = math.floor((ty/self.sum_item_height)*self.items.n) local f = self.items[index+1] if f then exf.start(f) end

   end

end

function List:mousereleased(x, y, b)

   if self:hasBar() then

if b == "l" then self.bar_lock = nil end

   end

end

function List:getBarRect()

   return

self.x+self.width+2, self.y+1+self.bar_pos, self.bar_width-3, self.bar_size end

function List:getItemRect(i) return self.x+2, self.y+((self.item_height+1)*(i-1)+1)-self:getOffset(), self.width-3, self.item_height end

function List:draw()

   love.graphics.setLine(1, "rough")
   love.graphics.setFont(self.font)

   love.graphics.setColor(48, 156, 225)

   local mx, my = love.mouse.getPosition()

   -- Get interval to display.
   local start_i = math.floor( self:getOffset()/(self.item_height+1) ) + 1
   local end_i = start_i+math.floor( self.height/(self.item_height+1) ) + 1
   if end_i > self.items.n then end_i = self.items.n end

   love.graphics.setScissor(self.x, self.y, self.width, self.height)

   -- Items.
   for i = start_i,end_i do

local x, y, w, h = self:getItemRect(i) local hover = inside(mx, my, x, y, w, h)

if hover then love.graphics.setColor(72, 131, 168) else love.graphics.setColor(48, 156, 225) end

love.graphics.rectangle("fill", x, y, w, h)

if hover then love.graphics.setColor(255, 255, 255) else love.graphics.setColor(197, 232, 255) end

local e_id = string.sub(self.items[i], 1, 5) local e_rest = string.sub(self.items[i], 5)

love.graphics.print(e_id, x+10, y+2) --Updated y placement -- Used to change position of Example IDs love.graphics.print(e_rest, x+50, y+2) --Updated y placement -- Used to change position of Example Titles

   end

   love.graphics.setScissor()

   -- Bar.
   if self:hasBar() then

local x, y, w, h = self:getBarRect() local hover = inside(mx, my, x, y, w, h)

if hover or self.bar_lock then love.graphics.setColor(72, 131, 168) else love.graphics.setColor(48, 156, 225) end love.graphics.rectangle("fill", x, y, w, h)

   end

   -- Border.
   love.graphics.setColor(72, 131, 168)
   love.graphics.rectangle("line", self.x+self.width, self.y, self.bar_width, self.height)
   love.graphics.rectangle("line", self.x, self.y, self.width, self.height)

end