EmacsとGlossでお絵描きしてみるよ

11
EmacsとGlossでお絵描きしてみるよ EmacsとGlossでお絵描きしてみるよ EmacsとGlossでお絵描きしてみるよ EmacsとGlossでお絵描きしてみるよ EmacsとGlossでお絵描きしてみるよ Kiwamu Okabe Kiwamu Okabe Kiwamu Okabe Kiwamu Okabe Kiwamu Okabe

description

http://partake.in/events/ab7f77b4-7541-47a4-867d-21a096ca883c

Transcript of EmacsとGlossでお絵描きしてみるよ

Page 1: EmacsとGlossでお絵描きしてみるよ

EmacsとGlossでお絵描きしてみるよEmacsとGlossでお絵描きしてみるよEmacsとGlossでお絵描きしてみるよEmacsとGlossでお絵描きしてみるよEmacsとGlossでお絵描きしてみるよ

Kiwamu OkabeKiwamu OkabeKiwamu OkabeKiwamu OkabeKiwamu Okabe

Page 2: EmacsとGlossでお絵描きしてみるよ

わたしはだれ？わたしはだれ？わたしはだれ？わたしはだれ？わたしはだれ？

☆ Twitter: @master_q☆ Twitter: @master_q☆ Twitter: @master_q☆ Twitter: @master_q☆ Twitter: @master_q

☆ 最近転職しました☆ 最近転職しました☆ 最近転職しました☆ 最近転職しました☆ 最近転職しました

☆ ミラクル・リナックス株式会社 勤務☆ ミラクル・リナックス株式会社 勤務☆ ミラクル・リナックス株式会社 勤務☆ ミラクル・リナックス株式会社 勤務☆ ミラクル・リナックス株式会社勤務

☆ Linuxでデジタルサイネージを作ってるー☆ Linuxでデジタルサイネージを作ってるー☆ Linuxでデジタルサイネージを作ってるー☆ Linuxでデジタルサイネージを作ってるー☆ Linuxでデジタルサイネージを作ってるー

☆ ユニクロ銀座店に行くと実機が見れるかも☆ ユニクロ銀座店に行くと実機が見れるかも☆ ユニクロ銀座店に行くと実機が見れるかも☆ ユニクロ銀座店に行くと実機が見れるかも☆ ユニクロ銀座店に行くと実機が見れるかも

Page 3: EmacsとGlossでお絵描きしてみるよ

今日のお題今日のお題今日のお題今日のお題今日のお題

☆ Emacsエディタ上の☆ Emacsエディタ上の☆ Emacsエディタ上の☆ Emacsエディタ上の☆ Emacsエディタ上の

☆ ghc-modという編集モードで☆ ghc-modという編集モードで☆ ghc-modという編集モードで☆ ghc-modという編集モードで☆ ghc-modという編集モードでhttp://www.mew.org/~kazu/proj/ghc-mod/en/http://www.mew.org/~kazu/proj/ghc-mod/en/http://www.mew.org/~kazu/proj/ghc-mod/en/http://www.mew.org/~kazu/proj/ghc-mod/en/http://www.mew.org/~kazu/proj/ghc-mod/en/

☆ Glossというパッケージを使って☆ Glossというパッケージを使って☆ Glossというパッケージを使って☆ Glossというパッケージを使って☆ Glossというパッケージを使ってhttp://hackage.haskell.org/package/glosshttp://hackage.haskell.org/package/glosshttp://hackage.haskell.org/package/glosshttp://hackage.haskell.org/package/glosshttp://hackage.haskell.org/package/gloss

☆ 二次元萌え画像を作成せよ☆ 二次元萌え画像を作成せよ☆ 二次元萌え画像を作成せよ☆ 二次元萌え画像を作成せよ☆ 二次元萌え画像を作成せよ

Page 4: EmacsとGlossでお絵描きしてみるよ

環境設定: Debian sidの場合環境設定: Debian sidの場合環境設定: Debian sidの場合環境設定: Debian sidの場合環境設定: Debian sidの場合

$ sudo apt-get install ghc-mod$ sudo apt-get install ghc-mod$ sudo apt-get install ghc-mod$ sudo apt-get install ghc-mod$ sudo apt-get install ghc-mod

