画像陰毛加工(HSP)
ソースと同じディレクトリにjpg画像を1.jpgという名前でコピーしておいて起動

#include "hspext.as"
picload"1.jpg":gfini winx,winy:repeat winy/10:c=cnt*10:repeat winx/10:d=cnt*10
pget d,c:if rval+gval+bval<150{gosub *a}:loop:loop:stop:*a:x=d:y=c:n=0:e=0:f=0
g=0:i=0:j=0:z=256:rnd h,z:rnd l,10:repeat l+10:rnd k,6:rnd m,20:if cnt=(l+9){
k=10:n=1}:o=m-10:repeat k:h+o:emcos p,h:emsin q,h:e+p:f+q:if n=1{gosub s}
color g,i,j:pset e/z+x,f/z+y:loop:loop:return:stop:*s:pget e/z+x,f/z+y
g+(rval-g/10):i+(gval-i/10):j+(bval-j/10):return