-
ドラゴン
ドリトルで描くドラゴン曲線 ドラゴン2態 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Dragon_1.html http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Dragon_2.html // Dragon 1 t=turtle!create. dragon=[| level w; nw | [level <= 0 ] ! then [ t! (w) forward. ] else [ nw = w/sqrt(2). t! (45) leftturn. ! (level-1)(nw) dragon. t! (90) rightturn penup (nw) forward (180) leftturn pendown. ! (level-1)(nw) dragon. t! (180) leftturn penup (nw) forward pendown (45) leftturn. ] execute. ]. t ! penup (-200)(-80) position (2) linewidth (red) linecolor. ! (4)(500) dragon. t! makefigure. t ! penup (-200)(-80) position (2) linewidth (blue) linecolor. ! (9)(500) dragon. t! makefigure. // Dragon 2 screen! (red! darker) paint. t=turtle!create. dragon=[| level w; nw | [level <= 0 ] ! then [ t! (w) forward. ] else [ nw = w/sqrt(2). t! (45) leftturn. ! (level-1)(nw) dragon. t! (90) rightturn penup (nw) forward (180) leftturn pendown. ! (level-1)(nw) dragon. t! (180) leftturn penup (nw) forward pendown (45) leftturn. ] execute. ]. t ! penup (-200)(-80) position (2) linewidth (yellow) linecolor. ! (14)(500) dragon. t! makefigure.
CG 2017mugen
-
ヒルベルト
カメ太が描いたヒルベルト曲線を図形にして、別の次元のヒルベルト曲線と重ねてみた。 ヒルベルト曲線 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Hilbert_2.html 処理に少し時間がかかります。 // hilbert curve w=screen!width?. h=screen!height?. hilbert=[|depth angle| [depth>0]! then [ t! (angle) rightturn. ! (depth-1)(-1*angle) hilbert. t! (step) forward. t! (angle) leftturn. ! (depth-1)(angle) hilbert. t! (step) forward. ! (depth-1)(angle) hilbert. t! (angle) leftturn. t! (step) forward. ! (depth-1)(-1*angle) hilbert. t! (angle) rightturn. ] execute. ]. screen! (black) paint. t=turtle! create. depth=4. step=33. lw=4. t! penup (-16*16)((h/2)-25) position pendown (lw) linewidth (yellow) linecolor. ! (depth)(90) hilbert. f=t! makefigure (red! settransparency) paint. t! penup (-16*16)((h/2)-25) position pendown (lw) linewidth (blue) linecolor. ! (depth)(90) hilbert.
CG 2017mugen
-
「あ」
文字の拡大と縮小による作品 「あ」 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Scale_3.html // あ map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))]. w=screen!width?. h=screen!height?. n=20. moji=array! create. mx=array! create. my=array! create. sz=array! create. [ mx! (!(random(w))(1)(w)(w/-2)(w/2) map) add. my! (!(random(h))(1)(h)(h/2)(h/-2) map) add. sz! (random(10)) add. ]! (n) repeat. i=0. [i=i+1. x=mx! (i) get. y=my! (i) get. c=color! (random(256))(random(256))(random(256)) create. moji! (label! "あ" create (c! settransparency) fontcolor (1) fontsize (x)(y) position) add. ]! (n) repeat. s=0. m=1. timer! create (0.05) interval (60) duration [ s=s+2*m. [|i| [s>=200]! then [m=-1] execute. [s<=0]! then [m=1] execute. x0=((moji! (i) get)! width?). y0=((moji! (i) get)! height?). (moji! (i) get)! (s) fontsize. x1=((moji! (i) get)! width?). y1= ((moji! (i) get)! height?). (moji! (i) get)! ((x1-x0)/-2)((y1-y0)/2) moveby ]! (n) repeat. ] execute.
CG 2017mugen
-
色見本帳
ドリトルの GUI部品 button! で作った色見本帳。 再読込でタイル数が変化します。色タイルは自身がボタンになっているのでタップすると色が変わります。 これは意外と便利かも。何に使うかはあなた次第。 ドリトル色見本帳 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Button_2.html ドリトル色見本帳(日本の伝統色版) http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Button_3.html // 色ボタン map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))]. col=[c=color! (random(256))(random(256))(random(256)) create]. w=screen!width?. h=screen!height?. xn=random(4)+1. yn=random(4)+1. ws=ceil(w/xn). hs=ceil(h/yn). i=0. j=0. [i=i+1. [j=j+1. x=!(j)(1)(xn+1)(w/-2)(w/2) map. y=!(i)(1)(yn+1)(h/2)(h/-2) map. button! (!col) create (white) fontcolor (12) fontsize (ws)(hs) size (x)(y) position (c) paint [self! (!col)set (c) paint] 動作設定. ]! (xn) repeat. j=0. ]! (yn) repeat.
CG 2017mugen
-
スライドショー
ドリトルでスライドショーの梅園(神代植物公園)バージョン。 神代植物公園バージョン http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Slide_1.html タイルでアートとの合わせ技でちょっとだけアート感を出してみました。 モノクロフィルター版 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Slide_3b.html 虹色フィルター版 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Slide_3c.html screen! (black) paint. ot=turtle! create. tm=timer! create (0.1) interval (4) duration [ ot! (20) rightturn (1.1) scale ] execute. tm! [ot! hide] execute. src="http://etext-music.com/ume2016/". n=100. timer! create 5 interval (60*60) times [ n=n+1. nn=(""+n)! 2 3 substr. img=src+(nn)+".jpg". turtle! create (img) setshape (1.2) scale. [n==124]! then [n=100] execute. ] execute.
CG 2017mugen
-
影 - タイルdeアート
タイルでアート(紅)のモノクロバージョン。背景に写真を貼ってみました。こちらもアート感があります。 作品名:影 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_4.html 再読込をすると別のパターに変わります。 // art_4(影) turtle! create ("http://anzlab.com/newyear2017/tls_0719.jpg") setshape (2) scale. map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))]. w=screen!width?. h=screen!height?. xn=random(8). yn=random(8). ws=ceil(w/xn). hs=ceil(h/yn). s=0.9. tile=array! create. b=array! create. m=array! create. d=array! create. i=0. j=0. [i=i+1. [j=j+1. x=!(j)(1)(xn+1)(w/-2)(w/2) map. y=!(i)(1)(yn+1)(h/2)(h/-2) map. b! (random(255)) add. m! (1) add. tile! (label! create (ws*s)(hs*s) size (x+(ws*(1-s)/2))(y-(hs*(1-s)/2)) position (white) fontcolor (12) fontsize) add. ]! (xn) repeat. j=0. ]! (yn) repeat. t1=timer! create (0.1) interval (60*60) duration [ [|i| d! (i) (random(5)) set. [(b! (i) get)>=256]! then [m! (i)(-1) set] execute. [(b! (i) get)<=0]! then [m! (i) (+1) set] execute. c=((b! (i) get)+(d! (i) get)*(m! (i) get)). b! (i) (c) set. //debug (tile! (i) get)! (c) set (color! (0)(0)(c) create) paint. (tile! (i) get)! (color! (c)(c)(c) create settransparency) paint. ]! (xn*yn) repeat. ] execute.
CG 2017mugen
-
虹 - タイルdeアート
タイルでアート(紅)の虹バージョン。彩度の高い色でこちらもアート感があります。 再読込をすると別のパターに変わります。 作品名:虹 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_3.html 再帰処理バージョン。自動的(10秒毎)にパターンが変わります。 虹 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_3a.html // art_3(虹) screen! (black) paint. map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))]. w=screen!width?. h=screen!height?. xn=random(7). yn=random(7). //xn=1. yn=4. s=random(7)/10. ws=ceil(w/xn). hs=ceil(h/yn). tile=array! create. c=array! create. m=array! create. d=array! create. i=0. j=0. [i=i+1. [j=j+1. x=!(j)(1)(xn+1)(w/-2)(w/2) map. y=!(i)(1)(yn+1)(h/2)(h/-2) map. c! (random(360)) add. m! (1) add. tile! (label! create (ws*s)(hs*s) size (x+(ws*(1-s)/2))(y-(hs*(1-s)/2)) position (white) fontcolor (12) fontsize) add. ]! (xn) repeat. j=0. ]! (yn) repeat. h=array! create. n=0.[ [全部! (n>=0)(n<60) 本当]! then [r=255. g=(n/60)*255. b=0.] execute. [全部! (n>=60)(n<120) 本当]! then [r=(120-n)/60*255. g=255. b=0.] execute. [全部! (n>=120)(n<180) 本当]! then [r=0. g=255. b=(n-120)/60*255.] execute. [全部! (n>=180)(n<240) 本当]! then [r=0. g=(240-n)/60*255. b=255.] execute. [全部! (n>=240)(n<300) 本当]! then [r=(n-240)/60*255. g=0. b=255.] execute. [全部! (n>=300)(n<360) 本当]! then [r=255. g=0. b=(360-n)/60*255.] execute. h! (color! (r)(g)(b) create) add. n=n+1. ]! (360) repeat. timer! create (0.1) interval (60*60) duration [ [|i| d! (i) (random(4)) set. [(c! (i) get)>=360]! then [m! (i)(-1) set] execute. [(c! (i) get)<=0]! then [m! (i) (+1) set] execute. v=((c! (i) get)+(d! (i) get)*(m! (i) get)). c! (i) (v) set. col=(h! (v) get). // (tile! (i) get)! (v) set (col) paint. //debug (tile! (i) get)! (col) paint. ]! (xn*yn) repeat. ] execute.
CG 2017mugen
-
紅 - タイルdeアート
ドリトルのGUIオブジェクト label! の色を timer! で変化させれば、ちょっとアートな作品ができるのではないかと思い作ってみました。 再読込をすると別のパターンに変わります。 紅 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_2.html 再帰処理バージョン。自動的(10秒毎)にパターンが変わります。 紅 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Art_2a.html // art_2(紅) screen! (black) paint. map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))]. w=screen!width?. h=screen!height?. xn=random(8). yn=random(8). ws=ceil(w/xn). hs=ceil(h/yn). s=0.7. tile=array! create. b=array! create. m=array! create. d=array! create. i=0. j=0. [i=i+1. [j=j+1. x=!(j)(1)(xn+1)(w/-2)(w/2) map. y=!(i)(1)(yn+1)(h/2)(h/-2) map. b! (random(255)) add. m! (1) add. tile! (label! create (ws*s)(hs*s) size (x+(ws*(1-s)/2))(y-(hs*(1-s)/2)) position (white) fontcolor (12) fontsize) add. ]! (xn) repeat. j=0. ]! (yn) repeat. t1=timer! create (0.1) interval (60*60) duration [ [|i| d! (i) (random(5)) set. [(b! (i) get)>=256]! then [m! (i)(-1) set] execute. [(b! (i) get)<=0]! then [m! (i) (+1) set] execute. c=((b! (i) get)+(d! (i) get)*(m! (i) get)). b! (i) (c) set. //debug (tile! (i) get)! (c) set (color! (0)(0)(c) create) paint. (tile! (i) get)! (color! (c)(0)(0) create) paint. ]! (xn*yn) repeat. ] execute.
CG 2017mugen
-
N×M
20個のの回転色相環。虹の輪が異なるスピードで回転します。 n*m 回転色相環 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_4.html // n*m 回転色相環 screen! (color! 0 0 0 create) paint. img="http://etext-music.com/img/hsb.png". n=0. x=-400. y=300. h=5. v=4. pen=array! create. [[ pen!(turtle! create (img) setshape 0.25 scale penup (x)(y) position)add. x=x+200. ]! (h) repeat。 x=-400. y=y-200. ]! (v) repeat. s=array! create。 [s! (random(10)) add]! (h*v) repeat. timer! create 0.1 interval (60*60) times [ [|i|(pen! (i) get)!(s! (i) get)rightturn]!(h*v) repeat. ] execute.
CG 2017mugen
-
四季
四つの回転色相環。それぞれの環が異なる速度で回転します。 四季 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_3.html // 回転色相環 screen! (color! 0 0 0 create) paint. ring=turtle! create "http://etext-music.com/img/hsb.png" setshape hide. rng1=ring! create 0.5 scale -200 200 position. rng2=ring! create 0.5 scale +200 200 position. rng3=ring! create 0.5 scale -200 -200 position. rng4=ring! create 0.5 scale +200 -200 position. timer! create 0.1 interval (60*60) times [ rng1! 4 rightturn. rng2! 10 rightturn. rng3! 20 rightturn. rng4! 2 rightturn. ] execute.
CG 2017mugen
-
虹の輪
タートルで作った色相環を図形にしてこれを回転させてみました。 回転色相環 http://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_2.html 漆黒の空間で虹色の環が静かに回転します。 // 回転色相環 screen! (黒) paint. pen=turtle! create hide. n=0.[ [全部! (n>=0)(n<60) 本当]! then [r=255. g=(n/60)*255. b=0.] execute. [全部! (n>=60)(n<120) 本当]! then [r=(120-n)/60*255. g=255. b=0.] execute. [全部! (n>=120)(n<180) 本当]! then [r=0. g=255. b=(n-120)/60*255.] execute. [全部! (n>=180)(n<240) 本当]! then [r=0. g=(240-n)/60*255. b=255.] execute. [全部! (n>=240)(n<300) 本当]! then [r=(n-240)/60*255. g=0. b=255.] execute. [全部! (n>=300)(n<360) 本当]! then [r=255. g=0. b=(360-n)/60*255.] execute. pen! (4) linewidth (color! (r)(g)(b) create) linecolor (200) forward movetocenter (5) linewidth (黒) linecolor (160) forward movetocenter 1 rightturn. n=n+1. ]! (360) repeat. kan=pen! makefigure 1.0 scale. timer! create 0.1 interval (60*60) duration[ kan! 4 rightturn. ] execute.
CG 2017mugen
-
色相環
タートルを使って色相環を描くいてみた。 色相環 https://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_0.html リング状色相環 https://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Circle_1.html ドリトルではHSVで色の指定ができないので、RGBの値を変換している。 RGBとHSVの相互変換 http://www.petitmonte.com/javascript/rgb_hsv_convert.html http://www.peko-step.com/tool/hsvrgb.html // 色相環 pen=turtle! create hide. n=0. timer! create 0.1 interval (360) times[ [全部! (n>=0)(n<60) 本当]! then [r=255. g=(n/60)*255. b=0.] execute. [全部! (n>=60)(n<120) 本当]! then [r=(120-n)/60*255. g=255. b=0.] execute. [全部! (n>=120)(n<180) 本当]! then [r=0. g=255. b=(n-120)/60*255.] execute. [全部! (n>=180)(n<240) 本当]! then [r=0. g=(240-n)/60*255. b=255.] execute. [全部! (n>=240)(n<300) 本当]! then [r=(n-240)/60*255. g=0. b=255.] execute. [全部! (n>=300)(n<360) 本当]! then [r=255. g=0. b=(360-n)/60*255.] execute. pen! (3) linewidth (color! (r)(g)(b) create) linecolor (200) forward movetocenter 1 rightturn. n=n+1. ] execute. // リング状色相環 screen! (黒) paint. pen=turtle! create hide. n=0. timer! create 0.1 interval (360) times[ [全部! (n>=0)(n<60) 本当]! then [r=255. g=(n/60)*255. b=0.] execute. [全部! (n>=60)(n<120) 本当]! then [r=(120-n)/60*255. g=255. b=0.] execute. [全部! (n>=120)(n<180) 本当]! then [r=0. g=255. b=(n-120)/60*255.] execute. [全部! (n>=180)(n<240) 本当]! then [r=0. g=(240-n)/60*255. b=255.] execute. [全部! (n>=240)(n<300) 本当]! then [r=(n-240)/60*255. g=0. b=255.] execute. [全部! (n>=300)(n<360) 本当]! then [r=255. g=0. b=(360-n)/60*255.] execute. pen! (4) linewidth (color! (r)(g)(b) create) linecolor (200) forward movetocenter (5) linewidth (黒) linecolor (160) forward movetocenter 1 rightturn. n=n+1. ] execute.
CG 2017mugen
-
12
bitarro version https://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Moji_2.html
CG 2017mugen
-
11
bitarro version https://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Moji_2.html
CG 2017mugen
-
10
bitarro version https://bitarrow.eplang.jp/bitarrow/fs/pub/f4e9c680/Moji_2.html
CG 2017mugen