#!/usr/bin/perl

use strict;
use warnings;
use GD;

# First working example
my $image = GD::Image->new(1, 1);
my $transparent = $image->colorAllocate(0, 0, 0);

warn $image->transparent;
$image->transparent($transparent);
warn $image->transparent;

# Second working example
$image = GD::Image->newTrueColor(1, 1);
$image->alphaBlending(0);
$image->saveAlpha(1);
$transparent = $image->colorAllocateAlpha(0, 0, 0, 127);

warn $image->transparent;
$image->setPixel(0, 0, $transparent);
warn $image->transparent;

# Broken ChatGPT example
$image = GD::Image->newTrueColor(1, 1);
$image->alphaBlending(0);
$image->saveAlpha(1);
$transparent = $image->colorAllocateAlpha(0, 0, 0, 127);

warn $image->transparent;
$image->transparent($transparent);
warn $image->transparent;