$ cabal install gloss$ cabal install gloss$ cabal install gloss$ cabal install gloss$ cabal install gloss

簡単〜簡単〜簡単〜簡単〜簡単〜

Page 5: EmacsとGlossでお絵描きしてみるよ

環境設定: それ以外の方環境設定: それ以外の方環境設定: それ以外の方環境設定: それ以外の方環境設定: それ以外の方

たぶんこんな感じ？たぶんこんな感じ？たぶんこんな感じ？たぶんこんな感じ？たぶんこんな感じ？$ cabal install gloss ghc-mod$ export PATH=$HOME/.cabal/bin:$PATH$ cd ~/.cabal/share/ghc-mod-1.10.15$ make$ lsMakefile ghc-doc.el ghc-func.elc ghc-ins-mod.elghc-command.el ghc-doc.elc ghc-indent.el ghc-ins-mod.elcghc-command.elc ghc-flymake.el ghc-indent.elc ghc.elghc-comp.el ghc-flymake.elc ghc-info.el ghc.elcghc-comp.elc ghc-func.el ghc-info.elc$ vi ~/.emacs(setq load-path (cons "/home/kiwamu/.cabal/share/ghc-mod-1.10.15" load-path))(autoload 'ghc-init "ghc" nil t)(add-hook 'haskell-mode-hook (lambda () (ghc-init) (flymake-mode)))

$ cabal install gloss ghc-mod$ export PATH=$HOME/.cabal/bin:$PATH$ cd ~/.cabal/share/ghc-mod-1.10.15$ make$ lsMakefile ghc-doc.el ghc-func.elc ghc-ins-mod.elghc-command.el ghc-doc.elc ghc-indent.el ghc-ins-mod.elcghc-command.elc ghc-flymake.el ghc-indent.elc ghc.elghc-comp.el ghc-flymake.elc ghc-info.el ghc.elcghc-comp.elc ghc-func.el ghc-info.elc$ vi ~/.emacs(setq load-path (cons "/home/kiwamu/.cabal/share/ghc-mod-1.10.15" load-path))(autoload 'ghc-init "ghc" nil t)(add-hook 'haskell-mode-hook (lambda () (ghc-init) (flymake-mode)))

$ cabal install gloss ghc-mod$ export PATH=$HOME/.cabal/bin:$PATH$ cd ~/.cabal/share/ghc-mod-1.10.15$ make$ lsMakefile ghc-doc.el ghc-func.elc ghc-ins-mod.elghc-command.el ghc-doc.elc ghc-indent.el ghc-ins-mod.elcghc-command.elc ghc-flymake.el ghc-indent.elc ghc.elghc-comp.el ghc-flymake.elc ghc-info.el ghc.elcghc-comp.elc ghc-func.el ghc-info.elc$ vi ~/.emacs(setq load-path (cons "/home/kiwamu/.cabal/share/ghc-mod-1.10.15" load-path))(autoload 'ghc-init "ghc" nil t)(add-hook 'haskell-mode-hook (lambda () (ghc-init) (flymake-mode)))

$ cabal install gloss ghc-mod$ export PATH=$HOME/.cabal/bin:$PATH$ cd ~/.cabal/share/ghc-mod-1.10.15$ make$ lsMakefile ghc-doc.el ghc-func.elc ghc-ins-mod.elghc-command.el ghc-doc.elc ghc-indent.el ghc-ins-mod.elcghc-command.elc ghc-flymake.el ghc-indent.elc ghc.elghc-comp.el ghc-flymake.elc ghc-info.el ghc.elcghc-comp.elc ghc-func.el ghc-info.elc$ vi ~/.emacs(setq load-path (cons "/home/kiwamu/.cabal/share/ghc-mod-1.10.15" load-path))(autoload 'ghc-init "ghc" nil t)(add-hook 'haskell-mode-hook (lambda () (ghc-init) (flymake-mode)))

