Rendering curves in grayscale
Peter Lewerin (guest) 24 Mar 2010 14:54
import Math._
import java.awt.Color._
clear
invisible
val width = 180
val height = 25
val halfwave = Vector.tabulate(width){ i => toRadians(i) }
def render (level: Int)(fn: Double => Double) {
val y0 = level * height
val y1 = (level + 1) * height
(halfwave map fn zipWithIndex) foreach { case(e, i) =>
val c = e.toFloat
Canvas.setPenColor(new Color(c, c, c))
Canvas.line(i, y0, i, y1)
}
}
val f = { x: Double => 1 - x }
render (3) { sin }
render (2) { sin _ andThen f }
render (1) { cos _ andThen abs }
render (0) { cos _ andThen abs andThen { x => 1 - x } }