Howdy, Stranger!

It looks like you're new here. If you want to get involved, click one of these buttons!

In this Discussion

Star Light

pacpac
edited January 15 in Code Sharing Posts: 173

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

Comments

  • dave1707dave1707 Mod
    Posts: 7,468

    @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.

  • pacpac
    edited January 16 Posts: 173

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

  • dave1707dave1707 Mod
    Posts: 7,468

    @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.

  • pacpac
    Posts: 173

    Like that?

Sign In or Register to comment.