ftp.nice.ch/pub/next/graphics/vector/PencilTWO.s.tar.gz#/PencilTWO/Source/PencilLibrary/setAttr.tcl

This is setAttr.tcl in view mode; [Download] [Up]

proc setcol {o c} {
	return [eval "lreplace {$o} 10 15 $c"]
}

proc setlw {o l} {
	return [lreplace $o 16 16 $l]
}

proc getcol {o} {
	return [lrange $o 10 15]
}

These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.