Crea arte ASCII a partir de videos con Lua y FFmpeg

sudo apt-get update
sudo apt-get install lua5.4 luarocks ffmpeg

brew install lua luarocks ffmpeg

choco install lua ffmpeg
# Luarocks might require manual setup or alternative package managers on windows.
# Refer to the official luarocks documentation for Windows installation instructions.

lua -v
luarocks --version
ffmpeg -version

# Create a directory for the frames if it doesn't exist
mkdir -p frames

# Extract frames at 10 fps, scaled to 640px width (height adjusted automatically)
ffmpeg -i input.mp4 -vf "fps=10,scale=640:-1" frames/frame_%04d.png

-- ascii.lua

-- ASCII art character set from dense to sparse
local chars = {"@", "#", "S", "%", "?", "*", "+", ";", ":", ",", ".", " "}
-- Alternative simpler set: local chars = {"@", "#", "$", "=", "*", "+", ":", "-", ".", " "}

-- Convert pixel brightness (grayscale) to an ASCII character
local function pixelToChar(r, g, b)
  -- Calculate luminance using the standard formula for perceived brightness
  local brightness = (r * 0.299 + g * 0.587 + b * 0.114) / 255
  -- Map brightness (0.0 to 1.0) to an index in the chars table
  -- math.max ensures index is at least 1, math.min ensures it doesn't exceed table length
  local index = math.floor(brightness * (#chars - 1)) + 1
  index = math.max(1, math.min(index, #chars)) -- Clamp index to valid range
  return chars[index]
end

-- Convert an image file to an ASCII art string using FFmpeg and ffprobe
local function shellQuote(value)
  return "'" .. value:gsub("'", "'\\''") .. "'"
end

local function imageToAscii(imagePath, targetWidth)
  targetWidth = targetWidth or 80 -- Default ASCII width if not provided

  -- 1. Get image dimensions using ffprobe
  -- Use -v error to suppress verbose output, get width,height in csv format
  local ffprobeCmd = string.format("ffprobe -v error -select_streams v:0 -show_entries stream=width,height -of csv=s=x:p=0 -i %s", shellQuote(imagePath))
  local dims
  -- Use pcall for safe execution of external command
  local success, err = pcall(function()
    -- Use "r" mode for reading text output
    local f = io.popen(ffprobeCmd, "r")
    if not f then error("Failed to execute ffprobe command.") end
    dims = f:read("*l") -- Read the first line (e.g., "1920x1080")
    f:close()
    if not dims or dims == "" then error("ffprobe returned empty dimensions.") end
  end)

  if not success then
    return nil, "Error getting image dimensions: " .. (err or "Unknown ffprobe error")
  end

  -- Parse dimensions
  local originalWidth, originalHeight = dims:match("(%d+)x(%d+)")
  if not originalWidth then
     return nil, "Could not parse dimensions from ffprobe output: '" .. dims .. "'"
  end
  originalWidth, originalHeight = tonumber(originalWidth), tonumber(originalHeight)

  -- 2. Calculate target height maintaining aspect ratio
  -- Adjust height by ~0.5 factor because terminal characters are often taller than wide
  local targetHeight = math.floor(originalHeight * (targetWidth / originalWidth * 0.5))
  -- Ensure targetHeight is at least 1
  targetHeight = math.max(1, targetHeight)

  -- 3. Use FFmpeg to get raw RGB pixel data, scaled to target dimensions
  -- -f rawvideo outputs raw pixel data, -pix_fmt rgb24 specifies 24-bit RGB
  local ffmpegCmd = string.format("ffmpeg -nostdin -v error -i %s -vf scale=%d:%d -frames:v 1 -f rawvideo -pix_fmt rgb24 -",
                           shellQuote(imagePath), targetWidth, targetHeight)
  local rawPixelData
  success, err = pcall(function()
    -- POSIX pipes opened with "r" preserve binary bytes.
    local f = io.popen(ffmpegCmd, "r")
    if not f then error("Failed to execute ffmpeg command.") end
    rawPixelData = f:read("*a") -- Read all binary data
    f:close()
    if not rawPixelData or #rawPixelData == 0 then error("ffmpeg returned empty pixel data.") end
  end)

  if not success then
    return nil, "Error processing image with ffmpeg: " .. (err or "Unknown ffmpeg error")
  end

  -- 4. Convert raw pixel data (RGB triplets) to ASCII string
  local asciiArt = ""
  local expectedDataSize = targetWidth * targetHeight * 3 -- 3 bytes per pixel (R, G, B)
  if #rawPixelData < expectedDataSize then
      -- Warn about incomplete data but proceed if possible
      print(string.format("Warning: Incomplete pixel data received. Expected %d bytes, got %d.", expectedDataSize, #rawPixelData))
  end

  local pos = 1
  for y = 1, targetHeight do
    for x = 1, targetWidth do
      -- Check if enough data remains for one pixel (3 bytes)
      if pos + 2 <= #rawPixelData then
        local r = string.byte(rawPixelData, pos)
        local g = string.byte(rawPixelData, pos + 1)
        local b = string.byte(rawPixelData, pos + 2)
        asciiArt = asciiArt .. pixelToChar(r, g, b)
        pos = pos + 3
      else
        -- Not enough data for a full pixel, add padding or break
        asciiArt = asciiArt .. " " -- Add a space as padding
        if x < targetWidth then -- Fill rest of the row with spaces if data ended mid-row
           asciiArt = asciiArt .. string.rep(" ", targetWidth - x)
        end
        goto next_row -- Jump out of inner loop if data ends prematurely
      end
    end
    ::next_row:: -- Label for goto statement
    asciiArt = asciiArt .. "\n" -- Newline after each row, including truncated rows
  end

  return asciiArt, nil -- Return result and nil for error
end

-- Main execution block: parses command-line arguments and calls imageToAscii
local function main()
  if not arg[1] then
    print("Usage: lua ascii.lua <image_path> [output_file]")
    os.exit(1)
  end

  local imagePath = arg[1]
  local outputFile = arg[2]

  -- Call the conversion function
  local result, err = imageToAscii(imagePath)

  -- Handle potential errors during conversion
  if err then
    io.stderr:write("Error: " .. err .. "\n")
    os.exit(1)
  end

  -- Print the resulting ASCII art to the console
  print(result)

  -- Optionally save the result to a specified file
  if outputFile then
    local file, openErr = io.open(outputFile, "w")
    if file then
      file:write(result)
      file:close()
      print("\nASCII art saved to " .. outputFile)
    else
      io.stderr:write("\nError: Could not write to file '" .. outputFile .. "': " .. (openErr or "Unknown error") .. "\n")
      -- Don't exit here, maybe user only wanted console output
    end
  end
end

-- Run the main function
main()

lua ascii.lua frames/frame_0001.png

lua ascii.lua frames/frame_0001.png ascii_frames/frame_0001.txt

# Ubuntu/Debian
sudo apt-get install imagemagick

# macOS
brew install imagemagick

# Windows (using chocolatey)
choco install imagemagick.app

#!/bin/bash

# Set variables
FRAME_DIR="frames"
ASCII_TXT_DIR="ascii_frames"
ASCII_IMG_DIR="ascii_images"
OUTPUT_VIDEO="ascii_video.mp4"
FRAME_RATE=10 # Should match the extraction frame rate
FONT="${FONT:-/usr/share/fonts/truetype/dejavu/DejaVuSansMono.ttf}"
POINT_SIZE=10
IMG_BACKGROUND="black"
IMG_FOREGROUND="white"

# --- safety checks ---
if [ ! -r "$FONT" ]; then
    echo "Error: set FONT to a readable monospaced font file."
    exit 1
fi
# Check if Lua script exists
if [ ! -f "ascii.lua" ]; then
    echo "Error: ascii.lua script not found in the current directory."
    exit 1
fi

# Check if frame directory exists and is not empty
if [ ! -d "$FRAME_DIR" ] || [ -z "$(ls -A $FRAME_DIR/*.png 2>/dev/null)" ]; then
    echo "Error: '$FRAME_DIR' directory not found or contains no PNG frames."
    echo "Please run the FFmpeg frame extraction command first."
    exit 1
fi

# Check if ImageMagick's convert command is available
if ! command -v convert &> /dev/null; then
    echo "Error: ImageMagick 'convert' command not found. Please install ImageMagick."
    exit 1
fi

# Check if FFmpeg command is available
if ! command -v ffmpeg &> /dev/null; then
    echo "Error: 'ffmpeg' command not found. Please install FFmpeg."
    exit 1
fi


# --- processing Steps ---
echo "Starting ASCII art generation process..."

# Create output directories
mkdir -p "$ASCII_TXT_DIR"
mkdir -p "$ASCII_IMG_DIR"

# Count total frames for progress reporting
FRAME_FILES=("$FRAME_DIR"/frame_*.png)
FRAME_COUNT=${#FRAME_FILES[@]}
CURRENT_FRAME=0

echo "Step 1: Processing $FRAME_COUNT frames into ASCII text..."
# Process all frames into text files
for frame_png in "${FRAME_FILES[@]}"; do
  CURRENT_FRAME=$((CURRENT_FRAME + 1))
  base_name=$(basename "$frame_png" .png)
  output_txt="$ASCII_TXT_DIR/${base_name}.txt"

  # Lua writes the output file; suppress its duplicate console preview.
  if ! lua ascii.lua "$frame_png" "$output_txt" >/dev/null; then
      echo "Error processing frame $frame_png with Lua script. Aborting."
      exit 1
  fi

  # Simple progress indicator
  printf "Processing frame %d/%d (%.0f%%)\r" "$CURRENT_FRAME" "$FRAME_COUNT" $(echo "scale=2; 100 * $CURRENT_FRAME / $FRAME_COUNT" | bc)
done
echo -e "\nASCII text generation complete."


echo "Step 2: Converting ASCII text files to images..."
# Convert ASCII text frames to PNG images using ImageMagick's convert tool
# Render the preformatted grid without word wrapping, on a fixed even-sized canvas.
TXT_FILES=("$ASCII_TXT_DIR"/*.txt)
TXT_COUNT=${#TXT_FILES[@]}
CURRENT_TXT=0
for txt_file in "${TXT_FILES[@]}"; do
  CURRENT_TXT=$((CURRENT_TXT + 1))
  base_name=$(basename "$txt_file" .txt)
  output_png="$ASCII_IMG_DIR/${base_name}.png"

  # Fit the full grid, including portrait frames, before padding for the video encoder.
  if ! convert -background "$IMG_BACKGROUND" -fill "$IMG_FOREGROUND" -font "$FONT" -pointsize "$POINT_SIZE" \
          label:@"$txt_file" -resize 640x320 -gravity center -extent 640x320 "$output_png"; then
      echo "Error converting $txt_file to image using ImageMagick. Aborting."
      exit 1
  fi
   printf "Converting text file %d/%d\r" "$CURRENT_TXT" "$TXT_COUNT"
done
echo -e "\nImage generation complete."


echo "Step 3: Creating final ASCII video from images..."
# Create video from the generated ASCII images using FFmpeg
# -framerate: input frame rate
# -i: input pattern for images
# -c:v libx264: video codec (h.264 is widely compatible)
# -pix_fmt yuv420p: pixel format for compatibility
# -crf 23: constant rate factor (quality level, lower is better quality, 18-28 is typical)
# -y: overwrite output file without asking
if ! ffmpeg -framerate "$FRAME_RATE" -i "$ASCII_IMG_DIR/frame_%04d.png" \
       -c:v libx264 -pix_fmt yuv420p -crf 23 \
       -y "$OUTPUT_VIDEO"; then
   echo "Error creating video with FFmpeg. Aborting."
   exit 1
fi

echo "-------------------------------------"
echo "ASCII video creation successful!"
echo "Output file: $OUTPUT_VIDEO"
echo "-------------------------------------"

exit 0

-- Denser character set for potentially more detail and smoother gradients
local chars_detailed = {"$", "@", "B", "%", "8", "&", "W", "M", "#", "*", "o", "a", "h", "k", "b", "d", "p", "q", "w", "m", "Z", "O", "0", "Q", "L", "C", "J", "U", "Y", "X", "z", "c", "v", "u", "n", "x", "r", "j", "f", "t", "/", "\\", "|", "(", ")", "1", "{", "}", "[", "]", "?", "-", "_", "+", "~", "<", ">", "i", "!", "l", "I", ";", ":", ",", "\"", "^", "`", "'", ".", " "}

-- Simpler character set for a cleaner, potentially blockier or higher contrast look
local chars_simple = {"@", "#", "$", "=", "*", "+", ":", "-", ".", " "}

-- Choose one set in your ascii.lua script by assigning it to the 'chars' variable
local chars = chars_simple -- Or chars_detailed

# Example: increase contrast and apply a subtle sharpening filter before extracting
ffmpeg -i input.mp4 -vf "fps=10,scale=640:-1,eq=contrast=1.3,unsharp=5:5:0.5:5:5:0.0" frames/frame_%04d.png