-- horizontal
prof(function()
 line(0,0,90,0,2)
end,function()
 rect(0,0,90,0,2)
end,function()
 rectfill(0,0,90,0,2)
end)
--  9+10=19 (lua+sys)
--  9+10=19 (lua+sys)
--  9+10=19 (lua+sys)

-- vertical
prof(function()
 line(0,0,0,90,2)
end,function()
 rect(0,0,0,90,2)
end,function()
 rectfill(0,0,0,90,2)
end)
--  9+10=19 (lua+sys)
--  9+22=31 (lua+sys)
--  9+10=19 (lua+sys)

function one(fn,opts)
  local fmt=function(n)
    -- leftpad a number to 2 columns
    return n<9.9 and " "..n or n
  end

  local dat=prof_one(fn,opts)
  printh(fmt(dat.lua)
    .."+"
    ..fmt(dat.sys)
    .."="
    ..fmt(dat.total)
    .." (lua+sys)")
end

function hline(x) line(0,0,x,0,2) end
function hrect(x) rect(0,0,x,0,2) end
function hrfil(x) rectfill(0,0,x,0,2) end
function vline(x) line(0,0,0,x,2) end
function vrect(x) rect(0,0,0,x,2) end
function vrfil(x) rectfill(0,0,0,x,2) end

printh"--"
for i=0,127 do
 printh(i..": ")
 one(hline,{locals={i}})
 one(hrect,{locals={i}})
 one(hrfil,{locals={i}})
 one(vline,{locals={i}})
 one(vrect,{locals={i}})
 one(vrfil,{locals={i}})
end

--[[
...
14: 
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
15: 
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
16: 
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 4=13 (lua+sys)
 9+ 2=11 (lua+sys)
17: 
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 2=11 (lua+sys)
 9+ 4=13 (lua+sys)
 9+ 2=11 (lua+sys)
...
]]

rect:
    when h is 1, sys cost is:
        max(1,w\16)*2 (agrees with CPU wiki page)
    when w is 1, sys cost is:
        max(1,(h-1)\8)*2 (disagrees? unsure)
line and rectfill
    a,b = max(w,h),min(w,h)
    when b is 1, sys cost is:
        max(1,a\16)*2 (agrees with CPU page for rectfill, but not line(?))