10.3 Coloring and Positioning Ribbons

Before leaving the ribbon example, we make two improvements. Normally, the color given to each point in the space is a function of its height within a bounding box. The points at the bottom of the box are red, those at the top are purple.

To change the normal coloring, you can give an option colorFunction==function. When FriCAS goes about displaying the data, it determines the range of colors used for all points within the box. FriCAS then distributes these numbers uniformly over the number of hues. Here we use the simple color function (x,y)↦i for the i-th ribbon.

Also, we add an argument yrange so you can give the range of y occupied by the ribbons. For example, if the yrange is given as y=0..1 and there are 5 ribbons to be displayed, each ribbon would have width 0.2 and would appear in the range 0≤y≤1.

Refer to lines 4-9. Line 4 assigns to yVar the variable part of the yrange (after all, it need not be y). Suppose that yrange is given as t=a..b where a and b have numerical values. Then line 5 assigns the value of a to the variable y0. Line 6 computes the width of the ribbon by dividing the difference of a and b by the number, num, of ribbons. The result is assigned to the variable width. Note that in the for-loop in line 7, we are iterating in parallel; it is not a nested loop.

drawRibbons(flist, xrange, yrange) ==}{}
  sp := createThreeSpace()                     Create empty space $sp$.
  num :=  # flist                              The number of ribbons.
  yVar := variable yrange                      The ribbon variable.

  y0:Float    := lo segment yrange             The first ribbon coordinate.

width:Float := (hi segment yrange - y0)/num  The width of a ribbon. for f in flist for color in 1..num repeat    For each function $f$,   makeObject(f, xrange, yVar = y0..y0+width, create and add ribbon to     var2Steps == 1, colorFunction == (x,y) +-> color, _

      space == sp)                             $sp$ of a different color.

    y0 := y0 + width                           The next ribbon coordinate.

vp := makeViewport3D(sp, “Ribbons”)          Create viewport. drawStyle(vp, “shade”)                       Select shading style. outlineRender(vp, “on”)                      Show polygon outlines. showRegion(vp, “on”)                         Enclose in a box. vp                                           Return the viewport.

The final drawRibbons function.