Stephan Eggermont, During this holiday I help my son with a data mining project, we use PlotMorph for 2D graphic. We have this little fix to PlotMorph: ------------------------------------------------------------------------ PlotSeties>>scaleTo: anRectangle height: heightInteger maxPoint: maxPoint minPoint: minPoint    | drawExtent scaleFrom scaleTo |    *drawExtent := maxPoint - minPoint.*    drawExtent isZero       ifTrue: [^ self].    scaleFrom := 0 @ 0 rectangle: drawExtent.    scaleTo := anRectangle.    points do:       [:point |          | tempPoint |          tempPoint := point - minPoint scaleFrom: scaleFrom to: scaleTo.          point scaledPoint: tempPoint x @ (heightInteger - tempPoint y)] ------------------------------------------------------------------------ Without this change, the code below does not work properly (scaling is not right): ------------------------------------------------------------------------ | m | m := PlotMorph plotPoints: { 0@0 . 0.59@0.88. 0.49@0.49 }. m openInWindow. ------------------------------------------------------------------------ Thanks Hilaire -- Dr. Geo http://drgeo.eu
participants (1)
-
Hilaire