gen-hp

#!/usr/bin/perl

use strict;
use warnings;

use lib ".";
use PPD;
use PPD::PJL;
use PPD::Paper;

set('FileVersion', '1.0');
set('PCFileName', 'HP4350.PPD');

set('Manufacturer', 'HP');
set('Product', 'LaserJet 4350');
set('PSVersion', '(3010.107) 0');

set('Throughput', 35);
set('TTRasterizer', 'Type42');
set('Protocols', 'PJL TBCP');

set('cupsProtocol', 'None');

define_ui_group({ Key => 'Basic', Name => 'Basic options' });

option({
	Key => 'Duplex',
	Name => '2-Sided Printing',
	Choice => 'PickOne',
	Values => [
		{ Key => 'None', Name => 'Off (1-Sided)', PS => "<< /Duplex false >> setpagedevice" },
		{ Key => 'DuplexNoTumble', Name => 'Long-Edge Binding', PS => "<< /Duplex true /Tumble false >> setpagedevice", Default => 1 },
		{ Key => 'DuplexTumble', Name => 'Short-Edge Binding', PS => "<< /Duplex true /Tumble true >> setpagedevice" },
	]
});

option({
	Key => 'Resolution',
	Name => 'Printer Resolution',
	Choice => 'PickOne',
	Priority => 5,
	Section  => 'DocumentSetup',
	Values => [
		{ Key => '1200x1200dpi', Name => 'ProRes 1200', PS => '<< /HWResolution [1200 1200] /PreRenderingEnhance false >> setpagedevice' },
		{ Key => '600x600x2dpi', Name => 'FastRes 1200', PS => '<< /HWResolution [1200 1200] /PreRenderingEnhance true >> setpagedevice', Default => 1 },
		{ Key => '600x600dpi', Name => '600 DPI', PS => '<< /HWResolution [600 600] /PreRenderingEnhance false >> setpagedevice' },
	]
});

option({
	Key => 'HPEconoMode',
	Name => 'EconoMode',
	Choice => 'Boolean',
	Values => [
		{ Key => 'False', Name => 'Highest Quality', PS => '<< /EconoMode false >> setpagedevice', Default => 1 },
		{ Key => 'True', Name => 'Save Toner', PS => '<< /EconoMode true >> setpagedevice' },
	]
});

option({
	Key => 'Smoothing',
	Name => 'Resolution Enhancement',
	Choice => 'Boolean',
	Priority => 20,
	Section  => 'DocumentSetup',
	Values => [
		{ Key => 'False', Name => 'Off', PS => '<< /PostRenderingEnhance true /PostRenderingEnhanceDetails << /REValue 0 /Type 8 >> >> setpagedevice' },
		{ Key => 'True', Name => 'On', PS => '<< /PostRenderingEnhance true /PostRenderingEnhanceDetails << /REValue 2 /Type 8 >> >> setpagedevice', Default => 1 },
	]
});