Posted to tcl by chw at Fri Aug 05 21:00:04 GMT 2016view pretty
package require tkpath 0.3.0 package require pdf4tcl set w .c pack [tkp::canvas $w -width 400 -height 400 -bg white] set grad [$w gradient create linear -stops \ {{0.0 "#00bb00"} {0.35 "#00bb00"} {0.35 "#ffff00"} {0.50 "#ffff00"} \ {0.50 "#ff6600"} {0.65 "#ff6600"} {0.65 "#dd0000"} {0.8 "#dd0000"} \ {0.8 "#3366cc"} {1.0 "#3366cc"}} \ -lineartransition {0 0 0 1}] $w create path "M 0 0 C 20 0 40 -20 70 -20 S 130 30 130 60 \ 110 200 60 200 20 180 0 180 \ -10 200 -60 200 -130 90 -130 60 \ -110 -20 -70 -20 -20 0 0 0 z \ M 0 -10 Q -10 -60 50 -80 Q 50 -20 0 -10 z" \ -fill $grad -stroke "" -tags apple # -fill blue -stroke "" -tags apple $w move apple 200 120 pdf4tcl::new mypdf -paper a4 mypdf startPage mypdf canvas $w mypdf write -file out.pdf mypdf destroy