$ cabal install gloss ghc-mod$ export PATH=$HOME/.cabal/bin:$PATH$ cd ~/.cabal/share/ghc-mod-1.10.15$ make$ lsMakefile ghc-doc.el ghc-func.elc ghc-ins-mod.elghc-command.el ghc-doc.elc ghc-indent.el ghc-ins-mod.elcghc-command.elc ghc-flymake.el ghc-indent.elc ghc.elghc-comp.el ghc-flymake.elc ghc-info.el ghc.elcghc-comp.elc ghc-func.el ghc-info.elc$ vi ~/.emacs(setq load-path (cons "/home/kiwamu/.cabal/share/ghc-mod-1.10.15" load-path))(autoload 'ghc-init "ghc" nil t)(add-hook 'haskell-mode-hook (lambda () (ghc-init) (flymake-mode)))

@kazu_yamamoto さんに聞いて!@kazu_yamamoto さんに聞いて!@kazu_yamamoto さんに聞いて!@kazu_yamamoto さんに聞いて!@kazu_yamamoto さんに聞いて!

Page 6: EmacsとGlossでお絵描きしてみるよ

参考書参考書参考書参考書参考書

☆ Preludeのhaddock☆ Preludeのhaddock☆ Preludeのhaddock☆ Preludeのhaddock☆ Preludeのhaddockhttp://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.htmlhttp://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.htmlhttp://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.htmlhttp://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.htmlhttp://hackage.haskell.org/packages/archive/base/latest/doc/html/Prelude.html

☆ Glossのhaddock☆ Glossのhaddock☆ Glossのhaddock☆ Glossのhaddock☆ Glossのhaddockhttp://hackage.haskell.org/packages/archive/gloss/latest/doc/html/Graphics-Gloss.htmlhttp://hackage.haskell.org/packages/archive/gloss/latest/doc/html/Graphics-Gloss.htmlhttp://hackage.haskell.org/packages/archive/gloss/latest/doc/html/Graphics-Gloss.htmlhttp://hackage.haskell.org/packages/archive/gloss/latest/doc/html/Graphics-Gloss.htmlhttp://hackage.haskell.org/packages/archive/gloss/latest/doc/html/Graphics-Gloss.html

☆ Hoogle☆ Hoogle☆ Hoogle☆ Hoogle☆ Hooglehttp://www.haskell.org/hoogle/http://www.haskell.org/hoogle/http://www.haskell.org/hoogle/http://www.haskell.org/hoogle/http://www.haskell.org/hoogle/

があればなんとかなるんじゃなイカ？があればなんとかなるんじゃなイカ？があればなんとかなるんじゃなイカ？があればなんとかなるんじゃなイカ？があればなんとかなるんじゃなイカ？

Page 7: EmacsとGlossでお絵描きしてみるよ

ライブコーディング開始ですライブコーディング開始ですライブコーディング開始ですライブコーディング開始ですライブコーディング開始です

Glossのhaddockに書かれている例から始めましょーGlossのhaddockに書かれている例から始めましょーGlossのhaddockに書かれている例から始めましょーGlossのhaddockに書かれている例から始めましょーGlossのhaddockに書かれている例から始めましょーimport Graphics.Glossmain = display (InWindow "Nice Window" (200, 200) (10, 10)) white (Circle 80)

import Graphics.Glossmain = display (InWindow "Nice Window" (200, 200) (10, 10)) white (Circle 80)

import Graphics.Glossmain = display (InWindow "Nice Window" (200, 200) (10, 10)) white (Circle 80)

import Graphics.Glossmain = display (InWindow "Nice Window" (200, 200) (10, 10)) white (Circle 80)

import Graphics.Glossmain = display (InWindow "Nice Window" (200, 200) (10, 10)) white (Circle 80)

Page 8: EmacsとGlossでお絵描きしてみるよ

今日作ったコード #1今日作ったコード #1今日作ったコード #1今日作ったコード #1今日作ったコード #1import Graphics.Gloss

fib :: [Float]fib = 1:1:zipWith (+) fib (tail fib)

data Way = WLeft | WRight | WUp | WDownnext :: Way -> Waynext WLeft = WDownnext WDown = WRightnext WRight = WUpnext WUp = WLeft

jumpTo :: Num t => Way -> t -> t -> (t, t)jumpTo WLeft a b = (-b - a, -b + a)jumpTo WDown a b = (b - a, -b - a)jumpTo WRight a b = (b + a, b - a)jumpTo WUp a b = (-b + a, b + a)

import Graphics.Gloss

