【小制作】颜色选择器

http://pan.baidu.com/share/link?shareid=4225568492&uk=1799962197 这是素材包直接从Codea里拆的导入如下图所示

下面是代码
ColorChooseBox = class()
function ColorChooseBox:init(x,y)
-- you can accept and set parameters here
self.backgroundColor = color(0, 0, 0, 255)
self.x = x
self.y = y
self.img = image(260,220)
self.chooseCircleIn = vec2(110,110)
self.chooseCircleOut = vec2(0,101)
self.colorOperation = color(255, 0, 0, 255)
self.hide = 255
self.SlideIn = false
self.SlideOut = false
self.touchid = nil
self.AlphaSlide = EasySlider(x+110,y,200,1,2)
end
function ColorChooseBox:draw()
-- Codea does not automatically call this method
setContext(self.img)
background(0, 0, 0, 0)
sprite("Project:ColorCircle",110,110)
rectMode(CENTER)
fill(self.colorOperation)
strokeWidth(0)
rect(110,110,110.5,110.5)
sprite("Project:ColorChoose",110,110,110)
noTint()
sprite("Project:ColorPickCircle",self.chooseCircleIn.x,self.chooseCircleIn.y)
sprite("Project:ColorPickCircle",self.chooseCircleOut.x+110,self.chooseCircleOut.y+110)
translate(-self.x+130,-self.y+110)
self.AlphaSlide:draw()
resetMatrix()
setContext()
tint(255,self.hide)
sprite(self.img,self.x,self.y)
local r,g,b,a=self.img:get(self.chooseCircleOut.x//1+110,self.chooseCircleOut.y//1+110)
self.colorOperation=color(r,g,b,a)
noTint()
end
function ColorChooseBox:touched(touch)
-- Codea does not automatically call this method
if vec2(touch.x,touch.y):dist(vec2(self.x-20,self.y))>90 and vec2(touch.x,touch.y):dist(vec2(self.x-20,self.y))<=110 and touch.state==BEGAN then
self.SlideOut=true
self.touchid=touch.id
elseif touch.x>self.x-55 and touch.x<self.x+55 and touch.y>self.y-55 and touch.y<self.y+55 and touch.state==BEGAN then
self.SlideIn=true
self.touchid=touch.id
end
if self.SlideOut and self.touchid==touch.id then
local vector = vec2(touch.x-self.x,touch.y-self.y):normalize()
self.chooseCircleOut = 101*vector
elseif self.SlideIn and self.touchid==touch.id then
if touch.x>self.x-55 and touch.x<self.x+55 and touch.y>self.y-55 and touch.y<self.y+55 then
self.chooseCircleIn=vec2(touch.x-self.x+110,touch.y-self.y+110)
else
if touch.x<=self.x+55 and touch.x>=self.x-55 then
if touch.y>=self.y+55 then
self.chooseCircleIn=vec2(touch.x-self.x+110,55+110)
elseif touch.y<=self.y-55 then
self.chooseCircleIn=vec2(touch.x-self.x+110,56)
end
elseif touch.x>self.x+55 then
if touch.y<=self.y+55 and touch.y>=self.y-55 then
self.chooseCircleIn=vec2(55+110,touch.y-self.y+110)
elseif touch.y>self.y+55 then
self.chooseCircleIn=vec2(55+110,55+110)
else
self.chooseCircleIn=vec2(55+110,56)
end
elseif touch.x<self.x-55 then
if touch.y<=self.y+55 and touch.y>=self.y-55 then
self.chooseCircleIn=vec2(56,touch.y-self.y+110)
elseif touch.y>self.y+55 then
self.chooseCircleIn=vec2(56,55+110)
else
self.chooseCircleIn=vec2(56,56)
end
end
end
end
if touch.state==ENDED then
self.SlideIn,self.SlideOut=false,false
end
self.AlphaSlide:touched(touch)
end
function ColorChooseBox:returnColor()
local r,g,b=self.img:get(self.chooseCircleIn.x//1,self.chooseCircleIn.y//1)
return color(r,g,b,self.AlphaSlide.pos*255)
end

然后这是我写的另一个滑条类，也是要导入的
EasySlider = class()
function EasySlider:init(x,y,length,startPos,mode)
-- you can accept and set parameters here
self.x = x
self.y = y
self.length = length
self.pos = startPos or 0.5
self.mode = mode or 1
self.isSliding = false
self.touchid = nil
end
function EasySlider:draw()
-- Codea does not automatically call this method
if self.mode == 1 then
strokeWidth(2)
stroke(78, 78, 78, 255)
line(self.x-self.length/2,self.y,self.x+self.length/2,self.y)
strokeWidth(4)
stroke(255, 255, 255, 255)
line(self.x-self.length/2,self.y,self.x-self.length/2+self.pos*self.length,self.y)
if not self.isSliding then
fill(0, 0, 0, 255)
else
fill(255, 255, 255, 255)
end
strokeWidth(2)
ellipse(self.x-self.length/2+self.pos*self.length,self.y,16)
elseif self.mode == 2 then
strokeWidth(2)
stroke(78, 78, 78, 255)
line(self.x,self.y-self.length/2,self.x,self.y+self.length/2)
strokeWidth(4)
stroke(255, 255, 255, 255)
line(self.x,self.y-self.length/2,self.x,self.y-self.length/2+self.length*self.pos)
if not self.isSliding then
fill(0, 0, 0, 255)
else
fill(255, 255, 255, 255)
end
strokeWidth(2)
ellipse(self.x,self.y-self.length/2+self.length*self.pos,16)
end
end
function EasySlider:touched(touch)
-- Codea does not automatically call this method
if touch.state==BEGAN then
if vec2(touch.x,touch.y):dist(vec2(self.x-self.length/2+self.pos*self.length,self.y))<=10 and self.mode==1 then
self.isSliding = true
self.touchid=touch.id
elseif vec2(touch.x,touch.y):dist(vec2(self.x,self.y-self.length/2+self.length*self.pos))<=10 and self.mode==2 then
self.isSliding = true
self.touchid=touch.id
end
end
if self.isSliding then
if self.mode==1 and self.touchid==touch.id then
self.pos=(touch.x-(self.x-self.length/2))/self.length
if self.pos<=0 then
self.pos=0
elseif self.pos>=1 then
self.pos=1
end
elseif self.mode==2 and self.touchid==touch.id then
self.pos=(touch.y-(self.y-self.length/2))/self.length
if self.pos<=0 then
self.pos=0
elseif self.pos>=1 then
self.pos=1
end
end
end
if touch.state==ENDED then
self.isSliding = false
self.touchid = nil
end
end

这个素材都是图片