{
   "labels" : [
      "gui"
   ],
   "id" : "1-14",
   "is_private" : null,
   "code" : "(\r\nvar win, view;\r\nvar run = true;\r\nq = ();\r\n\r\nq.branches = List[];\r\n\r\nq.minWanderStep = 1.0184;\r\nq.maxWanderStep = 0.1702;\r\nq.minGrowthRate = 10.6214;\r\nq.maxGrowthRate = 11.8251;\r\nq.minShrinkRate = 0.99656;\r\nq.maxShrinkRate = 0.91265;\r\nq.branchProbability = 0.05;\r\nq.minDivergence = 1.3268;\r\nq.maxDivergence = 1.3885;\r\nq.maxConcurrent = 500;\r\nq.numBranches = 6;\r\nq.minRadius = 0.15;\r\nq.maxRadius = 70;\r\n\r\nq.makeBranch = {\r\n\targ env, x, y, theta, radius, scale = 1.0, generation = 1;\r\n\r\n\t(\r\n\t\tx: x, \r\n\t\ty: y,\r\n\t\tox:x, \r\n\t\toy: y,\r\n\t\tx1: nil, x2: nil,\r\n\t\ty1: nil, y2: nil,\r\n\t\tscale: 1.0,\r\n\t\ttheta: theta,\r\n\t\toTheta:theta,\r\n\t\tradius:radius,\r\n\t\tgeneration:1,\r\n\t\tgrowing:true,\r\n\t\tage:0,\r\n\t\twanderStep: rrand(q.minWanderStep, q.maxWanderStep),\r\n\t\tgrowthRate: rrand(q.minGrowthRate, q.maxGrowthRate),\r\n\t\tshrinkRate: rrand(q.minShrinkRate, q.maxShrinkRate),\r\n\t\tfRender: {\r\n\t\t\targ that, context;\r\n\t\t\tvar scale, radius;\r\n\t\t\tif(that.growing,\r\n\t\t\t\t{\r\n\t\t\t\t\tscale = that.scale;\r\n\t\t\t\t\tradius = that.radius * scale;\r\n\r\n\t\t\t\t\t// Draw outline\r\n\t\t\t\t\tPen.line(that.ox@that.oy,that.x@that.y);\r\n\t\t\t\t\t\r\n\t\t\t\t\t// not in qt...\r\n\t\t\t\t\tif((GUI.scheme == \"CocoaGUI\") and: (radius > 5.0), {\r\n\t\t\t\t\t \tPen.setShadow(1@1, scale, Color.new(0,0,0,0.05));\r\n\t\t\t\t\t});\r\n\t\t\t\t\t\r\n\t\t\t\t\tPen.width = radius + scale;\r\n\t\t\t\t\tPen.strokeColor = Color.black;\r\n\t\t\t\t\tPen.capStyle = 1; //round\r\n\t\t\t\t\tPen.stroke();\r\n\t\t\t\t\t\r\n\t\t\t\t\t// Draw fill\r\n\t\t\t\t\tPen.line(that.ox@that.oy, that.x@that.y);\r\n\r\n\t\t\t\t\tPen.width = radius;\r\n\t\t\t\t\tPen.strokeColor = Color.white;\r\n\t\t\t\t\tPen.capStyle = 1; //round\r\n\t\t\t\t\tPen.stroke();\r\n\t\t\t\t});\r\n\t\t},\r\n\t\tfUpdate: {\r\n\t\t\targ that;\r\n\t\t\tvar theta, scale, radius, branch, offset;\r\n\t\t\tif(that.growing,\r\n\t\t\t\t{\r\n\t\t\t\t\tthat.ox = that.x;\r\n\t\t\t\t\tthat.oy = that.y;\r\n\t\t\t\t\tthat.oTheta = that.theta;\r\n\r\n\t\t\t\t\tthat.theta = that.theta + rrand(that.wanderStep * -1,\r\n\t\t\t\t\t\tthat.wanderStep);\r\n\t\t\t\t\t\r\n\t\t\t\t\tthat.x = that.x + (cos(that.theta) \r\n\t\t\t\t\t\t* that.growthRate * that.scale);\r\n\t\t\t\t\tthat.y = that.y + (sin(that.theta) \r\n\t\t\t\t\t\t* that.growthRate * that.scale);\r\n\r\n\t\t\t\t\tthat.scale = that.scale * that.shrinkRate;\r\n\r\n\t\t\t\t\tif(\r\n\t\t\t\t\t\t(q.branches.size < q.maxConcurrent)\r\n\t\t\t\t\t\tand:\r\n\t\t\t\t\t\t(1.0.rand < q.branchProbability),\r\n\t\t\t\t\t\t{\r\n\t\t\t\t\t\t\toffset = rrand(q.minDivergence,\r\n\t\t\t\t\t\t\t\tq.maxDivergence);\r\n\t\t\t\t\t\t\ttheta = that.theta \r\n\t\t\t\t\t\t\t+ (offset * [1,-1].choose);\r\n\t\t\t\t\t\t\t\r\n\t\t\t\t\t\t\tscale = that.scale * 0.95;\r\n\t\t\t\t\t\t\tradius = that.radius * scale;\r\n\r\n\t\t\t\t\t\t\tbranch = q.makeBranch(\r\n\t\t\t\t\t\t\t\tthat.x, that.y, theta, radius, scale);\r\n\r\n\t\t\t\t\t\t\tbranch.generation = that.generation + 1;\r\n\t\t\t\t\t\t\tq.branches.add(branch);\r\n\t\t\t\t\t\t});\r\n\r\n\t\t\t\t\tif((that.radius * that.scale) <= q.minRadius, {\r\n\t\t\t\t\t\tthat.growing = false;\r\n\t\t\t\t\t});\r\n\r\n\t\t\t\t\tthat.age = (that.age + 1);\t\t\t\t\t\t\t\r\n\t\t\t\t})\r\n\t\t}\r\n\t)\r\n};\r\n\r\nq.makeRecursion = {\r\n\targ env;\r\n\r\n\t(\r\n\t\t//started: false,\r\n\t\tfSpawn: {\r\n\t\t\targ env, x,  y;\r\n\t\t\tvar theta, radius;\r\n\t\t\tq.branches = List[];\r\n\t\t\tq.numBranches.do{\r\n\t\t\t\targ i;\r\n\t\t\t\ttheta = (i / q.numBranches) * 2pi;\r\n\t\t\t\tradius = q.maxRadius;\r\n\t\t\t\tq.branches.add(q.makeBranch(x, y, theta - (pi/2), radius));\r\n\t\t\t}\r\n\t\t},\r\n\t\tfUpdate: {\r\n\t\t\targ env;\r\n\t\t\tvar index;\r\n\t\t\tvar numBranches = q.branches.size;\r\n\t\t\tq.branches.do{\r\n\t\t\t\targ branch, i;\r\n\t\t\t\tbranch.fUpdate;\r\n\t\t\t\tbranch.fRender;\r\n\t\t\t};\r\n\t\t\t//strip dead branches\r\n\t\t\t\r\n\t\t\tnumBranches.do{\r\n\t\t\t\t|i|\r\n\t\t\t\tindex = numBranches - (i + 1);\r\n\t\t\t\tif(q.branches[index].growing.not,\r\n\t\t\t\t\t{\r\n\t\t\t\t\t\tq.branches.removeAt(index);\r\n\t\t\t\t\t})\r\n\t\t\t}\r\n\t\t}\r\n\t)\t\r\n};\r\n\r\nr = q.makeRecursion;\r\nr.fSpawn(350,350);\r\nwin = Window(\r\n\t\"grow! (click to restart)\", Rect(10, 10, 700, 700)\r\n);\r\nwin.onClose = { run = false; };\r\nview = UserView(win, 700@700).drawFunc_({ r.fUpdate }).clearOnRefresh_(false).mouseDownAction_({ |v,x,y| view.clearDrawing; r.fSpawn(x,y) });\r\nwin.front;\r\n{ while { run } { win.refresh; 0.05.wait } }.fork(AppClock)\r\n)",
   "name" : "Recursion-toy-like vines with Pen",
   "author" : "uiae",
   "description" : "quick port of the \"vines\" setting with drawing style \"segmented\" of [recursion toy](http://soulwire.co.uk/experiments/recursion-toy/)\r\n (by [soulwire](http://soulwire.co.uk/))\r\n[original js code](https://github.com/soulwire/Recursion-Toy/blob/master/js/recursion.js)\r\n\r\nThis is just a quick port to SuperCollider. Original idea, code, etc. by [soulwire](http://soulwire.co.uk/).",
   "ancestor_list" : []
}