| import Mouse | |
| # Separating main and squares was key to making lift work | |
| # I don't know how to convert Signal (Int,Int) to Signal (Float,Float) | |
| # so I separated x and y into different arguments | |
| main = lift2 squares (toFloat <~ Mouse.x) | |
| (toFloat <~ Mouse.y) | |
| squares : Float -> Float -> Element | |
| squares x y = |
| import Math.Vector3 (..) | |
| import Math.Matrix4 (..) | |
| import Graphics.WebGL (..) | |
| import Mouse | |
| -- Create a cube in which each vertex has a position and color | |
| type Vertex = { color:Vec3, position:Vec3 } |
| import Keyboard | |
| import Window | |
| -- MODEL | |
| type Lemming = {x:Int, y:Int, vx:Float, vy:Float, dir:String, onSurface:Bool} | |
| mario1:Lemming | |
| mario1 = { x=20, y=900, vx=0, vy=0, dir="right", onSurface=False } | |
| mario2:Lemming | |
| mario2 = { x=60, y=900, vx=0, vy=0, dir="right", onSurface=False } | |
| allMarios = [mario1, mario2] |
Our goal for this section is to parse a NetCDF file. NetCDF is a binary format, which is most often used for climatology/geoscience data. Because it is a custom binary format, we’re going to write a custom parser for it by hand.
|
Tip
|
If you have a format based on JSON or XML to parse, then you should start with JSON.jl or julia-xml-library, rather than writing it by hand. |
| enum FingerTree<A> { Empty | |
| , Single(A) | |
| , Deep (Digit<A>, @FingerTree<Node<A>>, Digit<A>) | |
| } | |
| enum Node<A> { Node2(A,A), Node3(A,A,A) } | |
| enum Digit<A> { One(A) | |
| , Two(A,A) | |
| , Three(A,A,A) | |
| , Four(A,A,A,A) |
| echo2_helper(socket,stat) = | |
| begin | |
| println(stat) | |
| show(socket) | |
| c = accept(socket) | |
| println(c) | |
| line = read_line(c) | |
| println(line) | |
| while line != "0\n" | |
| write(c,line) |
| struct Level1<A> { | |
| data : @mut [@A * 5] | |
| , mut current : int | |
| } | |
| struct Level2<A> { | |
| data : @mut [@Level1<A> * 32] | |
| , mut current : int | |
| } |
| make[1]: Entering directory `/home/leah/code/servo/build/src/pixman' | |
| make all-recursive | |
| make[2]: Entering directory `/home/leah/code/servo/build/src/pixman' | |
| Making all in pixman | |
| make[3]: Entering directory `/home/leah/code/servo/build/src/pixman/pixman' | |
| make[3]: Nothing to be done for `all'. | |
| make[3]: Leaving directory `/home/leah/code/servo/build/src/pixman/pixman' | |
| Making all in demos | |
| make[3]: Entering directory `/home/leah/code/servo/build/src/pixman/demos' | |
| make[3]: Nothing to be done for `all'. |
| configure: looking for configure programs | |
| configure: found cmp | |
| configure: found mkdir | |
| configure: found printf | |
| configure: found cut | |
| configure: found grep | |
| configure: found xargs | |
| configure: found cp | |
| configure: found find | |
| configure: found uname |