fib :: [Float]fib = 1:1:zipWith (+) fib (tail fib)

data Way = WLeft | WRight | WUp | WDownnext :: Way -> Waynext WLeft = WDownnext WDown = WRightnext WRight = WUpnext WUp = WLeft

jumpTo :: Num t => Way -> t -> t -> (t, t)jumpTo WLeft a b = (-b - a, -b + a)jumpTo WDown a b = (b - a, -b - a)jumpTo WRight a b = (b + a, b - a)jumpTo WUp a b = (-b + a, b + a)

import Graphics.Gloss

fib :: [Float]fib = 1:1:zipWith (+) fib (tail fib)

data Way = WLeft | WRight | WUp | WDownnext :: Way -> Waynext WLeft = WDownnext WDown = WRightnext WRight = WUpnext WUp = WLeft

jumpTo :: Num t => Way -> t -> t -> (t, t)jumpTo WLeft a b = (-b - a, -b + a)jumpTo WDown a b = (b - a, -b - a)jumpTo WRight a b = (b + a, b - a)jumpTo WUp a b = (-b + a, b + a)

import Graphics.Gloss

fib :: [Float]fib = 1:1:zipWith (+) fib (tail fib)

data Way = WLeft | WRight | WUp | WDownnext :: Way -> Waynext WLeft = WDownnext WDown = WRightnext WRight = WUpnext WUp = WLeft

jumpTo :: Num t => Way -> t -> t -> (t, t)jumpTo WLeft a b = (-b - a, -b + a)jumpTo WDown a b = (b - a, -b - a)jumpTo WRight a b = (b + a, b - a)jumpTo WUp a b = (-b + a, b + a)

import Graphics.Gloss

fib :: [Float]fib = 1:1:zipWith (+) fib (tail fib)

data Way = WLeft | WRight | WUp | WDownnext :: Way -> Waynext WLeft = WDownnext WDown = WRightnext WRight = WUpnext WUp = WLeft

jumpTo :: Num t => Way -> t -> t -> (t, t)jumpTo WLeft a b = (-b - a, -b + a)jumpTo WDown a b = (b - a, -b - a)jumpTo WRight a b = (b + a, b - a)jumpTo WUp a b = (-b + a, b + a)

(次ページに続く)(次ページに続く)(次ページに続く)(次ページに続く)(次ページに続く)

Page 9: EmacsとGlossでお絵描きしてみるよ

今日作ったコード #2今日作ったコード #2今日作ったコード #2今日作ったコード #2今日作ったコード #2position :: Num b => [b] -> [(b, b)]position l = pos (0, 0) WDown (0 : l) where pos p w (x:xs) = let p' = p `tplus` jumpTo w x (head xs) in p' : pos p' (next w) xs pos _ _ [] = [] tplus a b = let (f, s) = unzip [a, b] in (sum f, sum s)

putCircle :: (Float, Float) -> Float -> PictureputCircle (x, y) r = Translate x y $ Circle r

circles :: [Float] -> Float -> Picturecircles l t = Scale s s . Pictures . take (truncate t) $ c where r = fmap (*5) l s = 10 / (1.4 ** t) c = zipWith putCircle (position r) r

main :: IO ()main = animate win white $ circles fib where win = InWindow "MyApp" (1024 `div` 2, 768 `div` 2) (0, 0)

position :: Num b => [b] -> [(b, b)]position l = pos (0, 0) WDown (0 : l) where pos p w (x:xs) = let p' = p `tplus` jumpTo w x (head xs) in p' : pos p' (next w) xs pos _ _ [] = [] tplus a b = let (f, s) = unzip [a, b] in (sum f, sum s)

putCircle :: (Float, Float) -> Float -> PictureputCircle (x, y) r = Translate x y $ Circle r

circles :: [Float] -> Float -> Picturecircles l t = Scale s s . Pictures . take (truncate t) $ c where r = fmap (*5) l s = 10 / (1.4 ** t) c = zipWith putCircle (position r) r

main :: IO ()main = animate win white $ circles fib where win = InWindow "MyApp" (1024 `div` 2, 768 `div` 2) (0, 0)

