This is graph.tcl in view mode; [Download] [Up]
# graph.tcl
# short demo for ptcl
# 'graph {<list of values>}'
proc graph {list} {
pencil new # new document
set n 0
foreach val $list { # loop through list
# create polygon, move it, change prop's, add it:
# fmod(..) is only used for making it more colourful
addobject [set-fill-method [set-draw-method [set-ty [set-tx [polygon [expr fmod($val*1.3456,1)] [expr fmod($val*3.47+.74,1)] [expr fmod($val*2.19+.38,1)] "0 0 20 0 20 $val 0 $val"] [expr $n*25+40]] 30] draw3DShadow] verlaufHORFV]
addobject [text [expr $n*25+40] [expr 50+$val] $val]
incr n
}
pencil display # display it
}
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.