• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

sleexyz/hylogen: GLSL embedded in Haskell

原作者: [db:作者] 来自: 网络 收藏 邀请

开源软件名称(OpenSource Name):

sleexyz/hylogen

开源软件地址(OpenSource Url):

https://github.com/sleexyz/hylogen

开源编程语言(OpenSource Language):

Haskell 47.1%

开源软件介绍(OpenSource Introduction):

H Y L O G E N

An embedding of GLSL in Haskell.

H Y L I D E

A live coding environment for writing shaders with Hylogen.



Install

Build from source, using Stack:

  1. Install stack
  2. git clone https://github.com/sleexyz/hylogen.git
  3. cd hylogen
  4. stack build

This is the recommended method of using Hylogen, because using Stack you can share your projects and be confident that others will be using the same version of Hylogen as you. To install it to your system so it can be used anywhere, not just inside the hylogen folder, use stack install instead of stack build.

Hylogen can also be installed to your system using the Haskell Platform:

  1. Install the Haskell Platform
  2. cabal update && cabal install hylogen hylide

Example

Here's a simple Hylogen shader to be used with Hylide, saved as Example.hs (available in the examples/ directory):

module Example where
import Hylogen.WithHylide

output :: Program
output = toProgram color

color :: Vec4
color = vec4 (a, a, a, 1)
  where
    k = 20
    f = (*k) . sin . (/k)
    a = sum [ cos (x_ uvN * f time + x_ mouse )
            , sin (y_ uvN * f time + y_ mouse )
            ]

Run Hylide:

$ stack exec hylide Example.hs

If Hylide was installed using the haskell platform, you can omit stack exec:

$ hylide Example.hs

Now go to localhost:5678 in your browser. You'll see a live rendering of the corresponding generated GLSL:

void main() {
    float _7 = uvN.x;
    float _10 = (time / 20.0);
    float _9 = sin(_10);
    float _8 = (_9 * 20.0);
    float _6 = (_7 * _8);
    float _11 = mouse.x;
    float _5 = (_6 + _11);
    float _4 = cos(_5);
    float _3 = (0.0 + _4);
    float _15 = uvN.y;
    float _18 = (time / 20.0);
    float _17 = sin(_18);
    float _16 = (_17 * 20.0);
    float _14 = (_15 * _16);
    float _19 = mouse.y;
    float _13 = (_14 + _19);
    float _12 = sin(_13);
    float _2 = (_3 + _12);
    vec4 _1 = vec4(_2, _2, _2, 1.0);

    gl_FragColor = _1;
}

Hylide will recompile on changes to the Haskell source, sending generated GLSL to the WebGL client over websockets.

References

  • The_Force by Shawn Lawson. This was the initial inspiration for Hylide.
  • data-reify for type-safe observable sharing.

Conceived of at the Recurse Center :)




鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap