diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -1,38 +1,43 @@ -# [*H Y L O G E N*](http://hylogen.com) +# [*H Y L O G E N*](https://hylogen.com) -Hylogen is a tiny language [embedded in Haskell](https://wiki.haskell.org/Embedded_domain_specific_language) for live-coding visuals. +Hylogen is a language [embedded in Haskell](https://wiki.haskell.org/Embedded_domain_specific_language) for live-coding visuals in WebGL. ## Setup ``` cabal update cabal install hylogen ``` + ## Usage ```haskell -- ./Main.hs module Main where - import Hylogen +main = putStrLn $ toGLSL $ color -main = putStrLn . toGLSL $ Vec4 (a, a, a, 1) +color = vec (a, a, a, 1) where - a = cos(X uv * sin(time/ 10) * 10 + X mouse) - + sin(Y uv * sin(time / 10) * 10 + Y mouse) + a = cos(X uvN * sin(time/ 10) * 10 + X mouse) + + sin(Y uvN * sin(time / 10) * 10 + Y mouse) ``` -#### run hylogen +#### 1. run hylogen ``` hylogen Main.hs ``` -#### play! +#### 2. play! Go to [localhost:5678](http://localhost:5678) in your browser. Changes in `Main.hs` will now be propagated in realtime to your shader! ## inspiration -- [The_Force](https://github.com/shawnlawson/The_Force). +- [The_Force](https://github.com/shawnlawson/The_Force) +## resources +[hackage](https://hackage.haskell.org/package/hylogen) + +[examples](https://github.com/sleexyz/hylogen-yay) diff --git a/app/Main.hs b/app/Main.hs --- a/app/Main.hs +++ b/app/Main.hs @@ -23,11 +23,14 @@ main :: IO () main = getArgs >>= \case - [pathToWatch] -> do - _ <- forkIO $ serveIndex - runServer "127.0.0.1" 8080 $ handleConnection pathToWatch - _ -> error "Name a file to watch!" + [pathToWatch] -> main' pathToWatch + _ -> error "Name a file to watch!" +main' :: FilePath -> IO () +main' pathToWatch = do + _ <- forkIO $ serveIndex + runServer "127.0.0.1" 8080 $ handleConnection pathToWatch + handleConnection :: FilePath -> PendingConnection -> IO () handleConnection pathToWatch pending = do let (dirToWatch, fileToWatch) = splitFileName pathToWatch @@ -55,24 +58,8 @@ "-i"++dirToWatch , pathToWatch ] "" - putStrLn c + putStrLn "updated" return c -{- - color <- randomRIO (0::Float, 1) - - return $ unlines [ - "precision mediump float;" - , "uniform float time;" - , "uniform vec3 mouse;" - , "const float PI = 3.141592653589793238462643383;" - , "varying vec3 uv;" - , "" - , "void main() {" - , " gl_FragColor = vec4("++show color++", 0.0, 0.0, 1.0);" - , "}" - ] --} - serveIndex :: IO () serveIndex = withSocketsDo $ do diff --git a/app/index.html b/app/index.html --- a/app/index.html +++ b/app/index.html @@ -64,11 +64,13 @@ } a { text-decoration: inherit; + color: white; } a:visited { color: inherit; } + @@ -85,20 +87,28 @@