L'Architecture systèmatique [JP]

2020年9月11日金曜日

2019年12月25日水曜日

Scala.js façade for p5.js

Scala.js façade for p5.js
=========================

[p5.js](https://p5js.org) 用の Scala.js façade を作ってみました、と言いたいのですが、まだ対応する function の欠損や型の不正確があり、完全互換までは未完です。
  先駆者は二人居ましたが、もう三年前で止まっています。jar も提供されていないため、どちらにしろ開発途上でした。実際うまく動かず、 global mode / instance mode も対応されていないようでした。

この façade は [Scala.js 1.0.0-RC3](https://www.scala-js.org/news/2019/11/26/announcing-scalajs-1.0.0-RC1/) 互換で開発していますが、2020 年 1 月末になれば Scala.js 1.0.0 として release されるため、本 façade は 2 月に release できる予定です。

repository はこちらです。

https://github.com/lamusique/Scala.js-p5.js

中に置いてある sample は一応動作します。Scala.js の compile 方法自体は省略します。

これを使うとどういう風に p5.js を Scala で書けるか、以下例を示します。

## Example
### global mode

global mode で書くと以下のようになります。
```scala
package samples

import scala.scalajs.js
import scala.scalajs.js.annotation._

// This import decides which mode.
import p5.js.modes.global.p5

@JSExportTopLevel("GlobalModeSampleApp")
@JSExportAll
object GlobalModeSampleApp {

def main(args: js.Array[String]): Unit = {

val p5InGlobalScope = p5()

val setupFn: () => Unit = () => {
      import p5InGlobalScope._

createCanvas(400, 400)
      background(0)
      noStroke()

()
    }

val drawFn: () => Unit = () => {
      import p5InGlobalScope._

if (mouseIsPressed) {
        ellipse(mouseX, mouseY, 20, 20)
      }
    }

p5InGlobalScope.setup = setupFn
    p5InGlobalScope.draw = drawFn

}
}

```

### instance mode

instance mode で書くと以下のようになります。
```scala
package samples

import scala.scalajs.js
import scala.scalajs.js.annotation._

// This import decides which mode.
import p5.js.modes.instance.p5

@JSExportTopLevel("InstanceModeSampleApp")
@JSExportAll
object InstanceModeSampleApp {

def main(args: js.Array[String]): Unit = {

val sketchFn: js.Function1[p5, Unit] = (sketch: p5) => {
      import sketch._

setup: () => Unit = () => {
        createCanvas(400, 400)
        background(0)
        noStroke()
        ()
      }

draw: () => Unit = () => {
        if (mouseIsPressed) {
          println(mouseX)
          println(mouseY)
          ellipse(mouseX, mouseY, 20, 20)
        }
      }

}

// instantiate
    val myp5 = p5(sketchFn)
  }
}

```

### p5.sound

p5.sound を使うと。
var を削除できます。
```scala
package samples

import scala.scalajs.js
import scala.scalajs.js.annotation._
import org.scalajs.dom
import org.scalajs.dom.document
import p5.js.modules.{FFT, Oscillator}

// This import decides which mode.
import p5.js.modes.instance.p5

@JSExportTopLevel("P5SoundSampleApp")
@JSExportAll
object P5SoundSampleApp {

// https://processing.github.io/p5.js-sound/examples/oscillatorMod_FM/
  def main(args: js.Array[String]): Unit = {

val sketchFn: js.Function1[p5, Unit] = (sketch: p5) => {

val carrier = Oscillator("sine")
      val modulator = Oscillator("sawtooth")
      val fft = FFT()

import sketch._
      setup = () => {
        createCanvas(800,400)
        noFill()

// Start the audio context on a click/touch event

val myDiv = createDiv("click to start audio")
        myDiv.style("color: white")
        myDiv.position(100, 100)

// implicit conversion
        // https://www.scala-js.org/doc/interoperability/types.html
        val onFulfilled: js.Function1[Unit, Unit] = Unit => {
          myDiv.remove()
          ()
        }

userStartAudio().`then`[Unit](
          onFulfilled)

carrier.amp(1)
        carrier.freq(220)
        carrier.start()

modulator.disconnect()
        modulator.amp(1)
        modulator.freq(4)
        modulator.start()

carrier.freq(modulator.mult(200).add(100))

// switches
        document.getElementById("start").addEventListener("click", (e: dom.Event) => {
          carrier.start()
        })
        document.getElementById("stop").addEventListener("click", (e: dom.Event) => {
          carrier.stop(0)
        })

()
      }

draw = () => {

background(30)

// map mouseY to moodulator freq between 0 and 20hz
        val modFreq = map(mouseY, 0, height, 20, 0)
        modulator.freq(modFreq)

// change the original amplitude of the sawOsc, before it's scaled.
        // negative amp reverses the waveform, and sounds percussive
        var modAmp = map(mouseX, 0, width, -1, 1)
        modulator.amp(modAmp)

// analyze the waveform
        val waveform = fft.waveform()

// draw the shape of the waveform
        stroke(255)
        strokeWeight(10)
        beginShape()

for (i <- 0 until waveform.length) {
          val x = map(i, 0, waveform.length, 0, width)
          val y = map(waveform(i), -1, 1, -height/2, height/2)
          vertex(x, y + height/2)
        }
        endShape()
      }

}

// instantiate
    val myp5 = p5(sketchFn)

println("the main ends.")
  }
}

```

作った感想
=========
1. 既存 library へ facade を作ってみると、Scala.js がよりわかる。JavaScript に対して苦労している点など。
1. immutable や functional に書ける。
1. しかし、すぐ書いて反映し試行錯誤できる live coding のような俊敏性は損なっている...。

References
==========
1. https://www.scala-js.org/doc/interoperability/facade-types.html
    - 公式 façade の書き方。
1. https://www.scala-js.org/libraries/facades.html
    - 既存 façade 一覧
    - 公式の façade の書き方の説明は抽象的な部分があるので、実際の例を見たほうが分りやすい。

2019年1月14日月曜日

四角の中に字がある文字 🈑

2018年12月15日土曜日

Lisp と共に

Lisp と共に  (Scala with Lisp)
==================================

一旦これは失敗録になります。後で何かしら解決したいですが。

経緯
====

_OpenMusic_ を触ったりするのですが、 _Common Lisp_ で作られており、 _OpenMusic_ の主題である list 処理を書きやすいようになっています。

さて _Scala_ で list を作ってみると、

```scala
val list = List(1, 2 , List(3, List(2, 3)))
```

何遍 `List` を入力すれば良いのかと思ってしまいます。

_Shapeless_ にしてもこれ。
```scala
val list = 1 :: 2 :: (3 :: (2 :: 3 :: HNil) :: HNil) :: HNil
```

nest したら `HNil` を恨みそうです。

なるほど、 _Lisp_ は list 表現に長けている。
```lisp
'(1 2 (3 (2 3)))
```

という事で、 _Scala_ を書きながら list について Lisp の如く記述量が少なくなれば、 list に関する余計な入力作業は無くなり、読み易くなります。その記述の単純化は抑もの Scala の思想でもあるように思います。

方法
====

考えられるもの
1. macro
1. Clojure

macro
-----
当初 macro で上手くできないかと思い、試行錯誤していましたが、やはり space 分かち書き (spacing) 、
```scala
(1 2 3 4)
```
は現状 scalac に許してもらえなさそうです。
```scala
Error:(25, 7) ';' expected but integer literal found.
    1 2 3 4
```

macro により
```scala
lisp {
1
2
3
4
}
```
こういう書き方はできます。 line break を分かち書きとして理解出来るからです。

Clojure
-------
そうです。 _Scala_ 上で _Clojure_ を使えれば、もうそれで良いかも知れません。
その方法は [sbt-clojure](https://github.com/Geal/sbt-clojure) になります。
しかし、そのまま導入しようとしたらエラーになります。
どうやら 4 年間手付かずの模様で、
- Scala: 2.10
- sbt: 0.13
でないと動かないようです。
Cf. http://central.maven.org/maven2/com/unhandledexpression/

まあ直せば良いかと、それでは一旦、 `IntelliJ` で導入して触ってみたところ、
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_OPYxW-N9bSIIWp7Czii7eGsP_8ldjWblqMWL8u5kPiYcxdCTWFB36AUk0oZClnNwVTesJby9SwYJWW0yRnZtJCfWPZhbzlMFLBhAwPg2pOrMnOeAWB61wqDb6HT9KMItOvEQ8Bm7VgY/s1600/Screenshot+2018-12-15+13.41.49.png" imageanchor="1" ><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEi_OPYxW-N9bSIIWp7Czii7eGsP_8ldjWblqMWL8u5kPiYcxdCTWFB36AUk0oZClnNwVTesJby9SwYJWW0yRnZtJCfWPZhbzlMFLBhAwPg2pOrMnOeAWB61wqDb6HT9KMItOvEQ8Bm7VgY/s320/Screenshot+2018-12-15+13.41.49.png" width="320" height="121" data-original-width="470" data-original-height="178" /></a>

エラーが出るじゃないですか。そのせいで定義箇所へ移動することもできないようです。
これは思った形ではないです。

結果
====

現状無理な気がしました。もう一度 macro の方法へ戻り、文字列などを parse するなどの方向にするしかないかも知れません。
失礼しました。
後に良い方法が見つかれば、こちらに記述します。

References
==========
- [macro project のつくりかた](https://www.scala-sbt.org/1.x/docs/Macro-Projects.html)
- [comma の外しかた](http://eed3si9n.com/removing-commas-with-sbt-nocomma)
- [Stackoverflow: dot vs space](https://stackoverflow.com/questions/38173203/difference-between-dot-and-space-in-scala)
- [OpenMusic の rhythm tree](http://support.ircam.fr/docs/om/om6-manual/co/RT1.html)

2017年1月24日火曜日

Spotlight 検索結果のパスを見る方法

2017年1月19日木曜日

Inbox でピン付けしたメールを Gmail で探す

2016年7月3日日曜日

FaceTime for Mac で電話を掛けられるが FaceTime ができない

2016年6月5日日曜日

Agile Methodologies - アジャイル方法論まとめ

アジャイル方法論 まとめ
====================

|略称|名前|原書|翻訳本|
|--|--|--|--|
|LeSS|Large-scale Scrum|<a  href="http://www.amazon.co.jp/gp/product/0321985710/ref=as_li_tf_il?ie=UTF8&camp=247&creative=1211&creativeASIN=0321985710&linkCode=as2&tag=nekopolis-22"><img border="0" src="http://ws-fe.amazon-adsystem.com/widgets/q?_encoding=UTF8&ASIN=0321985710&Format=_SL160_&ID=AsinImage&MarketPlace=JP&ServiceVersion=20070822&WS=1&tag=nekopolis-22" ></a><img src="http://ir-jp.amazon-adsystem.com/e/ir?t=nekopolis-22&l=as2&o=9&a=0321985710" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />|未定 ラージスケール・スクラム|
|DAD|Disciplined Agile Delivery|<a  href="http://www.amazon.co.jp/gp/product/B0087HTKA4/ref=as_li_tf_il?ie=UTF8&camp=247&creative=1211&creativeASIN=B0087HTKA4&linkCode=as2&tag=nekopolis-22"><img border="0" src="http://ws-fe.amazon-adsystem.com/widgets/q?_encoding=UTF8&ASIN=B0087HTKA4&Format=_SL160_&ID=AsinImage&MarketPlace=JP&ServiceVersion=20070822&WS=1&tag=nekopolis-22" ></a><img src="http://ir-jp.amazon-adsystem.com/e/ir?t=nekopolis-22&l=as2&o=9&a=B0087HTKA4" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />|ディシプリンド・アジャイル・デリバリー <a  href="http://www.amazon.co.jp/gp/product/4798130613/ref=as_li_tf_il?ie=UTF8&camp=247&creative=1211&creativeASIN=4798130613&linkCode=as2&tag=nekopolis-22"><img border="0" src="http://ws-fe.amazon-adsystem.com/widgets/q?_encoding=UTF8&ASIN=4798130613&Format=_SL160_&ID=AsinImage&MarketPlace=JP&ServiceVersion=20070822&WS=1&tag=nekopolis-22" ></a><img src="http://ir-jp.amazon-adsystem.com/e/ir?t=nekopolis-22&l=as2&o=9&a=4798130613" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />|
|SAFe (セーフ)|Scaled Agile Framework|Release on November 27, 2016 <a  href="http://www.amazon.co.jp/gp/product/0134209427/ref=as_li_tf_tl?ie=UTF8&camp=247&creative=1211&creativeASIN=0134209427&linkCode=as2&tag=nekopolis-22">Scaled Agile Framework (SAFe) Distilled: A Practical Guide to Scaling Agile in the Enterprise</a><img src="http://ir-jp.amazon-adsystem.com/e/ir?t=nekopolis-22&l=as2&o=9&a=0134209427" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />|未定 スケールド・アジャイル・フレームワーク|
|ASR|Agile Software Requirements|<a  href="http://www.amazon.co.jp/gp/product/0321635841/ref=as_li_tf_il?ie=UTF8&camp=247&creative=1211&creativeASIN=0321635841&linkCode=as2&tag=nekopolis-22"><img border="0" src="http://ws-fe.amazon-adsystem.com/widgets/q?_encoding=UTF8&ASIN=0321635841&Format=_SL160_&ID=AsinImage&MarketPlace=JP&ServiceVersion=20070822&WS=1&tag=nekopolis-22" ></a><img src="http://ir-jp.amazon-adsystem.com/e/ir?t=nekopolis-22&l=as2&o=9&a=0321635841" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />|アジャイルソフトウェア要求<a  href="http://www.amazon.co.jp/gp/product/4798135321/ref=as_li_tf_il?ie=UTF8&camp=247&creative=1211&creativeASIN=4798135321&linkCode=as2&tag=nekopolis-22"><img border="0" src="http://ws-fe.amazon-adsystem.com/widgets/q?_encoding=UTF8&ASIN=4798135321&Format=_SL160_&ID=AsinImage&MarketPlace=JP&ServiceVersion=20070822&WS=1&tag=nekopolis-22" ></a><img src="http://ir-jp.amazon-adsystem.com/e/ir?t=nekopolis-22&l=as2&o=9&a=4798135321" width="1" height="1" border="0" alt="" style="border:none !important; margin:0px !important;" />|

2015年12月25日金曜日

Scala JIRA

Scala JIRA
============
[Scala Advent Calendar 2015](http://qiita.com/advent-calendar/2015/scala) 25日目

*English version: http://sys-architecture.blogspot.com/2015/12/scala-jira.html*

抽象的な話題を書こうかと思いましたが、しかしもう時間ないので、具体的な話をして Xmas を終わらせます。

Issue Tracker の JIRA は、大量なデータや操作に対して
- CSV での入出力
- REST での入出力
ができます。

しかし、どちらも 1 request 1000 items までしか response がもらえません。
ということで、 JIRA での複雑で大量な操作に対しては、 REST が適していると言えます。

JIRA の REST には Java の library が用意されています。
[JIRA REST Java Client (JRJC)](https://ecosystem.atlassian.net/wiki/display/JRJC/Home) というものです。

programing するならこれを使えばいいのですが、今更 Java で書く気がないので、 Scala で書きたい。

要するに **Scala で JIRA REST を操る土台** を作りました。
わざわざそう言って用意したのは最新の JRJC には意外と documentation がなく、単純でなかったためです。
- class や構造が変わっていたり、
- sbt の設定 (Maven Dependency) が分からなかったり、

で梃子摺りました。

build.sbt に設定すべき dependencies の内容です。
```scala

libraryDependencies += "com.atlassian.jira" % "jira-rest-java-client-api" % "3.0.0"
libraryDependencies += "com.atlassian.jira" % "jira-rest-java-client-core" % "3.0.0"

resolvers += "spring-milestones" at "http://repo.spring.io/libs-milestone/"

```

Sample App です。動作させるには上記以外の dependency も必要です。
```scala

import java.net.URI

import com.atlassian.jira.rest.client.internal.async.AsynchronousJiraRestClientFactory
import org.joda.time.DateTime
import org.joda.time.format._

import scala.collection.JavaConverters._

/**
  * Created on 2015/12/02.
  */
object Auth {

def main(args: Array[String]) {
    val restClientFactory = new AsynchronousJiraRestClientFactory()
    // http://host:port/context/rest/api-name/api-version/resource-name

import com.typesafe.config.ConfigFactory
    val conf = ConfigFactory.load("account.conf")

//val JIRA_BASE_URL = "http://[team name].atlassian.net/plugins/servlet/oauth/request-token"
    val jiraBaseURL = conf.getString("baseurl")

// JIRA_BASE_URL + "/plugins/servlet/oauth/request-token"
    val uri = new URI(jiraBaseURL)

val username = conf.getString("username")
    val password = conf.getString("password")
    val client = restClientFactory.createWithBasicHttpAuthentication(uri, username, password)

// Invoke the JRJC Client
    val promise = client.getUserClient().getUser(username)
    val user = promise.claim()

client.getProjectClient().getAllProjects().claim().iterator().asScala.map(project => {
      println(project.getKey() + ": " + project.getName())
    })

val dateTime = DateTime.now()
    val dateString = DateTimeFormat.forPattern("yyyy-MM-dd").print(dateTime)
    println("dateString=" + dateString)
    // up to 1000 items even if you specify more.
    val maxResults = 10
    val searchJqlPromise = client.getSearchClient().searchJql(s"due=$dateString ORDER BY assignee", maxResults, null, null)

searchJqlPromise.claim().getIssues.asScala.map(issue => {
      println(issue.getKey + ": " + issue.getSummary)
    })

// Print the result
    println(String.format("Your admin user's email address is: %s\r\n", user.getEmailAddress()));

// Done
    println("Example complete. Now exiting.");
    System.exit(0);

}

```

全体は [こちら](https://github.com/lamusique/ScalaJIRA) にあります。

Merry Xmas :)

2015年12月24日木曜日

つかむ

つかむ in 3D with Processing
================================
[Processing Advent Calendar 2015](https://atnd.org/events/72012) 25日目

*English version: http://sys-architecture.blogspot.com/2015/12/grab-an-object-in-3d-with-processing.html*

3D Object を掴んで移動させたい。
ただそれだけのことだったのですが、そんなに簡単な問題ではないとわかりました。
3D については素人です。

方法は、
1. pixels matching
    - 奥側の座標を pixel 化して matching させる計算機科学的方法
1. ray casting
    - cursor からの直線上に存在するか線型代数学的方法

がありそうなことはわかりました。

1 は trick なのでまずは 2 をやろうとしましたが、
Processing API には screen 座標から model 座標への変換処理がまだないようです。作ってあげればいいのですが...。

手前から奥への Camera の角度から 2 を実現しようとしましたが、よく分からない歪みによってうまくいかない状態です。

ということで、とりあえず今回の機会に間に合わすために、
model から screen への変換ができる screenX などの既存の method を使いました。

![demo](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhJ8f82uKoEa2RktZ5qN17n3o61CkCPUYQjs9KKHMt74n6lUM5M8_uBHXURtSqKSaQge4DvsGClD5fXqETnZNTRCBHZ1JkmaEQRMlpD2OkxDZjTaVH8lbyRX6EnCOl9LVBY0C52l9YrioE/s1600/grabbing-demo-trimmed.gif)

P5.js で見せたかったのですが、時間がありませんでした。

私が [Processing with Scala](http://sys-architecture.blogspot.com/2015/12/processing-with-scala.html) で書いたコードは [こちら](https://github.com/lamusique/ScalaProcessing/blob/feature/samples/src/test/scala/com/nekopiano/scala/processing/sandbox/sample/Grabbing.scala) にあります。

課題
- inverse matrix の処理を実装し本来の処理を行う
- mouse と model の移動量を同期
- 手前に見えているものだけ移動

2015年12月13日日曜日

Processing with Scala

プロセッシング・ウィズ・スカーラー
================================
English version: http://sys-architecture.blogspot.com/2015/12/processing-with-scala.html

Processing の文法は基本的に Java です。
しかし今は関数型言語の時代。古き良き時代の文法を抱え込んだ Java では色々書くのがまどろっこしいのです。
最後に**強制される**命令言語的な `;` とか。

そこで JVM 上で動く関数型言語 Scala /ˈskɑːlɑː/ を書くことで、 Processing を実現しようと思います。
純粋に JavaScript 上で Processing を実現する P5.js も同じような方向性ですね。

作成のベースになる Scala はこちらに作成しました。
> https://github.com/lamusique/ScalaProcessing

最近は、 Processing も Maven Repository に置かれるようになったため、 Scala への取り込みも楽です。

さて、一例を。
Processing の Examples にある
https://processing.org/examples/bouncybubbles.html
を Scala で書いてみたら以下のようになりました。

```scala
package com.nekopiano.scala.processing.sandbox.sample

import com.nekopiano.scala.processing.ScalaPApplet
import processing.core.PApplet

class BouncyBubbles extends ScalaPApplet {
  import BouncyBubbles._

val balls:Set[Ball] = {
    // in parallel
    val localBalls = (0 to numBalls).par.map(i => {
      new Ball(random(width), random(height), random(30, 70), i)
    }).seq.toSet
    localBalls.foreach(_.others = localBalls)
    localBalls
  }

override def settings(): Unit = {
    size(640, 360)
  }

override def setup() {
    noStroke()
    fill(255, 204)
  }

override def draw() {
    background(0)
    balls.foreach(ball => {
      ball.collide()
      ball.move()
      ball.display()
    })
  }

}

object BouncyBubbles {
  // Constants
  val numBalls = 12

val spring = 0.05f
  val gravity = 0.03f
  val friction = -0.9f

// ==== booting process
  val BOOTING_CLASS_NAME = this.getClass.getName.dropRight(1)
  def main(args: Array[String]) {
    // This specifies the class to be instantiated.
    val appletArgs = Array(BOOTING_CLASS_NAME)
    if (args != null) {
      PApplet.main(PApplet.concat(appletArgs, args))
    } else {
      PApplet.main(appletArgs)
    }
  }
}

class Ball(var x:Float, var y:Float, val diameter:Float, val id:Int)(implicit val sp5: ScalaPApplet) {

import sp5._
  import com.nekopiano.scala.processing.Angles._
  import BouncyBubbles._

var others: Set[Ball] = Set.empty[Ball]

var vx = 0f
  var vy = 0f

def collide() {
    others.foreach(ball => {
      val dx = ball.x - x
      val dy = ball.y - y
      val distance = sqrt(dx*dx + dy*dy)
      val minDist = ball.diameter/2 + this.diameter/2
      if (distance < minDist) {
        val angle = atan2(dy, dx)
        val targetX = x + cos(angle) * minDist
        val targetY = y + sin(angle) * minDist
        val ax = (targetX - ball.x) * spring
        val ay = (targetY - ball.y) * spring
        vx -= ax
        vy -= ay
        ball.vx += ax
        ball.vy += ay
      }

})
  }

def move() {
    vy += gravity
    x += vx
    y += vy
    if (x + diameter/2 > width) {
      x = width - diameter/2
      vx *= friction
    }
    else if (x - diameter/2 < 0) {
      x = diameter/2
      vx *= friction
    }
    if (y + diameter/2 > height) {
      y = height - diameter/2
      vy *= friction
    }
    else if (y - diameter/2 < 0) {
      y = diameter/2
      vy *= friction
    }
  }

def display() {
    ellipse(x, y, diameter, diameter)
  }
}

```
うーん、あんまり代わり映えがなく面白くないですね（笑）例が悪かったのか。

ベースの class にはまだ PApplet などから全部移植していないので work in progress です...。
Scala の得意な並列処理は、描画処理 (line, box, etc.) の手前で止めないとエラーになります。描画の並列処理は GPU のお仕事なので。

Processing 上の Scala エディターも作れたらいいなと思います。手軽に書けるので。
SPD というエディターもありましたが、 6 年前から止まっているようですね。
https://github.com/n8han/spde-examples

Scala を書く人なら、 Scala で一度書いてみてはどうでしょうか。
https://github.com/lamusique/ScalaProcessing をテンプレートに利用できます。
色々と Processing 内部の仕組みもわかってくると思います。