13 lines
352 B
Standard ML
13 lines
352 B
Standard ML
structure ClickPoints =
|
|
struct
|
|
fun generate (start, finish, numPoints) =
|
|
let
|
|
val difference = finish - start
|
|
val increment = Real32.fromInt difference / Real32.fromInt numPoints
|
|
val start = Real32.fromInt start
|
|
in
|
|
Vector.tabulate (numPoints + 1, fn idx =>
|
|
(Real32.fromInt idx * increment) + start)
|
|
end
|
|
end
|