使い方

左図は上のアプレットを実行したものです。
　kami2 PQRS -10 -10 15 15 10 -20 6;
PQ は上の曲線の両端 -10 -10 で曲線を描く
RS は下の髪先の両端 15 15 でカーブを意図する
10 -20 で一本一本の髪の曲げ方を指図する。
6 は本数を意味する。
　戻る
 <param name=kami_sub  value="
   set w -z; set v - u; addpoly PQ x y; addpoly QR v w;
   fclosedpoly;  clearpoly;
">
<param name=kami2    value="
   set P knaibun AB 105 -5 10;   set Q knaibun AB 142 -42 10;
   set R knaibun AB 125 -25 -25; set S knaibun AB 157 -57 -9;
   color 60 48 28;   kami2 PQRS -10 -10 15 15 10 -20 6;
   set C knaibun AB 125 -25 46; set D knaibun AB 100 0 10;
   set E knaibun AB 145 -45 8;
   addpoly CD 35 35; addpoly DE 35 35; addpoly EC 10 55;
   fclosedpoly; clearpoly;
   set C knaibun AB 100 0 15; set D knaibun AB 100 0 -10;
   set E knaibun AB 115 -15 15;
   addpoly CD -14 -14; addpoly DE 15 15; addpoly EC 10 10;
   fclosedpoly;  clearpoly;
   set C knaibun AB 120 -20 43; set D knaibun AB 56 44 37;
   set E knaibun AB 113 -13 42;
   addpoly CD 25 25; addpoly DE 8 25; addpoly EC 10 10;
   fclosedpoly;  clearpoly;
   set P knaibun AB 105 -5 60;  set Q knaibun AB 118 -18 43;
   set R knaibun AB 30 70 80;   set S knaibun AB 40 60 53;
   color 60 48 28;   kami2 PQRS -30 -30 15 45 -10 30 3;
   set P knaibun AB 105 -5 60;   set Q knaibun AB 118 -18 43;
   set R knaibun AB 57 43 90;   set S knaibun AB 33 67 90;
   color 60 48 28;   kami2 PQRS -30 -30 0 0 20 20 2;
   set C knaibun AB 110 -10 55;  set D knaibun AB 70 30 95;
   set E knaibun AB 90 10 65;
   addpoly CD 30 30; addpoly DE -20 -20; addpoly EC 10 10;
   fclosedpoly;   clearpoly;
   set C knaibun AB 100 0 87; set D knaibun AB 110 -10 55;
   set E knaibun AB 95 5 63;
   addpoly CD 30 -10; addpoly DE -20 -20; addpoly EC -30 -10;
   fclosedpoly;   clearpoly;
   set C knaibun AB 108 -8 58;   set D knaibun AB 118 -18 45;
   set E knaibun AB 150 -50 35;  set F knaibun AB 171 -71 46;
   set G knaibun AB 157 -57 62;  set H knaibun AB 140 -40 62;
   color 231 86 70;   fclosedpoly CDEFGH;
   set C knaibun AB 105 -5 60;  set D knaibun AB 111 -11 7;
   set E knaibun AB 128 -28 45;
   addpoly CD -65 -40;  addpoly DE 30 30;
   fclosedpoly;  clearpoly;
   color 60 48 28; addpoly CD -65 -40; addpoly DC 30 10;
   fclosedpoly;   clearpoly;
">
<param name=me    value="
   set C knaibun AB 14 86 90; set D knaibun AB 30 70 56;
   addpoly CD -30 -30; addpoly DC 15 15; color 60 48 28;
   fclosedpoly;  clearpoly;
   set C knaibun AB 55 45 32.5; set D knaibun AB 84 16 23;
   addpoly CD -50 -25; addpoly DC 15 30;fclosedpoly; clearpoly;
   set C knaibun AB 8 92 1;       set D knaibun AB 23 77 10;
   set X knaibun AB 19 81 40;     set Y knaibun AB 19 81 37.5;
   set P knaibun AB 18 82 33.5;   set Q knaibun AB 12 88 10;
   set R knaibun AB 16.5 83.5 -20.5;  set S knaibun AB 20 80 5;
   addpoly CXD -40 -40;addpoly DYC 35 35;
   color 90 78 58; fclosedpoly; clearpoly;
   addpoly CYD -35 -35; addpoly DRC -30 -30;
   color 240 240 240; fclosedpoly; clearpoly;
   color 60 40 20;  fclosedpoly PQRS;
   color 220 220 220; set U knaibun AB 17.5 82.5 15;
   set V knaibun AB 18.5 81.5 15; fcircle UV;
   set U knaibun AB 17.5 82.5 0; set V knaibun AB 18.3 81.7 0;
   fcircle UV;
   set C knaibun AB 56 44 10.1; set D knaibun AB 74 26 10;
   set X knaibun AB 67 33 19;   set Y knaibun AB 67 33 18;
   set P knaibun AB 65 35 16.5; set Q knaibun AB 58.1 41.9 10;
   set R knaibun AB 62 38 3;    set S knaibun AB 68.9 31.1 9;
   color 220 220 220; addpoly CXD -40 -40; addpoly DYC 35 35;
   color 90 78 58; fclosedpoly;   clearpoly;
   addpoly CYD -35 -35; addpoly DRC -30 -30;
   color 240 240 240; fclosedpoly; clearpoly;
   color 60 40 20;  fclosedpoly PQRS;
   color 220 220 220; set U knaibun AB 67 33 11.5;
   set V knaibun AB 68 32 11.5;  fcircle UV;
   set U knaibun AB 66 34 8;  set V knaibun AB 66.8 33.2 8;
   fcircle UV;    color 60 40 20;
   set X knaibun AB 15 85 -27; set Y knaibun AB 18 82 -23;
   copy XY ZW;   kaiten ZW -20;    kaiten WZ 20;
   addpoly XY; addpoly WZ; fclosedpoly; clearpoly;
   set X knaibun AB 61 39 2; set Y knaibun AB 64 36 2;
   copy XY ZW;  kaiten ZW -20; kaiten WZ 20;
   addpoly XY; addpoly WZ; fclosedpoly;  clearpoly;
">
<param name=hana    value="
   color 90 60 40;  set X knaibun AB 28 72 12;
   set Y knaibun AB 27 73 -15; set Z knaibun AB 33 67 -24;
   copy XYZ UVW; kaiten UVW 3; kaiten WVU -3;
   addpoly XY -30 -20; addpoly YZ 10 10; addpoly WV -10 -10;
   addpoly VU 20 30; fclosedpoly;  clearpoly;
   set X knaibun AB 34 66 -15;  set Y knaibun AB 37.3 62.7 -15;
   copy XY ZW; kaiten ZW -20; kaiten WZ 20;
   addpoly XY; addpoly WZ; fclosedpoly; clearpoly;
   set X knaibun AB 62 38 -48; set Y knaibun AB 64 36 -44;
   copy XY ZW; kaiten ZW -20; kaiten WZ 20;
   addpoly XY;  addpoly WZ; fclosedpoly; clearpoly;
">
<param name=kuti   value="
   set C knaibun AB 45 55 -46.5; set D knaibun AB 58 42 -36;
   set E knaibun AB 54.5 45.5 -47;
   addpoly CD -40 -60; addpoly DE -50 -40; addpoly EC -30 -30;
   color 212 127 131; fclosedpoly; clearpoly;
   addpoly ED -45 -45; addpoly DE -50 -40;
   color 240 165 165; fclosedpoly; clearpoly;
">
</APPLET>
前半