File: tflag.rem

package info (click to toggle)
remind 06.02.01-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 40,820 kB
  • sloc: ansic: 25,624; sh: 6,361; perl: 2,926; lisp: 431; makefile: 240
file content (24 lines) | stat: -rwxr-xr-x 686 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
#!/usr/bin/env -S remind -@2
# This is a little Easter Egg that simply draws
# the Transgender Pride Flag.  It's included in
# Remind because (1) the author is trans and (2)
# trans people are under attack in the USA and many
# other places.  So this is a little show of support
# and resistance for trans people.
SET $AddBlankLines 0
BANNER %
set c max(columns()-1, 10)
set r max(rows(), 5)

set bar "█" * c
set dups r/5
set bars (bar + "%_") * dups

set bars mbsubstr(bars, 0, mbstrlen(bars)-2)

REM SPECIAL COLOR  91 206 250 [bars]
REM SPECIAL COLOR 245 169 184 [bars]
REM SPECIAL COLOR 255 255 255 [bars]
REM SPECIAL COLOR 245 169 184 [bars]
REM SPECIAL COLOR  91 206 250 [bars]