I finally managed to finish my entry, even if I don't really hope to win, since my game is really basic... This is a FreeCell game, written entirely on-calc in 3 days (OCLua for code and nSpaint for images). Tomorrow, I'll go on holiday and I won't be able to go to Internet for 2 weeks, so I really had to finish that today. (It's almost midnight in France...)
It's still quite easy to cheat... You just have to 1. open the page sorter 2. cut (Ctrl+X) the Lua app 3. add a math editor 4. change your var 5. paste the Lua app
EDIT : I did not see the last part with on.save() and on.restore()... It makes my solution useless
Transparency is impossible... A pixel can only be 0% transparent or 100%transparent (with ti.images). By the way, when you use the erase tool, the pixel become transparent, but as the background is white, it looks like the pixel is white.
And for animations, ti.images don't support that...
--MENU function menuNew() on.charIn("N") end function menuOpen() on.charIn("O") end function menuSave() on.charIn("S") end function menuZIn() on.charIn("+") end function menuZOut() on.charIn("-") end function menuDraw() on.charIn("d") end function menuPaint() on.charIn("p") end function menuErase() on.charIn("e") end function menuCHex() on.charIn("h") end function menuCSel() on.charIn("s") end
function mathTools.base10to2(n) local str str="" if n~=0 then while n~=1 do str=str..tostring(n%2) n=math.floor(n/2) end str=str..tostring(n%2) return string.reverse(str) else return "0" end end
function mathTools.base2to10(n) local num = 0 local ex = string.len(n) - 1 local l = 0 l = ex + 1 for i = 1, l do b = string.sub(n, i, i) if b == "1" then num = num + 2^ex end ex = ex - 1 end return num end
function mathTools.int2Hex(int) if int<10 then return tostring(int) else if int==10 then return "A" elseif int==11 then return "B" elseif int==12 then return "C" elseif int==13 then return "D" elseif int==14 then return "E" elseif int==15 then return "F" end end end
--MISCELLANEOUS
function width() return platform.window:width() end function height() return platform.window:height() end function refresh() platform.window:invalidate() end
function strch(str,ch) local test test=nil for i=1,string.len(str),1 do if string.sub(str,i,i)==ch then test=1 end end return test end
function saveFile() if rqstr=="" then status="error" errtype="Please type a name" elseif strch("0123456789",string.sub(rqstr,1,1)) then status="error" errtype="Invalid name" else imgString=imgTools.table2img() var.store(rqstr,imgString) imgName=rqstr changedMark="" end end
function loadFile() local test test=var.recall(rqstr) if not test then status="error" errtype="File does not exist" elseif type(test)~="string" then status="error" errtype="Invalid file" else imgZoom=1 xpos=1 ypos=1 tool=nil changedMark="" imgString=test imgTools.img2table(imgString) imgName=rqstr end end
function newFile() imgWidth=tempVarWidth imgHeight=tonumber(rqstr) imgZoom=1 xpos=1 ypos=1 tool=nil changedMark="" imgName="unsaved" imgTable={} for i=1,imgHeight do imgTable[i]={} for j=1,imgWidth do imgTable[i][j]={0,0,0,0} end end end
function loadHexColor() local isHex,tmptable isHex=1 tmptable={} if string.len(rqstr)==6 then for i=1,6,1 do currentch=string.sub(rqstr,i,i) if strch("0123456789",currentch) then tmptable[i]=tonumber(currentch) elseif strch("Aa",currentch) then tmptable[i]=10 elseif strch("Bb",currentch) then tmptable[i]=11 elseif strch("Cc",currentch) then tmptable[i]=12 elseif strch("Dd",currentch) then tmptable[i]=13 elseif strch("Ee",currentch) then tmptable[i]=14 elseif strch("Ff",currentch) then tmptable[i]=15 else isHex=nil end end else isHex=nil end if isHex then color={tmptable[1]*16+tmptable[2],tmptable[3]*16+tmptable[4],tmptable[5]*16+tmptable[6]} else status="error" errtype="Invalid hexadecimal" end end
function imgTools.getPixel(byte1,byte2) local str2 str2=imgTools.addZeros(mathTools.base10to2(tonumber(byte2)),8)..imgTools.addZeros(mathTools.base10to2(tonumber(byte1)),8) return {tonumber(string.sub(str2,1,1)),mathTools.base2to10(string.sub(str2,2,6)),mathTools.base2to10(string.sub(str2,7,11)),mathTools.base2to10(string.sub(str2,12,16))} end
function imgTools.getSize(img) imgWidth=mathTools.base2to10(mathTools.base10to2(tonumber(string.sub(img,10,12)..string.sub(img,7,9)..string.sub(img,4,6)..string.sub(img,1,3)))) imgHeight=mathTools.base2to10(mathTools.base10to2(tonumber(string.sub(img,22,24)..string.sub(img,19,21)..string.sub(img,16,18)..string.sub(img,13,15)))) end
function imgTools.addZeros(str,strSize) return string.rep("0",strSize-string.len(str))..str end
function imgTools.convertChars(img) local finished,img2,index index=1 img2="" finished=nil while not finished do if string.sub(img,index,index)~=[[\]] then img2=img2..imgTools.addZeros(tostring(string.byte(string.sub(img,index,index))),3) index=index+1 else img2=img2..string.sub(img,index+1,index+3) index=index+4 end if index>string.len(img) then finished=1 end end return img2 end
function imgTools.generateHeader() local binaryHeader,header binaryHeader={} binaryHeader[1]=imgTools.addZeros(mathTools.base10to2(imgWidth),32) binaryHeader[2]=imgTools.addZeros(mathTools.base10to2(imgHeight),32) binaryHeader[3]=imgTools.addZeros(mathTools.base10to2(imgWidth*2),32) header={"","",""} for i=1,3 do for j=3,0,-1 do header[i]=header[i]..imgTools.addZeros(tostring(mathTools.base2to10(string.sub(binaryHeader[i],8*j+1,8*(j+1)))),3) end end return header[1]..header[2].."000000000000"..header[3].."016000001000" end
function imgTools.convertPixel(pixel) local str str=tostring(pixel[1])..imgTools.addZeros(mathTools.base10to2(pixel[2]),5)..imgTools.addZeros(mathTools.base10to2(pixel[3]),5)..imgTools.addZeros(mathTools.base10to2(pixel[4]),5) return imgTools.addZeros(tostring(mathTools.base2to10(string.sub(str,9,16))),3)..imgTools.addZeros(tostring(mathTools.base2to10(string.sub(str,1,8))),3) end
function imgTools.addSlashes(str) local finished,str2,index finished=nil str2=[[\]]..str index=1 while not finished do index=index+4 if index>string.len(str2) then finished=1 else str2=string.sub(str2,1,index-1)..[[\]]..string.sub(str2,index) end end return str2 end
function imgTools.img2table(str) local index str2=imgTools.convertChars(str) imgTable={} imgTools.getSize(str2) for raw=1,imgHeight do imgTable[raw]={} for column=1,imgWidth do index=(column-1)*6+61+(raw-1)*6*imgWidth imgTable[raw][column]=imgTools.getPixel(string.sub(str2,index,index+2),string.sub(str2,index+3,index+5)) end end end
function imgTools.drawTable(gc,x,y) gc:setPen("thin","dashed") gc:drawRect(x-1,y-1,imgWidth*imgZoom+1,imgHeight*imgZoom+1) gc:setPen("thin","smooth") for raw=1,imgHeight do for column=1,imgWidth do if imgTable[raw][column][1]==1 then gc:setColorRGB(imgTable[raw][column][2]*8,imgTable[raw][column][3]*8,imgTable[raw][column][4]*8) gc:fillRect((column-1)*imgZoom+x,(raw-1)*imgZoom+y,imgZoom,imgZoom) gc:setColorRGB(0,0,0) end end end end
function imgTools.table2img() local imgStr imgStr=imgTools.generateHeader() for i=1,imgHeight do for j=1,imgWidth do imgStr=imgStr..imgTools.convertPixel(imgTable[i][j]) end end return imgTools.addSlashes(imgStr) end
--EVENTS function on.backspaceKey() if status=="requesting" then rqstr=string.sub(rqstr,1,string.len(rqstr)-1) platform.window:invalidate() end end
function on.charIn(ch) if status=="drawing" then if ch=="+" and imgZoom<8 then imgZoom=imgZoom*2 elseif ch=="-" and imgZoom>1 then imgZoom=imgZoom/2 elseif ch=="d" then tool="draw" elseif ch=="e" then tool="erase" elseif ch=="N" then status="requesting" rqstr="" requested="Image width" elseif ch=="O" then status="requesting" rqstr="" requested="File name" elseif ch=="S" then if not imgTable then status="error" errtype="No opened file" else status="requesting" rqstr=imgName requested="Save as" end elseif ch=="s" then status="selectingColor" selColor=1 newColor={math.floor(color[1]/5)*5,math.floor(color[2]/5)*5,math.floor(color[3]/5)*5} elseif ch=="h" then status="requesting" rqstr="" requested="Hex code" end elseif status=="requesting" and string.len(rqstr)<10 and strch("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",ch) then rqstr=rqstr..ch end refresh() end
function on.escapeKey() if status=="drawing" then tool=nil else status="drawing" end refresh() end
function on.enterKey() if status=="drawing" then if tool=="draw" then imgTable[ypos][xpos]={1,math.floor(color[1]/8),math.floor(color[2]/8),math.floor(color[3]/8)} changedMark="*" elseif tool=="erase" then imgTable[ypos][xpos][1]=0 changedMark="*" end elseif status=="selectingColor" then color=newColor status="drawing" elseif status=="requesting" then status="drawing" if requested=="Hex code" then loadHexColor() elseif requested=="Image width" then if tonumber(rqstr) and tonumber(rqstr)~=0 then tempVarWidth=tonumber(rqstr) status="requesting" requested="Image height" rqstr="" else status="error" errtype="Invalid number" end elseif requested=="Image height" then if tonumber(rqstr) and tonumber(rqstr)~=0 then if tonumber(rqstr)*tempVarWidth>3000 then status="error" errtype="Overflow (3000 px max)" else newFile() end else status="error" errtype="Invalid number" end elseif requested=="File name" then rqstr=string.lower(rqstr) loadFile() elseif requested=="Save as" then rqstr=string.lower(rqstr) saveFile() end elseif status=="error" then status="drawing" end refresh() end
function on.arrowKey(ar) if status=="drawing" and tool and imgTable then if ar=="up" and ypos>1 then ypos=ypos-1 end if ar=="down" and ypos<imgHeight then ypos=ypos+1 end if ar=="left" and xpos>1 then xpos=xpos-1 end if ar=="right" and xpos<imgWidth then xpos=xpos+1 end elseif status=="selectingColor" then if ar=="up" then selColor=selColor-1 elseif ar=="down" then selColor=selColor+1 elseif ar=="right" and newColor[selColor]<251 then newColor[selColor]=newColor[selColor]+5 elseif ar=="left" and newColor[selColor]>4 then newColor[selColor]=newColor[selColor]-5 end if selColor>3 then selColor=1 elseif selColor<1 then selColor=3 end end refresh() end
--DRAWING function drawColorSelect(gc) gc:setColorRGB(200,200,255) gc:fillRect(width()/2-75,height()/2-50,150,100) gc:setColorRGB(0,0,0) gc:fillRect(width()/2-75,height()/2-50,150,15) gc:setPen("thin","smooth") gc:drawRect(width()/2-75,height()/2-50,150,100) gc:setFont("sansserif","r",10) gc:setColorRGB(255,255,255) gc:drawString("Select your color",width()/2-73,height()/2-53,"top") gc:setColorRGB(0,0,0) gc:drawString("Red :",width()/2-73,height()/2-35,"top") gc:drawString("Green :",width()/2-73,height()/2-20,"top") gc:drawString("Blue :",width()/2-73,height()/2-5,"top") for i=0,63 do gc:setColorRGB(i*4,newColor[2],newColor[3]) gc:fillRect(width()/2-23+i,height()/2-30,1,10) gc:setColorRGB(newColor[1],i*4,newColor[3]) gc:fillRect(width()/2-23+i,height()/2-15,1,10) gc:setColorRGB(newColor[1],newColor[2],i*4) gc:fillRect(width()/2-23+i,height()/2,1,10) end gc:setColorRGB(0,0,0) gc:drawRect(width()/2-23,height()/2-46+selColor*15,64,11) for i=1,3 do gc:drawString(tostring(newColor[i]),width()/2+52,height()/2-50+i*15,"top") gc:fillRect(width()/2-24+newColor[i]/4,height()/2-47+i*15,3,14) end gc:setColorRGB(color[1],color[2],color[3]) gc:fillRect(width()/2-70,height()/2+20,30,20) gc:setColorRGB(newColor[1],newColor[2],newColor[3]) gc:fillRect(width()/2-28,height()/2+20,30,20) gc:setColorRGB(0,0,0) gc:drawRect(width()/2-70,height()/2+20,30,20) gc:drawRect(width()/2-28,height()/2+20,30,20) gc:drawString(mathTools.int2Hex(math.floor(newColor[1]/16))..mathTools.int2Hex(newColor[1]%16)..mathTools.int2Hex(math.floor(newColor[2]/16))..mathTools.int2Hex(newColor[2]%16)..mathTools.int2Hex(math.floor(newColor[3]/16))..mathTools.int2Hex(newColor[3]%16),width()/2+20,height()/2+20,"top") gc:drawString("Old New",width()/2-65,height()/2+21,"top") end
function drawRequest(gc,msg) gc:setColorRGB(200,200,255) gc:fillRect(width()/2-75,height()/2-25,150,50) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(width()/2-75,height()/2-25,150,50) gc:fillRect(width()/2-75,height()/2-25,150,15) gc:setFont("sansserif","r",10) gc:setColorRGB(255,255,255) gc:drawString(msg,width()/2-70,height()/2-28,"top") gc:setColorRGB(0,0,0) gc:drawRect(width()/2-70,height()/2,140,20) gc:drawString(rqstr,width()/2-65,height()/2,"top") end
function drawError(gc) gc:setColorRGB(200,200,255) gc:fillRect(width()/2-75,height()/2-20,150,40) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(width()/2-75,height()/2-20,150,40) gc:fillRect(width()/2-75,height()/2-20,150,15) gc:setFont("sansserif","r",10) gc:setColorRGB(255,255,255) gc:drawString("Error",width()/2-73,height()/2-23,"top") gc:setColorRGB(0,0,0) gc:drawString(errtype,width()/2-70,height()/2-5,"top") end
function drawCursor(gc) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect((xpos-1)*imgZoom+29,(ypos-1)*imgZoom+29,imgZoom+1,imgZoom+1) gc:setColorRGB(255,255,255) gc:drawRect((xpos-1)*imgZoom+30,(ypos-1)*imgZoom+30,imgZoom-1,imgZoom-1) end
function drawTool(gc) local id if not tool then id=1 elseif tool=="draw" then id=2 elseif tool=="erase" then id=3 end if id then gc:drawImage(toolsSprites[id],0,15) end end
function on.paint(gc) gc:setColorRGB(color[1],color[2],color[3]) gc:fillRect(0,0,20,15) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(0,0,19,15) drawTool(gc) gc:setFont("sansserif","r",10) if imgTable then gc:drawString(changedMark..imgName.." - "..tostring(imgWidth).."x"..tostring(imgHeight).." ("..tostring(imgZoom*100).."%)",25,0,"top") else gc:drawString("Open or create a file",25,0,"top") end if imgTable then imgTools.drawTable(gc,30,30) if tool then drawCursor(gc) end end if status=="selectingColor" then drawColorSelect(gc) elseif status=="requesting" then drawRequest(gc,requested) elseif status=="error" then drawError(gc) end gc:setColorRGB(0,0,0) gc:setFont("sansserif","r",8) gc:drawString("Lua nSpaint - Par Loic Pujet",10,height()-12,"top") end
New features ! -Creating new images -Nice sprites for tools -When a file is modified but not saved, there's a '*' before its name -The program now shows the image size
Now it can be used as a sprite creator for on-calc Lua, but it still lacks scrolling (if you want very large sprites).
I just have a small suggestion that could possibly be added later. There's a boolean that returns true if the calc is color, but if it's greyscale it returns false, you could make only one slider for the grey level in the color selector.
Even if we can't see the color, I think that it's useful to create RGB pictures on greyscale calcs (because we can send pictures/lua scripts to CX calcs)
--MENU function menuNew() on.charIn("N") end function menuOpen() on.charIn("O") end function menuSave() on.charIn("S") end function menuZIn() on.charIn("+") end function menuZOut() on.charIn("-") end function menuDraw() on.charIn("d") end function menuPaint() on.charIn("p") end function menuErase() on.charIn("e") end function menuCHex() on.charIn("h") end function menuCSel() on.charIn("s") end
function mathTools.base10to2(n) local str str="" if n~=0 then while n~=1 do str=str..tostring(n%2) n=math.floor(n/2) end str=str..tostring(n%2) return string.reverse(str) else return "0" end end
function mathTools.base2to10(n) local num = 0 local ex = string.len(n) - 1 local l = 0 l = ex + 1 for i = 1, l do b = string.sub(n, i, i) if b == "1" then num = num + 2^ex end ex = ex - 1 end return num end
function mathTools.int2Hex(int) if int<10 then return tostring(int) else if int==10 then return "A" elseif int==11 then return "B" elseif int==12 then return "C" elseif int==13 then return "D" elseif int==14 then return "E" elseif int==15 then return "F" end end end
--MISCELLANEOUS
function width() return platform.window:width() end function height() return platform.window:height() end function refresh() platform.window:invalidate() end
function strch(str,ch) local test test=nil for i=1,string.len(str),1 do if string.sub(str,i,i)==ch then test=1 end end return test end
function saveFile() if rqstr=="" then status="error" errtype="Please type a name" elseif strch("0123456789",string.sub(rqstr,1,1)) then status="error" errtype="Invalid name" else var.store(rqstr,imgString) imgName=rqstr end end
function loadFile() local test test=var.recall(rqstr) if not test then status="error" errtype="File does not exist" elseif type(test)~="string" then status="error" errtype="Invalid file" else imgZoom=1 imgString=test imgTools.img2table(imgString) imgName=rqstr end end
function loadHexColor() local isHex,tmptable isHex=1 tmptable={} if string.len(rqstr)==6 then for i=1,6,1 do currentch=string.sub(rqstr,i,i) if strch("0123456789",currentch) then tmptable[i]=tonumber(currentch) elseif strch("Aa",currentch) then tmptable[i]=10 elseif strch("Bb",currentch) then tmptable[i]=11 elseif strch("Cc",currentch) then tmptable[i]=12 elseif strch("Dd",currentch) then tmptable[i]=13 elseif strch("Ee",currentch) then tmptable[i]=14 elseif strch("Ff",currentch) then tmptable[i]=15 else isHex=nil end end else isHex=nil end if isHex then color={tmptable[1]*16+tmptable[2],tmptable[3]*16+tmptable[4],tmptable[5]*16+tmptable[6]} else status="error" errtype="Invalid hexadecimal" end end
function imgTools.getPixel(byte1,byte2) local str2 str2=imgTools.eightChars(mathTools.base10to2(tonumber(byte2)))..imgTools.eightChars(mathTools.base10to2(tonumber(byte1))) return {tonumber(string.sub(str2,1,1)),mathTools.base2to10(string.sub(str2,2,6)),mathTools.base2to10(string.sub(str2,7,11)),mathTools.base2to10(string.sub(str2,12,16))} end
function imgTools.getSize(img) imgWidth=mathTools.base2to10(mathTools.base10to2(tonumber(string.sub(img,10,12)..string.sub(img,7,9)..string.sub(img,4,6)..string.sub(img,1,3)))) imgHeight=mathTools.base2to10(mathTools.base10to2(tonumber(string.sub(img,22,24)..string.sub(img,19,21)..string.sub(img,16,18)..string.sub(img,13,15)))) end
function imgTools.threeNumbers(nb) if string.len(tostring(nb))==1 then return "00"..tostring(nb) elseif string.len(tostring(nb))==2 then return "0"..tostring(nb) else return tostring(nb) end end
function imgTools.eightChars(str) return string.rep("0",8-string.len(str))..str end
function imgTools.convertChars(img) local finished,img2,index index=1 img2="" finished=nil while not finished do if string.sub(img,index,index)~=[[\]] then img2=img2..imgTools.threeNumbers(string.byte(string.sub(img,index,index))) index=index+1 else img2=img2..string.sub(img,index+1,index+3) index=index+4 end if index>string.len(img) then finished=1 end end return img2 end
function imgTools.img2table(str) local index str2=imgTools.convertChars(str) imgTable={} imgTools.getSize(str2) for raw=1,imgHeight do imgTable[raw]={} for column=1,imgWidth do index=(column-1)*6+61+(raw-1)*6*imgWidth imgTable[raw][column]=imgTools.getPixel(string.sub(str2,index,index+2),string.sub(str2,index+3,index+5)) end end end
function imgTools.drawTable(gc,x,y) for raw=1,imgHeight do for column=1,imgWidth do if imgTable[raw][column][1]==1 then gc:setColorRGB(imgTable[raw][column][2]*8,imgTable[raw][column][3]*8,imgTable[raw][column][4]*8) gc:fillRect((column-1)*imgZoom+x,(raw-1)*imgZoom+y,imgZoom,imgZoom) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(x-1,y-1,imgWidth*imgZoom+1,imgHeight*imgZoom+1) end end end end
--EVENTS function on.backspaceKey() if status=="requesting" then rqstr=string.sub(rqstr,1,string.len(rqstr)-1) platform.window:invalidate() end end
function on.charIn(ch) if status=="drawing" then if ch=="+" and imgZoom<8 then imgZoom=imgZoom*2 elseif ch=="-" and imgZoom>1 then imgZoom=imgZoom/2 elseif ch=="O" then status="requesting" rqstr="" requested="File name" elseif ch=="S" then if not imgString then status="error" errtype="No opened file" else status="requesting" rqstr=imgName requested="Save as" end elseif ch=="s" then status="selectingColor" selColor=1 newColor={math.floor(color[1]/5)*5,math.floor(color[2]/5)*5,math.floor(color[3]/5)*5} elseif ch=="h" then status="requesting" rqstr="" requested="Hex code" end elseif status=="requesting" and string.len(rqstr)<10 and strch("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789",ch) then rqstr=rqstr..ch end refresh() end
function on.escapeKey() status="drawing" refresh() end
function on.enterKey() if status=="selectingColor" then color=newColor status="drawing" elseif status=="requesting" then status="drawing" if requested=="Hex code" then loadHexColor() elseif requested=="File name" then rqstr=string.lower(rqstr) loadFile() elseif requested=="Save as" then rqstr=string.lower(rqstr) saveFile() end elseif status=="error" then status="drawing" end refresh() end
function on.arrowKey(ar) if status=="selectingColor" then if ar=="up" then selColor=selColor-1 elseif ar=="down" then selColor=selColor+1 elseif ar=="right" and newColor[selColor]<251 then newColor[selColor]=newColor[selColor]+5 elseif ar=="left" and newColor[selColor]>4 then newColor[selColor]=newColor[selColor]-5 end if selColor>3 then selColor=1 elseif selColor<1 then selColor=3 end end refresh() end Drawing.lua
--DRAWING function drawColorSelect(gc) gc:setColorRGB(200,200,255) gc:fillRect(width()/2-75,height()/2-50,150,100) gc:setColorRGB(0,0,0) gc:fillRect(width()/2-75,height()/2-50,150,15) gc:setPen("thin","smooth") gc:drawRect(width()/2-75,height()/2-50,150,100) gc:setFont("sansserif","r",10) gc:setColorRGB(255,255,255) gc:drawString("Select your color",width()/2-73,height()/2-53,"top") gc:setColorRGB(0,0,0) gc:drawString("Red :",width()/2-73,height()/2-35,"top") gc:drawString("Green :",width()/2-73,height()/2-20,"top") gc:drawString("Blue :",width()/2-73,height()/2-5,"top") for i=0,63 do gc:setColorRGB(i*4,newColor[2],newColor[3]) gc:fillRect(width()/2-23+i,height()/2-30,1,10) gc:setColorRGB(newColor[1],i*4,newColor[3]) gc:fillRect(width()/2-23+i,height()/2-15,1,10) gc:setColorRGB(newColor[1],newColor[2],i*4) gc:fillRect(width()/2-23+i,height()/2,1,10) end gc:setColorRGB(0,0,0) gc:drawRect(width()/2-23,height()/2-46+selColor*15,64,11) for i=1,3 do gc:drawString(tostring(newColor[i]),width()/2+52,height()/2-50+i*15,"top") gc:fillRect(width()/2-24+newColor[i]/4,height()/2-47+i*15,3,14) end gc:setColorRGB(color[1],color[2],color[3]) gc:fillRect(width()/2-70,height()/2+20,30,20) gc:setColorRGB(newColor[1],newColor[2],newColor[3]) gc:fillRect(width()/2-28,height()/2+20,30,20) gc:setColorRGB(0,0,0) gc:drawRect(width()/2-70,height()/2+20,30,20) gc:drawRect(width()/2-28,height()/2+20,30,20) gc:drawString(mathTools.int2Hex(math.floor(newColor[1]/16))..mathTools.int2Hex(newColor[1]%16)..mathTools.int2Hex(math.floor(newColor[2]/16))..mathTools.int2Hex(newColor[2]%16)..mathTools.int2Hex(math.floor(newColor[3]/16))..mathTools.int2Hex(newColor[3]%16),width()/2+20,height()/2+20,"top") gc:drawString("Old New",width()/2-65,height()/2+21,"top") end
function drawRequest(gc,msg) gc:setColorRGB(200,200,255) gc:fillRect(width()/2-75,height()/2-25,150,50) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(width()/2-75,height()/2-25,150,50) gc:fillRect(width()/2-75,height()/2-25,150,15) gc:setFont("sansserif","r",10) gc:setColorRGB(255,255,255) gc:drawString(msg,width()/2-70,height()/2-28,"top") gc:setColorRGB(0,0,0) gc:drawRect(width()/2-70,height()/2,140,20) gc:drawString(rqstr,width()/2-65,height()/2,"top") end
function drawError(gc) gc:setColorRGB(200,200,255) gc:fillRect(width()/2-75,height()/2-20,150,40) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(width()/2-75,height()/2-20,150,40) gc:fillRect(width()/2-75,height()/2-20,150,15) gc:setFont("sansserif","r",10) gc:setColorRGB(255,255,255) gc:drawString("Error",width()/2-73,height()/2-23,"top") gc:setColorRGB(0,0,0) gc:drawString(errtype,width()/2-70,height()/2-5,"top") end
function on.paint(gc) gc:setColorRGB(color[1],color[2],color[3]) gc:fillRect(0,0,20,15) gc:setColorRGB(0,0,0) gc:setPen("thin","smooth") gc:drawRect(0,0,20,15) gc:setFont("sansserif","r",10) gc:drawString(imgName.." ("..tostring(imgZoom*100).."%)",25,0,"top") if imgTable then imgTools.drawTable(gc,30,30) end if status=="selectingColor" then drawColorSelect(gc) elseif status=="requesting" then drawRequest(gc,requested) elseif status=="error" then drawError(gc) end gc:setColorRGB(0,0,0) gc:setFont("sansserif","r",8) gc:drawString("Lua Paintbrush - Par Loic Pujet",10,height()-12,"top") end
can you please try to make a drawing-program for the NI NSPIRE CX CAS?
So I tried that.
It already features : -Opening and saving ti.images -Zoom in and zoom out -A nice color selecting window -Error messages -Transparency support
And it will feature : -Creating blanks images Done -Pixel-per-pixel drawing Done -Lines, squares and circles drawing Done -Text -Opening and saving BMP files (maybe)
The script is almost 500 lines long. To open an image, it has to be saved in a string in a "Calculator" application. I had to rewrite TI.images loading and displaying, because in Lua, "\000" can't be saved in a string. Thanks to Inspired Lua for this page ! It was supposed to be called Paintbrush, but Google told me that a MacOS software is already called "Paintbrush". Do you have any suggestions ?
EDIT 08/07/2011 : Now you can fill and erase pixels.
EDIT 30/10/2011 : To see the last version, go HERE
The last version is nSpaint 0.7. It features :
-Two editors : nSpaint for images and nAnima for animations -A lot of tools : scroll, draw, erase, fill, pick, circle, line, rectangle, fill circle, fill rectangle. -A native-like GUI (in nAnima too) -Save, open or create images of any dimensions -Transparency support -A file manager, which can be used to delete images (in nAnima too) -A tool to copy the current image code to the clipboard (really useful to Lua developpers!) -A tool to paste an image if there's one in the clipboard -Undo and redo! (5 times max) -A option to erase all the image -A nice color selecter -Tools to flip/rotate the image -A filter which replace a color with another one -A filter which erases a color -Two filters to increase and decrease brightness -A 'help' window for each tool -A splash screen (in nAnima too) -You can move the cursor with the mouse -The image is automatically moved when the cursor goes off the screen -The cursor is moved when you scroll
function width() return platform.window:width() end function height() return platform.window:height() end function refresh() platform.window:invalidate() end
function generateMaze() local tempMap,mazePieces,currentRow tempMap={} tempMap[1]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1} tempMap[30]={1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1} mazePieces={} for i=1,16 do mazePieces[i]=pieces[math.random(2,6)] end mazePieces[math.random(2,16)]=pieces[1] for i=1,28 do currentRow={1} currentRow[30]=1 for j=1,28 do currentRow[j+1]=mazePieces[math.floor((j-1)/7)+math.floor((i-1)/7)*4+1][(i-1)%7+1][(j-1)%7+1] end tempMap[i+1]=currentRow end map1=tempMap end
function sqrt2(a) x=1 y=0.5*(1+a) while math.abs(y-x)>0.001 do x=y y=0.5*(x+a/x) end return y end
function exp2(a) return a*a end
function sign(a) if a<0 then return -1 else return 1 end end
function render3D(gc,surf,map,cam) gc:setColorRGB(189,228,255) gc:fillRect(surf.x,surf.y,surf.w,surf.h/2) gc:setColorRGB(47,127,0) gc:fillRect(surf.x,surf.y+surf.h/2,surf.w,surf.h/2) for i=0,surf.w-1,surf.res do column=(i*2/surf.w)-1
hit=nil while not hit do if rayLengthX<rayLengthY then rayLengthX=rayLengthX+rayStepX rayCellX=rayCellX+sign(rayDirX) wallSide=0 else rayLengthY=rayLengthY+rayStepY rayCellY=rayCellY+sign(rayDirY) wallSide=1 end
if map[rayCellX][rayCellY]~=0 then hit=true wallType=map[rayCellX][rayCellY] end end if wallSide==0 then wallDist=math.abs((rayCellX-rayStartX+(1-sign(rayDirX))/2)/rayDirX) else wallDist=math.abs((rayCellY-rayStartY+(1-sign(rayDirY))/2)/rayDirY) end columnHeight=math.abs(math.floor(surf.h/wallDist)) columnStart=surf.h/2-columnHeight/2 if columnStart<0 then columnStart=0 end if columnHeight+columnStart>=surf.h then columnHeight=surf.h-columnStart end
if wallSide==1 then gc:setColorRGB(100,0,0) else gc:setColorRGB(140,0,0) end if wallType==2 then gc:setColorRGB(255,255,255) end gc:fillRect(i+surf.x,columnStart+surf.y,surf.res,columnHeight) end end
function drawMap(gc,map,cam) gc:setColorRGB(69,45,0) gc:setPen("medium","smooth") gc:drawRect(0,0,66,66) gc:setColorRGB(222,189,127) gc:fillRect(0,0,66,66) startX=1 startY=1 if cam.x>=6 then startX=math.floor(cam.x)-5 end if cam.y>=6 then startY=math.floor(cam.y)-5 end if cam.x+5>#map then startX=#map-10 end if cam.y+5>#map[1] then startY=#map[1]-10 end for i=startX,startX+10,1 do for j=startY,startY+10,1 do if map[i][j]~=0 then if map[i][j]==1 then gc:setColorRGB(120,78,0) elseif map[i][j]==2 then gc:setColorRGB(255,255,255) end gc:fillRect(60-(i*6-startX*6),j*6-startY*6,6,6) end end end gc:setColorRGB(69,45,0) gc:fillArc(60-(cam.x*6-startX*6-3),cam.y*6-startY*6-3,5,5,0,360) end
function on.escapeKey() menu=1 won=nil refresh() end on.escapeKey()
function on.enterKey() menu=nil mapDraw=nil camera={x=3,y=3,rot=1.05} screen={x=0,y=0,w=width(),h=height(),res=2} generateMaze() refresh() end
function on.arrowKey(ar) if not menu then turn=nil if ar=="right" then camera.rot=camera.rot-0.1 end if ar=="left" then camera.rot=camera.rot+0.1 end if ar=="up" then if map1[math.floor(camera.x+math.cos(camera.rot)/3)][math.floor(camera.y+math.sin(camera.rot)/3)]~=1 then camera.x=camera.x+math.cos(camera.rot)/3 camera.y=camera.y+math.sin(camera.rot)/3 end end if ar=="down" then if map1[math.floor(camera.x-math.cos(camera.rot)/4)][math.floor(camera.y-math.sin(camera.rot)/4)]~=1 then camera.x=camera.x-math.cos(camera.rot)/4 camera.y=camera.y-math.sin(camera.rot)/4 end end if map1[math.floor(camera.x)][math.floor(camera.y)]==2 then menu=1 won=1 end refresh() end end
function on.charIn(ch) if not menu then if ch=="m" then mapDraw=not mapDraw elseif ch=="*" and screen.w<width() then screen.w=screen.w+width()/height()*5 screen.h=screen.h+5 screen.x=width()/2-screen.w/2 screen.y=height()/2-screen.h/2 elseif ch=="/" and screen.w>100 then screen.w=screen.w-width()/height()*5 screen.h=screen.h-5 screen.x=width()/2-screen.w/2 screen.y=height()/2-screen.h/2 elseif ch=="h" then screen.res=2 elseif ch=="l" then screen.res=4 end refresh() end end
function on.paint(gc) if menu then gc:setColorRGB(0,0,255) gc:setFont("sansserif","r",30) gc:drawString("MAZES 3D",75,0,"top") if won then gc:drawString("You won !",80,150,"top") end gc:setFont("serif","b",10) gc:drawString("Press Enter to start",100,100,"top") else render3D(gc,screen,map1,camera) if mapDraw then drawMap(gc,map1,camera) end end gc:setColorRGB(0,0,0) gc:setFont("sansserif","r",8) gc:drawString("Lua Mazes 3D - Par Loic Pujet",10,200,"top") end
Show Posts
