[project @ 1999-11-26 10:29:53 by simonpj]
authorsimonpj <unknown>
Fri, 26 Nov 1999 10:29:54 +0000 (10:29 +0000)
committersimonpj <unknown>
Fri, 26 Nov 1999 10:29:54 +0000 (10:29 +0000)
fromInt wibble

real/bspt/Euclid.lhs
real/bspt/EuclidGMS.lhs
real/bspt/GeomNum.lhs
real/bspt/Interpret.lhs
real/bspt/Render.lhs
real/ebnf2ps/Fonts.hs

index bf7ee77..f29e99b 100644 (file)
@@ -1,3 +1,4 @@
+> {-# OPTIONS -syslib exts #-}
 > module Euclid
 
        Module contains definitions of Points and Lines and related
@@ -16,6 +17,7 @@
 > import MGRlib (line)
 > import Params (mouseDispx,mouseDispy,gap)
 > import Char(isDigit)--1.3
+> import Int( Num(fromInt) )
 
 
        The data type Line is used to describe a line.
index 35dfbe8..b4eb94a 100644 (file)
@@ -1,3 +1,4 @@
+> {-# OPTIONS -syslib exts #-}
 > module EuclidGMS
 
        Module that provides addition Euclidean operations.
@@ -20,6 +21,7 @@
 >               triangleArea,mkPolygon,convert)
 > import Params (renderTop,renderHeight,renderLeft,windowWidth)
 > import Stdlib (all_YORK,mkset)
+> import Int( Num(fromInt) )
 
 
 
index 2ebb5c3..5ddfd4a 100644 (file)
@@ -1,3 +1,4 @@
+> {-# OPTIONS -syslib exts #-}
 > module GeomNum 
 
        Defines the Geometric Number class and gives instances
@@ -10,6 +11,7 @@
 
 > import Params (renderLeft,renderTop,renderHeight,windowWidth)
 > import Rationals (Rationals(..),rndNR)
+> import Int ( Num(fromInt) )
 
 
         Numb is a type synonym used throughout the rest of
index 1436eb0..b14b584 100644 (file)
@@ -1,3 +1,4 @@
+> {-# OPTIONS -syslib exts #-}
 > module Interpret 
 
        Module that produces the interpretation of the users input
@@ -14,6 +15,7 @@
 > import EuclidGMS (inScreen,Point(..),mkPoint)
 > import GeomNum
 > import Stdlib (between,splitAt_YORK)
+> import Int( Num(fromInt) )
 
        An operation is a Command and a list of points to be assiciated with that
        command
index 5aef578..c584374 100644 (file)
@@ -1,3 +1,4 @@
+> {-# OPTIONS -syslib exts #-}
 > module Render 
 
        Render controls the displaying of BSP images and
@@ -16,6 +17,7 @@
 > import Params (renderTop,renderHeight,renderLeft,windowWidth)
 > import GeomNum
 > import MGRlib (line,func,movePrintTo,writeVert)
+> import Int( Num(fromInt) )
 
        render - fills in the image with a hashed pattern
                Algorithm creates scan_line segments from
index 64a5058..f7e23bf 100644 (file)
@@ -1,6 +1,11 @@
+{-# OPTIONS -syslib exts #-}
+
 --------------------------------------------------------------------------------
 -- Copyright 1994 by Peter Thiemann
 -- $Log: Fonts.hs,v $
+-- Revision 1.5  1999/11/26 10:29:54  simonpj
+-- fromInt wibble
+--
 -- Revision 1.4  1999/09/14 10:18:24  simonmar
 -- Replace all instances of fromInt in nofib with fromIntegral.
 --
@@ -27,7 +32,8 @@
 module Fonts (FONT, makeFont, fontDescender, stringWidth, stringHeight, fontName, fontScale, noFont)
 where
 
-import Char--1.3
+import Char
+import GlaExts ( Num(fromInt) )
 
 -- not in 1.3
 readDec :: (Integral a) => ReadS a