position :: Num b => [b] -> [(b, b)]position l = pos (0, 0) WDown (0 : l) where pos p w (x:xs) = let p' = p `tplus` jumpTo w x (head xs) in p' : pos p' (next w) xs pos _ _ [] = [] tplus a b = let (f, s) = unzip [a, b] in (sum f, sum s)

putCircle :: (Float, Float) -> Float -> PictureputCircle (x, y) r = Translate x y $ Circle r

circles :: [Float] -> Float -> Picturecircles l t = Scale s s . Pictures . take (truncate t) $ c where r = fmap (*5) l s = 10 / (1.4 ** t) c = zipWith putCircle (position r) r

main :: IO ()main = animate win white $ circles fib where win = InWindow "MyApp" (1024 `div` 2, 768 `div` 2) (0, 0)

position :: Num b => [b] -> [(b, b)]position l = pos (0, 0) WDown (0 : l) where pos p w (x:xs) = let p' = p `tplus` jumpTo w x (head xs) in p' : pos p' (next w) xs pos _ _ [] = [] tplus a b = let (f, s) = unzip [a, b] in (sum f, sum s)

putCircle :: (Float, Float) -> Float -> PictureputCircle (x, y) r = Translate x y $ Circle r

circles :: [Float] -> Float -> Picturecircles l t = Scale s s . Pictures . take (truncate t) $ c where r = fmap (*5) l s = 10 / (1.4 ** t) c = zipWith putCircle (position r) r

main :: IO ()main = animate win white $ circles fib where win = InWindow "MyApp" (1024 `div` 2, 768 `div` 2) (0, 0)

position :: Num b => [b] -> [(b, b)]position l = pos (0, 0) WDown (0 : l)where

pos p w (x:xs) = let p' = p `tplus` jumpTo w x (head xs)in p' : pos p' (next w) xs

pos _ _ [] = [] tplus a b = let (f, s) = unzip [a, b] in (sum f, sum s)

putCircle :: (Float, Float) -> Float -> PictureputCircle (x, y) r = Translate x y $ Circle r

circles :: [Float] -> Float -> Picturecircles l t = Scale s s . Pictures . take (truncate t) $ cwhere r = fmap (*5) l

s = 10 / (1.4 ** t) c = zipWith putCircle (position r) r

main :: IO ()main = animate win white $ circles fibwhere win = InWindow "MyApp" (1024 `div` 2, 768 `div` 2) (0, 0)

Page 10: EmacsとGlossでお絵描きしてみるよ

ちょっとウンチクちょっとウンチクちょっとウンチクちょっとウンチクちょっとウンチク

http://ja.wikipedia.org/wiki/黄金長方形http://ja.wikipedia.org/wiki/黄金長方形http://ja.wikipedia.org/wiki/黄金長方形http://ja.wikipedia.org/wiki/黄金長方形http://ja.wikipedia.org/wiki/黄金長方形

Page 11: EmacsとGlossでお絵描きしてみるよ

宣伝: HaskellやるならDebian!宣伝: HaskellやるならDebian!宣伝: HaskellやるならDebian!宣伝: HaskellやるならDebian!宣伝: HaskellやるならDebian!

☆ 次のリリースではghc 7.4が使えるよ☆ 次のリリースではghc 7.4が使えるよ☆ 次のリリースではghc 7.4が使えるよ☆ 次のリリースではghc 7.4が使えるよ☆ 次のリリースではghc 7.4が使えるよ

☆ (実はUbuntuのHaskellパッケージはDebianをそのままパクってるんだよ!)☆ (実はUbuntuのHaskellパッケージはDebianをそのままパクってるんだよ!)☆ (実はUbuntuのHaskellパッケージはDebianをそのままパクってるんだよ!)☆ (実はUbuntuのHaskellパッケージはDebianをそのままパクってるんだよ!)☆ (実はUbuntuのHaskellパッケージはDebianをそのままパクってるんだよ!)

☆ プロジェクトリーダーはOCaml使いだよ☆ プロジェクトリーダーはOCaml使いだよ☆ プロジェクトリーダーはOCaml使いだよ☆ プロジェクトリーダーはOCaml使いだよ☆ プロジェクトリーダーはOCaml使いだよ

