Generative Art Hands On with F#
Download as PPTX, PDF2 likes4,321 views
The document discusses generative art and its chaotic nature, emphasizing modern art techniques such as procedural generation and animations. It includes code examples for creating graphical representations and interactive features, as well as references to generative art resources. Additionally, it lists websites related to F# libraries that support graphic design and development.
![Happy endings
// Generate text from Philippe Decrauzat's D.T.A.B.T.W.H.A.H.E. 2010
let print (s:string) =
[|for y in 0..s.Length-1 ->
[|for x in 0..y-1 -> s.[x]
for x in y..s.Length-1 -> s.[y]
|]
|> fun cs ->
System.String(cs) +
System.String(cs |> Array.rev |> Seq.skip 1 |> Seq.toArray)
|]
|> fun ys -> [|yield! ys; yield! (Array.rev ys |> Seq.skip 1)|]
|> String.concat "rn"
print "A HAPPY ENDING"](https://image.slidesharecdn.com/generativeart-130815160922-phpapp01/85/Generative-Art-Hands-On-with-F-6-320.jpg)
Generative Art Hands On with F#
- 1. Generative Art Phillip Trelford F#unctional Londoners 2013
- 2. Generative Art: Que? Generative artists are chaos artists …embrace the chaos & learn to love it
- 3. Modern Art: Procedurally Generated
- 6. Happy endings // Generate text from Philippe Decrauzat's D.T.A.B.T.W.H.A.H.E. 2010 let print (s:string) = [|for y in 0..s.Length-1 -> [|for x in 0..y-1 -> s.[x] for x in y..s.Length-1 -> s.[y] |] |> fun cs -> System.String(cs) + System.String(cs |> Array.rev |> Seq.skip 1 |> Seq.toArray) |] |> fun ys -> [|yield! ys; yield! (Array.rev ys |> Seq.skip 1)|] |> String.concat "rn" print "A HAPPY ENDING"
- 7. Choose your own adventure
- 8. SmallSharp: Lines open Library do GraphicsWindow.Show() GraphicsWindow.BrushColor <- red for i in 0..5..200 do GraphicsWindow.DrawLine(i,0,n-i,n) GraphicsWindow.DrawLine(0,i,n,n-i)
- 10. Rothko / Async Rectangles let rec waiting() = async { let! md = Async.AwaitObservable(main.MouseLeftButtonDown) let rc = new Canvas(Background = transparentGray) main.Children.Add(rc) do! drawing(rc, md.GetPosition(main)) } and drawing(rc:Canvas, pos) = async { let! evt = Async.AwaitObservable(main.MouseLeftButtonUp, main.MouseMove) match evt with | Choice1Of2(up) -> rc.Background <- SolidColorBrush(colorSelect.CurrentColor) do! waiting() | Choice2Of2(move) -> moveControl rc pos (move.GetPosition(main)) do! drawing(rc, pos) }
- 11. Mandelbrot let (|Escaped|DidNotEscape|) (cx,cy) = let rec compute (zx,zy) i = if i = maxIteration then DidNotEscape elif zx * zx + zy * zy > 4.0 then Escaped i else compute (zx*zx - zy*zy + cx, 2.0*zx * zy + cy) (i+1) compute (cx,cy) 0
- 12. Turing Drawings match action with | Action.Left -> xPos <- xPos + 1 if xPos >= mapWidth then xPos <- xPos - mapWidth | Action.Right -> xPos <- xPos - 1 if (xPos < 0) then xPos <- xPos + mapWidth | Action.Up -> yPos <- yPos - 1 if (yPos < 0) then yPos <- yPos + mapHeight | Action.Down -> yPos <- yPos + 1 if yPos >= mapHeight then yPos <- yPos - mapHeight
- 13. Inspirational Sites This is Colossal Deviant Art Zen Bullets
- 14. F# Libraries http://smallsharp.codeplex.com (Graphics) http://funscript.info (F# -> JS) http://www.pinksquirrellabs.com (CYAO Type Provider)
Editor's Notes
- #2: Bookshttp://zenbullets.com/book.phpSiteshttp://www.deviantart.com/digitalart/fractals/?order=67108864http://www.thisiscolossal.com/category/art/Toolshttps://smallsharp.codeplex.com/http://tsunami.io/http://tsunami.io/cloud_tsunami.htmlhttp://funscript.info/samples/mandelbrot.html
- #10: http://basil4life.deviantart.com/art/Colorful-Bubbles-393039067