defxr_d xr 1 1001
fix_xr_d xr 0 .001
defunc_d F xr
fill_func F sin(16*x)
defframe f
frame f -.1 .95 -1.1 1.1 .2 .2
defgraph_PS t t.ps landscape
setframe t f
defcolor red
color red 1 0 0
setcolor t red
funct_plot F t f 0 1 250
destroy t
