}
$spotcolors[] = array("id" => 0, "name" => "PANTONE Violet C", "colorspace" => "cmyk", "c1" => 0.75, "c2" => 0.9399999999999999, "c3" => 0.0, "c4" => 0.0);
$spotcolors[] = array("id" => 0, "name" => "PANTONE 114 C", "colorspace" => "cmyk", "c1" => 0.0, "c2" => 0.11, "c3" => 0.6899999999999999, "c4" => 0.0);
$spotcolors[] = array("id" => 0, "name" => "PANTONE 5565 C", "colorspace" => "cmyk", "c1" => 0.37, "c2" => 0.0, "c3" => 0.34, "c4" => 0.34);
$spotcolors[] = array("id" => 0, "name" => "RGB Blue", "colorspace" => "rgb", "c1" => 0.0, "c2" => 0.0, "c3" => 1.0, "c4" => 0.0);
$spotcolors[] = array("id" => 0, "name" => "Gray Black", "colorspace" => "gray", "c1" => 0.0, "c2" => 0.0, "c3" => 0.0, "c4" => 0.0);
$ps = PS_new();
if (0 > PS_open_file($ps, "spotcolor.ps")) {
printf("Cannot open PostScript file\n");
exit(1);
}
PS_set_parameter($ps, "warning", "true");
PS_set_info($ps, "Creator", __FILE__);
PS_set_info($ps, "Author", "Uwe Steinmann");
PS_set_info($ps, "Title", "Spotcolor demonstration");
PS_set_info($ps, "Keywords", "Spot color");
for ($i = 0; $i < 5; $i++) {
PS_setcolor($ps, "fill", $spotcolors[$i]["colorspace"], $spotcolors[$i]["c1"], $spotcolors[$i]["c2"], $spotcolors[$i]["c3"], $spotcolors[$i]["c4"]);
$spotcolors[$i]["id"] = PS_makespotcolor($ps, $spotcolors[$i]["name"], 0);
}
PS_begin_page($ps, 596, 842);
footer($ps, "");
$psfont = PS_findfont($ps, "Helvetica", "", 0);
PS_setfont($ps, $psfont, 7.0);
for ($i = 1; $i <= 10; $i++) {
$buffer = sprintf("%d %%", $i * 10);
PS_show_xy($ps, $buffer, 60, 55 + $i * 65);
}
colorline($ps, 100.0, $spotcolors[0]);
colorline($ps, 190.0, $spotcolors[1]);
colorline($ps, 280.0, $spotcolors[2]);
$psfont = PS_findfont($p, "Helvetica", "", 0);
PS_setfont($p, $psfont, 8.0);
$buffer = sprintf("This file has been created with pslib %s", PS_get_parameter($p, "dottedversion", 0.0));
PS_show_xy($p, $buffer, LEFT_BORDER, 25);
}
$ps = PS_new();
if (0 > PS_open_file($ps, "shading.ps")) {
printf("Cannot open PostScript file\n");
exit(1);
}
PS_set_parameter($ps, "warning", "false");
PS_set_value($ps, "parskip", 10);
PS_set_info($ps, "Creator", __FILE__);
PS_set_info($ps, "Author", "Uwe Steinmann");
PS_set_info($ps, "Title", "Shading Examples");
PS_set_info($ps, "Keywords", "shading");
$antiqua = PS_findfont($ps, "Helvetica", "", 0);
/* Page 2 */
PS_begin_page($ps, 596, 842);
footer($ps, "");
$shading1 = PS_shading($ps, "axial", 0.0, 0.0, 90.0, 0.0, 1.0, 0.0, 0.0, 0.0, NULL);
$shading2 = PS_shading($ps, "axial", 10.0, 10.0, 90.0, 90.0, 1.0, 0.0, 0.0, 0.0, NULL);
$shading3 = PS_shading($ps, "axial", 10.0, 10.0, 90.0, 90.0, 1.0, 0.0, 0.0, 0.0, "extend0 true extend1 true");
$shading4 = PS_shading($ps, "radial", 29.0, 29.0, 55.0, 55.0, 1.0, 0.0, 0.0, 0.0, "r0 0 r1 45");
$shading5 = PS_shading($ps, "radial", 29.0, 29.0, 55.0, 55.0, 1.0, 0.0, 0.0, 0.0, "r0 5 r1 45");
PS_save($ps);
PS_translate($ps, 500, 0);
PS_shfill($ps, $shading1);
PS_restore($ps);
PS_setfont($ps, $antiqua, 20.0);
PS_show_xy($ps, "Shading", LEFT_BORDER, 763);