View difference between Paste ID: DyDscfEn and SyEyqZGN

 
 --# Main
 -- Main
 
 function setup()
     t=Track2()
     parameter.boolean("Rays",true)
 end
 
 function draw()
     t:draw()
 end
 
 function touched(touch)
     t:touched(touch)
 end
 --# Track1
 Track1 = class()
 
 function Track1:init(x)
     self.car={x=350,y=100}
     self.FOV=75 --degrees each side
     self.slice=1 --degrees per view
 end
 
 function Track1:draw()
     background(128)
     spriteMode(CORNER)
     --create new shapes every second or sl
     if counter==nil then counter=0 end
     counter = counter + 1
     if counter%60==1 then --every 60 redraws, or about one second
         screen=image(WIDTH,HEIGHT) --draw on an image the same size as the screen
         setContext(screen)
         fill(0,0,255,100)
         for i=1,3 do
             rect(self.car.x+math.random(-200,200),self.car.y+math.random(100,500),
                     math.random(10,100),math.random(10,100))
             ellipse(self.car.x+math.random(-200,200),self.car.y+math.random(100,500),math.random(10,100))
         end
         setContext()
         views=self:GetRays(screen)
     end
     sprite(screen,0,0)
     fill(255,0,0)
     ellipse(self.car.x,self.car.y,20)
     stroke(0,100,200,200)
     strokeWidth(1)
     if views~=nil then
         for i,v in ipairs(views) do
             line(self.car.x,self.car.y,v.x,v.y)
         end
     end
 end
 
 function Track1:GetRays(s)
     local rays={} --to store results
     local f=math.pi/180 --to convert degrees to radians
     for i=-self.FOV,self.FOV,self.slice do
         local d,dy,dy=0,0,0 --distance to object, and x,y position of object
         for u=1,1000 do --put a limit ont he looping
             local xx=self.car.x+u*math.sin(i*f) --step forward
             local yy=self.car.y+u*math.cos(i*f)
             --if in bounds, and pixel non blank, we've hit something
             if xx>1 and xx<=WIDTH and yy>1 and yy<=HEIGHT then
                 local r,g,b,a=s:get(xx,yy)
                 if b~=0 then d=u dx=xx dy=yy break end
             else break end
         end
         --store angle, distance and x,y position of object
         if d>0 then table.insert(rays,{angle=i,dist=d,x=dx,y=dy}) end
     end
     return rays
 end
 
 function Track1:touched(touch)
     --dummy for now
 end
 --# Track2
 Track2 = class()
 
 function Track2:init(x)
     self.car={x=25,y=50,speed=4,angle=0}
     self.FOV=75 --degrees each side
     self.slice=5 --degrees per view
     self.trackOffset={x=50,y=50}
     self:CreateTrack()
 end
 
 function Track2:draw()
     --assign temporary short names just to make code easier to read
     local tx,ty=self.trackOffset.x,self.trackOffset.y
     background(128)
     pushStyle()
     spriteMode(CORNER)
     sprite(imgTrack,tx,ty)
     fill(255,0,0)
     ellipse(tx+self.car.x,ty+self.car.y,12)
     stroke(0,100,200,200)
     strokeWidth(1)
     views=self:GetRays(imgTrack)
     if views~=nil and Rays then
         for i,v in ipairs(views) do
             line(tx+self.car.x,ty+self.car.y,tx+v.x,ty+v.y)
         end
     end
     popStyle()
     self:SetNewPosition()
 end
 
 function Track2:CreateTrack()
     imgTrack=image(500,400)
     setContext(imgTrack)
     pushStyle()
     fill(0,0,0,0) --transparent
     stroke(201,201,201) --white
     self.TrackBlue=201 --define the track colour (blue)
     strokeWidth(50)
     rect(0,0,500,400)
     popStyle()
     setContext()
 end
 
 function Track2:GetRays(s)
     local rays={} --to store results
     local f=math.pi/180 --to convert degrees to radians
     for i=self.car.angle-self.FOV,self.car.angle+self.FOV,self.slice do --CHANGE
         local d,dy,dy=0,0,0 --distance to object, and x,y position of object
         for u=1,1000 do --put a limit on the looping
             local xx=self.car.x+u*math.sin(i*f) --step forward
             local yy=self.car.y+u*math.cos(i*f)
             --if in bounds, and pixel non blank, we've hit something
             if xx>1 and xx<=WIDTH and yy>1 and yy<=HEIGHT then
                 local r,g,b,a=s:get(xx,yy)
                 if b~=self.TrackBlue then d=u dx=xx dy=yy break end
             else break end
         end
         --store angle, distance and x,y position of object
         if d>0 then table.insert(rays,{angle=i,dist=d,x=dx,y=dy}) end
     end
     return rays
 end
 
 function Track2:SetNewPosition()
     local maxd,maxa=0,0
     for i,v in ipairs(views) do
         if v.dist>maxd then maxd=v.dist maxa=v.angle end
     end
     local f=math.pi/180 --to convert degrees to radians
     self.car.x=self.car.x+self.car.speed*math.sin(maxa*f)
     self.car.y=self.car.y+self.car.speed*math.cos(maxa*f)
     self.car.angle=maxa
 end
 
 function Track2:touched(touch)
     --dummy for now
 end