chalkboard 1.9.0.15 → 1.9.0.16

raw patch · 8 files changed

+7/−5 lines, 8 filesnew-component:exe:chalkboard-server-1_9_0_16binary-added

Files

• Graphics/ChalkBoard/Main.hs +0/−1
• Graphics/ChalkBoard/OpenGL/CBBE.hs +0/−1
• chalkboard.cabal +5/−2
• tests/chalkmark/Main.hs +2/−1
• tests/test1/images/cb-text.gif binary
• tests/test1/images/cb-text.jpg binary
• tests/test1/images/cb-text.png binary
• tutorial/basic/tutorial.pdf binary

@@ -184,7 +184,6 @@ 			putMVar v2 (decode packet :: [Inst BufferId]) 			loop 		loop-	appendFile ("xx.txt") (show (decode options :: [Options])) 	startRendering viewBoard v0 v2 (decode options :: [Options]) 	return ()	 

@@ -433,7 +433,6 @@ drawInsts :: [Inst BufferId] -> CBM () drawInsts [] = return () drawInsts (i:is) = do -    liftIO $ appendFile ("xx.txt") (show ("drawInst",i))     case i of             (Allocate b size depth (BackgroundArr arr)) -> allocateArrBuffer b size depth arr             (Allocate b size depth bgColor) -> allocateBuffer b size depth bgColor

@@ -1,5 +1,5 @@ Name:                chalkboard-Version:             1.9.0.15+Version:             1.9.0.16 Synopsis:            Combinators for building and processing 2D images.  Description:	     ChalkBoard is a Haskell hosted Domain Specific Language (DSL) for image generation and processing. 		The basic structure is a Chalk Board, a two-dimensional canvas of values, typically colors. @@ -22,6 +22,9 @@ Extra-Source-Files:         tutorial/basic/tutorial.pdf         tutorial/basic/Main.hs+	tests/test1/images/cb-text.gif+	tests/test1/images/cb-text.jpg+	tests/test1/images/cb-text.png  Flag all   Description: Enable full development tree, including all tests and examples@@ -56,7 +59,7 @@ -- The server is by default always built. -- The suffix number is the same as a version number, above. flag server { Default: True }-Executable chalkboard-server-1_9_0_15+Executable chalkboard-server-1_9_0_16   if flag(server)     buildable:            True   else

@@ -1,3 +1,4 @@+{-# OPTIONS_GHC -ddump-simpl-stats #-} module Main where 	 import Graphics.ChalkBoard as CB hiding (Board)@@ -28,7 +29,7 @@        where c = o $ RGB (x/count) (y/count) ((rX / 3) - fromIntegral (floor (rX / 3))) 	     r' = r * 50 + y 	-    count = 40 -- + (fromIntegral(round (rX * 2) :: Int))+    count = 20 -- + (fromIntegral(round (rX * 2) :: Int)) --	20 -- 10 -- 1-- 20  

binary file changed (absent → 9987 bytes)

binary file changed (absent → 10676 bytes)

binary file changed (absent → 65114 bytes)

binary file changed (240139 → 240143 bytes)