#!/bin/perl -w

#

# circle2.pl by Pegasus Epsilon <pegasus@pimpninjas.org>

# (C)2025 Distribute Unmodified - https://pegasus.pimpninjas.org/license

# trig and text mode drawing via tput in perl

use strict;

my $deg_to_rad = 3.14159 / 180;

my $rows = `tput lines` / 2;

my $cols = `tput cols` / 2;

my $ratio = 7 / 15;

print `tput sc`;

print `tput clear`;

for (my $i = 0; $i < 360; $i++) {

system "tput cup " . int($rows + $rows * sin($i * $deg_to_rad)) . " " . int($cols + $cols * cos($i * $deg_to_rad) * $ratio);

print "#";

}

print `tput rc`;