妙なエフェクトプログラム

とりあえず、トップの看板をでっち上げたのは良かったのでしたが、なんかこう、今一つオリジナリティが感じられなかったので、オリジナルなエフェクトでも掛けてみようかなと思って、構想１０分。
『おねてぃ』にはまっている最中で、ふとＷ○Ｗ○Ｗのスクランブル画像を思い出してやってみました。
ＧＩＦフォーマットのままで扱う根性も技術もないので、SX-WINDOWのG_atelie.xを使ってＧＬＭ(16Bitベタフォーマット)へ変換。
その後、このプログラムに食わせました。
ＧＬＭフォーマットが判らなくて、たかだかこれだけの物の製作、デバッグにおよそ半日（爆）
   10 /*
   20 /*　GLM特殊効果（Ｗ○Ｗ○Ｗ）
   30 /*
   40 str fi,fo
   50 dim char li(2000),sh(25)
   60 int fpi,fpo,x_size,y_size,y,s,x_data,r_size,z
   70 /*
   80 input "入力ファイルネーム＝",fi
   90 input "出力ファイルネーム＝",fo
  100 fpi=fopen(fi,"r")
  110 fpo=fopen(fo,"c")
  120 /*
  130 /*  ヘッダの処理
  140 fread(li,16,fpi)        /*とりあえず、ヘッダをコピー
  150 fwrite(li,16,fpo)
  160 fseek(fpi,12,0)
  170 s=fgetc(fpi)           /*x,yのサイズを読みだし
  180 x_size=s*256
  190 s=fgetc(fpi)
  200 x_size=x_size+s
  210 s=fgetc(fpi)
  220 y_size=s*256
  230 s=fgetc(fpi)
  240 y_size=y_size+s
  250 x_data=x_size*2
  260 /*
  270 /*
  280 for y=1 to y_size
  290    s=((rand()/3276)-5)*2
  300    r_size=x_data-abs(s)
  310   if s=0 then {
  320     fread(li,x_data,fpi)
  330     fwrite(li,x_data,fpo)
  340   } else {
  350     if s>0 then {
  360       /*右シフト
  370       fread(li,r_size,fpi)
  380       fread(sh,s,fpi)
  390       fwrite(sh,s,fpo)
  400       fwrite(li,r_size,fpo)
  410     } else {
  420       /*左シフト
  430       fread(sh,abs(s),fpi)
  440       fread(li,r_size,fpi)
  450       fwrite(li,r_size,fpo)
  460       fwrite(sh,abs(s),fpo)
  470     }
  480   }
  490 next
  500 fcloseall()
  510 end
後は、またG_atelie.xで読みだしてＧＩＦでセーブ。
美的センスはともかく、オリジナリティは出せたのではないかと・・ちょっと弱気
戻ります