Star Light

Code Sharing
1

Hey just made a cool program called Star Light in this program it is made to make small cameras see the stars.

-- StarLight

-- Use this function to perform your initial setup
function setup()
    print("This example shows you how to use camera input")
    
    -- Create a couple buttons for our camera source
    parameter.action("Front Camera", function()
                                        cameraSource(CAMERA_FRONT)
                                     end)

    parameter.action("Back Camera",  function()
                                        cameraSource(CAMERA_BACK)
                                     end)

    parameter.action("Take Photo", takePhoto)
    
 --   parameter.boolean("Depth", false, function()
    --    if Depth then
       --     print("This feature requires depth sensing hardware on the specified camera source")
    --    end
  --  end)

    -- Start using the front camera
    cameraSource(CAMERA_FRONT)
    
    -- A variable to hold our captured photo
    capturedImage = nil
end

function takePhoto()
    capturedImage1 = image(CAMERA)
    
    PhotoTaken()
end

-- This function gets called once every frame
function draw()
    -- This sets a dark background color
    background(40, 40, 50)

    -- This sets the line thickness
    strokeWidth(5)

    -- Get the size of the current camera texture
    local camWidth, camHeight = spriteSize( CAMERA )

    -- Draw the special CAMERA sprite
    if Depth then 
        sprite( CAMERA_DEPTH, WIDTH/2, HEIGHT/2, math.min( camWidth, WIDTH ) )
    else 
        sprite( CAMERA, WIDTH/2, HEIGHT/2, math.min( camWidth, WIDTH ) )
    end

    -- Draw our captured image if available
    if capturedImage ~= nil then
        pushStyle()
        spriteMode(CORNER)
        sprite(capturedImage, WIDTH/2 - 100, 0, 200)
        popStyle()
    end
end

color(255, 144, 0, 0)


function PhotoTaken()
    
    
    --take any light light and boost it to all white.
    capturedImage = image(capturedImage1.width, capturedImage1.height)

    
    for i = 1, capturedImage1.width do
    
        for j = 1, capturedImage1.height do
    
                r1,g1,b1 = capturedImage1:get(i,j)
            if r1 < 50 and g1 < 50 and b1 < 50 then
                
                capturedImage:set(i,j,
                color(r1, g1, b1, 255))
                
                else
                
                capturedImage:set(i,j,
                color(214, 214, 214, 255))
                
                
            end     
        end
    end
end

If you like it let me know. And please send me suggestions about what I could improve.

Thanks @pac

2

@pac Anytime you post code, put ~~~ on a line by itself before and after your code so it formats correctly. I added them to your code above.

3

Oh thanks. Hey about Star light do you know if codea can save a photo to apple photo?

4

@pac If you tap the gear icon to the right of your post, you can edit or add something to that post instead of creating multiple posts to correct spelling errors or to answer your own question.

5

Like that?