MyNixOS website logo
Description

A Haskell port of the smallpt path tracer.

A Haskell port of smallpt. smallpt is a global illumination path tracer written in 99 lines of C++. The Haskell port is also written in 99 lines. Please see the Homepage for more information, included easier to read code waiting for your contribution.

smallpt-hs

This is a port of smallpt, a global illumination path tracer written in 99 lines of C++. The port is written in 99 lines of Haskell.

There are two major differences: performance and argument parsing. The Haskell code compiled with GHC 6.12.1 is about 4.5 times slower than the C++ version. (I only tested on my anemic Atom N450-powered netbook...) The C++ code takes an optional argument, which should be a integer greater than 4.

Give it a spin

This repository contains more than the 99 lines smallpt-hs.hs file. There are other variants with a criterion wrapper to benchmark the code. The cbits directory contains the original smallpt.cpp file modified to be expose the main entry point as a C symbol callable from Haskell via FFI.

Every attempt so far use the vector package. The 99 lines file is derived from Smallpt/Mutable.hs. The Storable code doesn't improve the performance and is less convenient to use. The Unboxed code lose in performance because the Vec type can't benefit from an explicit unpack pragma.

If you can make the code faster or easier to read, please let me know!

License

Although the LICENSE file is a BSD3 license, I should contact Kevin Beason (the original author of the C++ code) to make sure it is ok. The linked site above has the original LICENSE.

Metadata

Version

0.1

Platforms (75)

    Darwin
    FreeBSD
    Genode
    GHCJS
    Linux
    MMIXware
    NetBSD
    none
    OpenBSD
    Redox
    Solaris
    WASI
    Windows
Show all
  • aarch64-darwin
  • aarch64-genode
  • aarch64-linux
  • aarch64-netbsd
  • aarch64-none
  • aarch64_be-none
  • arm-none
  • armv5tel-linux
  • armv6l-linux
  • armv6l-netbsd
  • armv6l-none
  • armv7a-darwin
  • armv7a-linux
  • armv7a-netbsd
  • armv7l-linux
  • armv7l-netbsd
  • avr-none
  • i686-cygwin
  • i686-darwin
  • i686-freebsd
  • i686-genode
  • i686-linux
  • i686-netbsd
  • i686-none
  • i686-openbsd
  • i686-windows
  • javascript-ghcjs
  • loongarch64-linux
  • m68k-linux
  • m68k-netbsd
  • m68k-none
  • microblaze-linux
  • microblaze-none
  • microblazeel-linux
  • microblazeel-none
  • mips-linux
  • mips-none
  • mips64-linux
  • mips64-none
  • mips64el-linux
  • mipsel-linux
  • mipsel-netbsd
  • mmix-mmixware
  • msp430-none
  • or1k-none
  • powerpc-netbsd
  • powerpc-none
  • powerpc64-linux
  • powerpc64le-linux
  • powerpcle-none
  • riscv32-linux
  • riscv32-netbsd
  • riscv32-none
  • riscv64-linux
  • riscv64-netbsd
  • riscv64-none
  • rx-none
  • s390-linux
  • s390-none
  • s390x-linux
  • s390x-none
  • vc4-none
  • wasm32-wasi
  • wasm64-wasi
  • x86_64-cygwin
  • x86_64-darwin
  • x86_64-freebsd
  • x86_64-genode
  • x86_64-linux
  • x86_64-netbsd
  • x86_64-none
  • x86_64-openbsd
  • x86_64-redox
  • x86_64-solaris
  • x86_64-windows