Labels - Revision history

Thebys at 20:50, 22 March 2026

2026-03-22T20:50:41Z

← Older revision		Revision as of 20:50, 22 March 2026
Line 68:		Line 68:

	open my $big, ">$str.png" or die "$str.png: $!";		open my $big, ">$str.png" or die "$str.png: $!";
	print $big render (128, $title, ~~"<a rel="nofollow" class="external free" href=~~"https://wiki.base48.cz/wiki/$str~~">https://wiki.base48.cz/wiki/$str</a>~~")->png;		print $big render (128, $title, "https://wiki.base48.cz/wiki/$str")->png;


	open my $small, ">small-$str.png" or die "$str.png: $!";		open my $small, ">small-$str.png" or die "$str.png: $!";
	print $small render (76, $title, "/wiki/$str", ~~"<a rel="nofollow" class="external free" href=~~"https://wiki.base48.cz/wiki/$str~~">https://wiki.base48.cz/wiki/$str</a>~~")->png;		print $small render (76, $title, "/wiki/$str", "https://wiki.base48.cz/wiki/$str")->png;
	}		}

Thebys at 20:43, 22 March 2026

2026-03-22T20:43:59Z

← Older revision		Revision as of 20:43, 22 March 2026
Line 90:		Line 90:
	do_one('Bong Cleaning Tools', 'Bongs#Maintenance');</syntaxhighlight>		do_one('Bong Cleaning Tools', 'Bongs#Maintenance');</syntaxhighlight>
	=== Printing them out: ===		=== Printing them out: ===
	Use this tool: https://git.familie-radermacher.ch/linux/ptouch-print.git<syntaxhighlight lang="~~perl~~" line="1">		Use this tool: https://git.familie-radermacher.ch/linux/ptouch-print.git<syntaxhighlight lang="shell" line="1">
	# perl makeqr.pl		# perl makeqr.pl
	# ./ptouch-print --image=Library.png		# ./ptouch-print --image=Library.png
	</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="~~perl~~" line="1">		</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="shell" line="1">
	# ./ptouch-print --image=CNC.png --chain		# ./ptouch-print --image=CNC.png --chain
	# ./ptouch-print --image=Library.png --precut --chain		# ./ptouch-print --image=Library.png --precut --chain
	# ./ptouch-print --image=OutputBuffer.png --precut		# ./ptouch-print --image=OutputBuffer.png --precut
	</syntaxhighlight>		</syntaxhighlight>

Thebys at 20:38, 22 March 2026

2026-03-22T20:38:41Z

← Older revision		Revision as of 20:38, 22 March 2026
Line 93:		Line 93:
	# perl makeqr.pl		# perl makeqr.pl
	# ./ptouch-print --image=Library.png		# ./ptouch-print --image=Library.png
	</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="~~shell~~">		</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="perl" line="1">
	# ./ptouch-print --image=CNC.png --chain		# ./ptouch-print --image=CNC.png --chain
	# ./ptouch-print --image=Library.png --precut --chain		# ./ptouch-print --image=Library.png --precut --chain
	# ./ptouch-print --image=OutputBuffer.png --precut		# ./ptouch-print --image=OutputBuffer.png --precut
	</syntaxhighlight>		</syntaxhighlight>

Thebys: syntax highlighting error fix?

2026-03-22T20:37:30Z

syntax highlighting error fix?

← Older revision		Revision as of 20:37, 22 March 2026
Line 93:		Line 93:
	# perl makeqr.pl		# perl makeqr.pl
	# ./ptouch-print --image=Library.png		# ./ptouch-print --image=Library.png
	</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="~~bash~~">		</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="shell">
	# ./ptouch-print --image=CNC.png --chain		# ./ptouch-print --image=CNC.png --chain
	# ./ptouch-print --image=Library.png --precut --chain		# ./ptouch-print --image=Library.png --precut --chain
	# ./ptouch-print --image=OutputBuffer.png --precut		# ./ptouch-print --image=OutputBuffer.png --precut
	</syntaxhighlight>		</syntaxhighlight>

Thebys: Change preformatted to code blocks.

2026-03-22T20:34:29Z

Change preformatted to code blocks.

← Older revision		Revision as of 20:34, 22 March 2026
Line 90:		Line 90:
	do_one('Bong Cleaning Tools', 'Bongs#Maintenance');</syntaxhighlight>		do_one('Bong Cleaning Tools', 'Bongs#Maintenance');</syntaxhighlight>
	=== Printing them out: ===		=== Printing them out: ===
	Use this tool: https://git.familie-radermacher.ch/linux/ptouch-print.git		Use this tool: https://git.familie-radermacher.ch/linux/ptouch-print.git<syntaxhighlight lang="perl" line="1">
			# perl makeqr.pl
	# perl makeqr.pl		# ./ptouch-print --image=Library.png
	# ./ptouch-print --image=Library.png		</syntaxhighlight>Minimize waste by chaining multiple labels:<syntaxhighlight lang="bash">
			# ./ptouch-print --image=CNC.png --chain
	Minimize waste by chaining multiple labels:		# ./ptouch-print --image=Library.png --precut --chain
			# ./ptouch-print --image=OutputBuffer.png --precut
	# ./ptouch-print --image=CNC.png --chain		</syntaxhighlight>
	# ./ptouch-print --image=Library.png --precut -chain
	# ./ptouch-print --image=OutputBuffer.png --precut

Thebys: Add image

2026-03-22T20:32:11Z

Add image

← Older revision		Revision as of 20:32, 22 March 2026
Line 1:		Line 1:
	== QR codes ==		== QR codes ==
			[[File:Label Richard.jpg\|thumb\|Example of a real label used in Base48.]]
	Thebys' Brother printer can print monochrome PNG files of height 128px.		Thebys' Brother printer can print monochrome PNG files of height 128px.

Thebys: Switch from preformatted to code block.

2026-03-22T18:38:08Z

Switch from preformatted to code block.

@@ Line 3: / Line 3: @@
 === Creating the PNG files ===
-One way to do it is with this simple Perl script:<syntaxhighlight lang="perl" line="1" start="0">
+One way to do it is with this simple Perl script:<syntaxhighlight lang="perl" line="1" start="0">use GD::Barcode::QRcode;
 use GD;
@@ Line 68: / Line 67: @@
 	open my $big, ">$str.png" or die "$str.png: $!";
-	print $big render (128, $title, "
+	print $big render (128, $title, "<a rel="nofollow" class="external free" href="https://wiki.base48.cz/wiki/$str">https://wiki.base48.cz/wiki/$str</a>")->png;
 === Printing them out: ===
 Use this tool: https://git.familie-radermacher.ch/linux/ptouch-print.git

Thebys at 18:32, 22 March 2026

2026-03-22T18:32:11Z

← Older revision		Revision as of 18:32, 22 March 2026
Line 3:		Line 3:

	=== Creating the PNG files ===		=== Creating the PNG files ===
	One way to do it is with this simple Perl script:<syntaxhighlight lang="perl" line="1">		One way to do it is with this simple Perl script:<syntaxhighlight lang="perl" line="1" start="0">
	use GD::Barcode::QRcode;		use GD::Barcode::QRcode;
	use GD;		use GD;

Thebys: test code block

2026-03-22T18:31:42Z

test code block

@@ Line 3: / Line 3: @@
 === Creating the PNG files ===
-One way to do it is with this simple Perl script:
+One way to do it is with this simple Perl script:<syntaxhighlight lang="perl" line="1">
   use GD::Barcode::QRcode;
   use GD;

Klubko at 10:54, 20 March 2026

2026-03-20T10:54:36Z

← Older revision		Revision as of 10:54, 20 March 2026
Line 30:		Line 30:
	sub render		sub render
	{		{
			my $t = shift;
	my $title = shift;		my $title = shift;
	my $url = shift;		my $text = shift;
			my $url = shift // $text;
			my $m = 3;

	$img = undef;		$img = undef;
	$h = ~~128~~;		$h = $t;
	$w = $h;		$w = $h;

	# Sizing first		# Sizing first
	text($large,48,0,$h,0, $title);		if ($t == 76) {
	text($narrow,24,0,$h,0, $~~url~~);		text($narrow,32,0,$h+8,0, $text);
			} else {
			text($large,48,0,$h+8,0, $title);
			text($narrow,24,0,$h+8,0, $text);
			}

	# Actual rendering		# Actual rendering
	$img = GD::Image->new($w,$h);		$img = GD::Image->new($w,$h);
	my $qr = GD::Barcode::QRcode->new($url)->plot(Height => $h);		my $qr = GD::Barcode::QRcode->new($url)->plot(Height => $h);
	$img->copyResized($qr, 0, 0, 0, 0, $img->height, $img->height, $qr->width, $qr->height);		$img->copyResized($qr, 0, 0, $m, $m, $img->height, $img->height, $qr->width-2$m, $qr->height-2$m);
	text($large,48,0,$img->height, 64, $title);
	text($narrow,24,0,$img->height, $img->height-16, $~~url~~);		if ($t == 76) {
			text($narrow,32,0,$img->height+8, $img->height-24, $text);
			} else {
			text($large,48,0,$img->height+8, 64, $title);
			text($narrow,24,0,$img->height+8, $img->height-16, $text);
			}

	return $img;		return $img;
Line 55:		Line 67:
	my $title = shift;		my $title = shift;
	my $str = shift // $title;		my $str = shift // $title;
	~~my $url = "https://wiki.base48.cz/wiki/$str";~~

	open my $~~file~~, ">$str.png" or die "$str.png: $!";		open my $big, ">$str.png" or die "$str.png: $!";
	print $~~file~~ render ($title, $~~url~~)->png;		print $big render (128, $title, "https://wiki.base48.cz/wiki/$str")->png;

			open my $small, ">small-$str.png" or die "$str.png: $!";
			print $small render (76, $title, "/wiki/$str", "https://wiki.base48.cz/wiki/$str")->png;
	}		}

Line 73:		Line 87:
	do_one('Library', 'Library');		do_one('Library', 'Library');
	do_one('Output Buffer', 'OutputBuffer');		do_one('Output Buffer', 'OutputBuffer');
			do_one('Making QR labels', 'Labels#QR_codes');
			do_one('Bongs', 'Bongs#Bongo');
			do_one('Bong Cleaning Tools', 'Bongs#Maintenance');

	=== Printing them out: ===		=== Printing them out: ===
Line 80:		Line 97:
	# ./ptouch-print --image=Library.png		# ./ptouch-print --image=Library.png

	~~Minimaze~~ waste by chaining multiple labels:		Minimize waste by chaining multiple labels:

	# ./ptouch-print --image=Library.png --precut --chain		# ./ptouch-print --image=CNC.png --chain
			# ./ptouch-print --image=Library.png --precut -chain
	# ./ptouch-print --image=OutputBuffer.png --precut		# ./ptouch-print --image=OutputBuffer.png --precut