function param1() return "筆圧透明度", 0, 1, 0 end function main(x, y, p) bs_setmode( 1 ) local a = 255 * bs_opaque() * ( 1 - (1 - p) * bs_param1() ) local w = bs_width_max() - bs_width() local r,g,b = bs_fore() bs_ellipse( x, y, w, w, 0 , r,g,b,a ) return 1 end