☆ 関数型ならDebianで決まりだね!☆ 関数型ならDebianで決まりだね!☆ 関数型ならDebianで決まりだね!☆ 関数型ならDebianで決まりだね!☆ 関数型ならDebianで決まりだね!

☆ Debian勉強会やってるらしいよ☆ Debian勉強会やってるらしいよ☆ Debian勉強会やってるらしいよ☆ Debian勉強会やってるらしいよ☆ Debian勉強会やってるらしいよ

☆ http://tokyodebian.alioth.debian.org/☆ http://tokyodebian.alioth.debian.org/☆ http://tokyodebian.alioth.debian.org/☆ http://tokyodebian.alioth.debian.org/☆ http://tokyodebian.alioth.debian.org/


Gloss НГ_тур

Gloss НГ_тур

ac-mozc (kansai-emacs #x09)

ac-mozc (kansai-emacs #x09)

XMonad-oid on Emacs & More functional Emacs Lisp | 関数型LT大会

XMonad-oid on Emacs & More functional Emacs Lisp | 関数型LT大会

Emacs Lisp 紹介

Emacs Lisp 紹介

8F Emacs Seminar #20110715

8F Emacs Seminar #20110715

Tutorial Emacs - kholidfu.github.io · lagi. Anda pun dapat membuat versi emacs Anda sendiri, selama Anda mema-hami bagaimana cara melakukan pengembangan pada emacs. Pengembangan

Tutorial Emacs - kholidfu.github.io · lagi. Anda pun dapat membuat versi emacs Anda sendiri, selama Anda mema-hami bagaimana cara melakukan pengembangan pada emacs. Pengembangan

Gloss club

Gloss club

Gloss leto

Gloss leto

Emacs и Rails

Emacs и Rails

Gloss restaurants

Gloss restaurants

Михаил Бараблин - "Emacs & Rails"

Михаил Бараблин - "Emacs & Rails"

Una introducción rápida a GNU Emacs - TLDP-ES: Página ...es.tldp.org/Tutoriales/doc-tutorial-emacs/intro_emacs.pdf · 1. Panorámica general de Emacs GNU Emacs posiblemente sea

Una introducción rápida a GNU Emacs - TLDP-ES: Página ...es.tldp.org/Tutoriales/doc-tutorial-emacs/intro_emacs.pdf · 1. Panorámica general de Emacs GNU Emacs posiblemente sea

Atelier IDE Linux Emacs + JDEE + ANT. (X)Emacs Histoire Emacs signifie Editor MACroS. Projet initié en 1976 par Richard StallMan au MIT poursuivi par.

Atelier IDE Linux Emacs + JDEE + ANT. (X)Emacs Histoire Emacs signifie Editor MACroS. Projet initié en 1976 par Richard StallMan au MIT poursuivi par.

Presentacion emacs flisol 2012

Presentacion emacs flisol 2012

cosmopolitan - solusceramics.com...cosmopolitan Flat Matt Flat Gloss Bisel Matt Bisel Gloss Flat Matt Flat Gloss Bisel Matt Bisel Gloss 75x150 7.5mm 100x200 6.5mm 100x300 7.8mm 100x400

cosmopolitan - solusceramics.com...cosmopolitan Flat Matt Flat Gloss Bisel Matt Bisel Gloss Flat Matt Flat Gloss Bisel Matt Bisel Gloss 75x150 7.5mm 100x200 6.5mm 100x300 7.8mm 100x400

Uma Curtíssima Introdução ao Emacs Lispaleph0.info/jp/emacs-lisp.pdfUma Curtíssima Introdução ao Emacs Lisp Jerônimo C. Pellegrini 2020.05.12.05.58 id: c2c2cde6469d07bafd9fae1c72acdaa51f7bedfe

Uma Curtíssima Introdução ao Emacs Lispaleph0.info/jp/emacs-lisp.pdfUma Curtíssima Introdução ao Emacs Lisp Jerônimo C. Pellegrini 2020.05.12.05.58 id: c2c2cde6469d07bafd9fae1c72acdaa51f7bedfe

Emacs Docs

Emacs Docs

ac-mozc (kantou-emacs #x01)

ac-mozc (kantou-emacs #x01)

Dostavki gloss

Dostavki gloss

Mensch Gloss

Mensch Gloss