diff options
Diffstat (limited to 'src/algebra/view2D.spad.pamphlet')
| -rw-r--r-- | src/algebra/view2D.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/view2D.spad.pamphlet b/src/algebra/view2D.spad.pamphlet index c132bcec..5a032a44 100644 --- a/src/algebra/view2D.spad.pamphlet +++ b/src/algebra/view2D.spad.pamphlet @@ -307,7 +307,7 @@ GraphImage (): Exports == Implementation where makeGraph graf == doOptions(graf) - (s := #(graf.llPoints)) = 0 => + (n := #(graf.llPoints)) = 0 => error "You are trying to make a graph with no points" key graf ~= 0 => error "You are trying to draw over an existing graph" @@ -327,7 +327,7 @@ GraphImage (): Exports == Implementation where sendSF(VIEW,hi(second tonto))$Lisp sendSF(VIEW,first (graf.unitsField))$Lisp sendSF(VIEW,second (graf.unitsField))$Lisp - sendI(VIEW,s)$Lisp -- how many lists of points are being sent + sendI(VIEW,n)$Lisp -- how many lists of points are being sent for aList in graf.llPoints for pColor in graf.pointColors for lColor in graf.lineColors for s in graf.pointSizes repeat sendI(VIEW,#aList)$Lisp -- how many points in this list for p in aList repeat |