B:BD[
2.241] → [
2.241:245]
Weta
Weta
lotkoe1,morepo2,nezfan1,nezkak1,nezpig2,nezrob3,nibkiw1,okbkiw1,parake,pipipi1,riflem1,shbcuc1,silver3,soioys1,soiwre1,sonthr1,spocra2,tomtit1,tui1,varoys1,weka1,yellow2,weta,saddle3
for folder in a
cmd = `skraak calls clip \
--folder $folder \
--prefix Wendy24 \
--output /home/david/go/src/skraak/.claude/skills/skraak-check-call-classification/Australasian\ Bittern \
--species Bittern \
--filter M \
--size 224 \
--color`
run(cmd) # execute the command
end
skraak calls clip --folder . --prefix Internet --output "/home/david/go/src/skraak/.claude/skills/skraak-check-call-classification/Chaffinch" --species chaffinch --filter M --size 224 --color
using FileIO, FLAC, DSP, PerceptualColourMaps, ImageTransformations, StatsBase
function get_image_from_sample(sample, f) #sample::Vector{Float64}
S = DSP.spectrogram(sample, 400, 2; fs = convert(Int, f))
i = S.power
if minimum(i) == 0.0
l = i |> vec |> unique |> sort
replace!(i, 0.0 => l[2])
end
image =
#! format: off
DSP.pow2db.(i) |>
x -> x .+ abs(minimum(x)) |>
x -> x ./ maximum(x) |>
x -> reverse(x, dims = 1) |>
x -> PerceptualColourMaps.applycolourmap(x, cmap("L4")) |>
#x -> RGB.(x) |>
x -> ImageTransformations.imresize(x, 224, 224) |>
x -> Float32.(x)
#! format: on
return image
end
function resample_to_8000hz(signal, freq)
if ndims(signal) > 1
signal = vec(mean(signal, dims=2))
end
signal = DSP.resample(signal, 8000.0f0 / freq)
signal = vec(signal) # ensure Vector output
freq = 8000
return signal, freq
end
for item in a
FLAC.load(FileIO.query(item)) |> x -> resample_to_8000hz(x[1], x[2]) |> x -> get_image_from_sample(x[1], x[2]) |> img -> save(replace(item, "flac"=>"png"), img)
end
function resample_to_16000hz(signal, freq)
if ndims(signal) > 1
signal = vec(mean(signal, dims=2))
end
signal = DSP.resample(signal, 16000.0f0 / freq)
signal = vec(signal) # ensure Vector output
freq = 16000
return signal, freq
end
for item in a
FLAC.load(FileIO.query(item)) |> x -> resample_to_16000hz(x[1], x[2]) |> x -> get_image_from_sample(x[1], x[2]) |> img -> save(replace(item, "flac"=>"png"), img)
end