This is convertFromPencil1.tcl in view mode; [Download] [Up]
foreach i {
{circle cir}
{hermite her}
{hermiteO herO}
{bezier bez}
{bezierO bezO}
{polygon pol}
{polygonO polO}
{drawFS dFS}
{drawS dS}
{drawF dF}
{drawSF dSF}
{dashed dsh}
{doubleline dbl}
{horLines hrL}
{verLines vrL}
{drawFSShadow dFSSh}
{drawFShadow dFSh}
{drawSShadow dSSh}
{draw3D d3D}
{draw3DShadow d3DSh}
{verlaufHOR grd}
{verlaufHORD dgrd}
{verlaufHORLR grd}
{verlaufHORRL grd}
{verlaufHORFV grd}
{verlaufHORTH grd}
{verlaufHORDOUB dgrd}
{verlaufHORDOUBR dgrd}
{verlaufHORDOUBFV dgrd}
{spektrum grd}
{sphGrad2 sphGrad}
{sphGrad3 sphGrad}
{sphGrad4 sphGrad}
{sphGrad5 sphGrad}
{sphGrad6 sphGrad}
{fill fill}
{stroke stroke}
{rect rect}
{rrect rrect}
{arcP arcP}
{arcPO arcPO}
} { set table([lindex $i 0]) [lindex $i 1] }
proc repl {o n} {
global table
set w [lindex $o $n]
if [info exists table($w)] {
return [lreplace $o $n $n $table($w)]
} {
out "$w not converted."
return $o
}
}
P_forSelection {
set OBJ [repl $OBJ 1]
set OBJ [repl $OBJ 2]
set OBJ [repl $OBJ 3]
set OBJ [repl $OBJ 4]
}
P_display
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.