adicirstei

(ns happy-place
  (:require [clojure2d.core :refer :all]
            [clojure2d.color :as c]
            [fastmath.random :as r]
            [fastmath.core :as m]
            [fastmath.vector :as v]))


(def dim 900)
(def agents 128)

adicirstei

(ns gen-art.beads
    (:require [clojure2d.core :refer :all]
              [fastmath.core :as m]
              [fastmath.random :as r]
              [fastmath.fields :as f]
              [fastmath.vector :as v]
              [clojure2d.color :as c]
              [clojure2d.extra.utils :as ut]
              [clojure2d.pixels :as p])
    (:import [fastmath.vector Vec2]) )

adicirstei

(ns gen-art.boids
  (:require [clojure2d.core :refer :all]
            [fastmath.core :as m]
            [fastmath.random :as r]
            [fastmath.fields :as f]
            [fastmath.vector :as v]
            [clojure2d.color :as c]
            [clojure2d.pixels :as p])
    (:import [fastmath.vector Vec2]))

adicirstei

(ns attractors.dejong
  (:require [clojure2d.core :refer :all]
            [clojure2d.pixels :as p]
            [clojure2d.color :as c]
            [fastmath.core :as m]
            [fastmath.vector :as v]
            [fastmath.random :as r]))


;(set! *warn-on-reflection* true)

adicirstei

module Main where

import Codec.Picture
import Control.Monad.ST
import Control.Monad.Primitive

import qualified Codec.Picture.Types as M
import Graphics.Gloss
import Graphics.Gloss.Data.ViewPort(ViewPort)
import Graphics.Gloss.Juicy (fromImageRGBA8)

adicirstei

import Html exposing (beginnerProgram, div, span, button, text)
import Html.Events exposing (onClick)

type Msg 
  = Increment Int
  | Decrement Int
  

type alias Model = 
  { action : Int -> Msg 

adicirstei

/// My function types 
type Backward<'Core> = 'Core -> 'Core

type InputCore = {
  backward : Backward<InputCore>
  x : float
}

type TanhCore = {
  backward : Backward<TanhCore>

adicirstei

type Tree a =
  Empty 
  | Node a (Tree a) (Tree a)


mirror : Tree a -> Tree a
mirror t =
  case t of
  Empty -> Empty
  Node v l r -> Node v (mirror r) (mirror l)

adicirstei

#I "packages/Rx-Linq/lib/net45"
#I "packages/Rx-Interfaces/lib/net45"
#I "packages/Rx-Core/lib/net45"
#I "packages/FSharp.Control.Reactive/lib/net40"

#r "FSharp.Control.Reactive.dll"
#r "System.Reactive.Core.dll"
#r "System.Reactive.Interfaces.dll"
#r "System.Reactive.Linq.dll"

adicirstei

open System
open System.Windows.Forms
open System.Drawing

type Action =
  | Increment
  | Decrement


let form = new Form(Width= 400, Height = 300, Visible = true, Text = "Hello World")