使い方

左図は上のアプレットを実行したものです。

　kami2 PQRS -10 -10 15 15 10 -20 6;
PQ は上の曲線の両端 -10 -10 で曲線を描く
RS は下の髪先の両端 15 15 でカーブを意図する
10 -20 で一本一本の髪の曲げ方を指図する。
6 は本数を意味する。
　戻る

<APPLET CODE="GDView0.class" WIDTH=560 HEIGHT=540>
<param name=command0    value="read hajime">
<param name=hajime    value="
   set O 0 0; color 255 255 255; fcircle O 10;
   set X -3 3;set A -1.5 -1.5; set B 2 -1.5; read kao;
">
<param name=kao    value="
   read kami1; read kao1; read kami2;
   read me;    read hana; read kuti;
">
<param name=kao1    value="
   set C knaibun AB 47 53 80;  set D knaibun AB 13 87 -63;
   set E knaibun AB 38 62 -75; set F knaibun AB 78 22 -54;
   addpoly CA 30 40; addpoly ADE 10 20; addpoly EF 32 20;
   set G knaibun AB 100 0 -16.5; set H knaibun AB 100 0 10;
   addpoly FG 20 25; addpoly GH 15 15; addpoly HC 85 75;
   color 255 227 202; fclosedpoly; clearpoly;
   color 155 127 82; openpoly CA 30 40; openpoly ADE 10 20;
   openpoly EF 32 20; openpoly FG 20 25;
">
<param name=kami1    value="
   color 231 86 70; set C knaibun AB 110 -10 60;
   set D knaibun AB 140 -40 85; set X knaibun AB 125 -25 97;
   set E knaibun AB 100 0 92;   set F knaibun AB 80 20 98;
   set G knaibun AB 67 33 80;   fclosedpoly CDXEFG;
   color 30 18 8;   set P knaibun AB 90 10 85;
   set Q knaibun AB 58 42 117;  set R knaibun AB 90 10 75;
   set_ddl_mult ddlXYZU 30 -10 30 -5; read kami_sub; 
   set P knaibun AB 80 20 90;   set Q knaibun AB 38 62 -135;
   set R knaibun AB 80 20 75;   set_ddl_mult ddlXYZU 38 -20 30 -30;
   read kami_sub; 
   set C knaibun AB 22 78 -140; set D knaibun AB 53 47 -94;
   addpoly  CD 10 20;
   set E knaibun AB 36 64 -95;  addpoly  DE -10 -10;
   set F knaibun AB 56 44 -85;  addpoly  EF 10 10;
   set G knaibun AB 48 52 -83;  addpoly  FG -10 -10;
   set H knaibun AB 58 42 -80;  addpoly  GH 10 10;
   set I knaibun AB 60 40 -60;  addnamipoly  HI 0 0.2 4;
   set J knaibun AB 85 15 -35;  set K knaibun AB 127 -27 -20;
   addnamipoly  JK -0.1 0.1 8;  set L knaibun AB 127 -27 30;
   set M knaibun AB 80 20 90;   addpoly LM;
   fclosedpoly;   clearpoly;
   set C knaibun AB 80 20 90;  set D knaibun AB 100 0 60;
   set E knaibun AB 50 50 90;  fclosedpoly CDE;
">

後半