Some simple videoprocessor scripts
solid color over the project space
creating colored backgrounds
fills the project area
// my solid color // bobobo , 2022 01 10 , coloring the project space //@param1:R 'BG R' 1 0 1 0.5 0.01 //@param2:G 'BG G' 1 0 1 0.5 0.01 //@param3:B 'BG B' 1 0 1 0.5 0.01 //@param4:A 'BG A' 1 0 1 0.5 0.01 gfx_blit(0,1); gfx_set(R,G,B,A); gfx_fillrect(0,0,project_w,project_h);
solid color over the project space
creating colored backgrounds
fills the project area
enhanced version
- optional shadow
- sizing
- positioning
// my solid color enhanced
// bobobo , 2022 01 21 , coloring the project space enh
//@param1:R 'BG R' 1 0 1 0.5 0.01
//@param2:G 'BG G' 1 0 1 0.5 0.01
//@param3:B 'BG B' 1 0 1 0.5 0.01
//@param4:A 'BG A' 1 0 1 0.5 0.01
//
//
//@param6:w 'width-red' 0 0 50 0.01 0.01
//@param7:h 'height-red' 0 0 50 0.01 0.01
//
//@param9:dx 'dx' 0 -100 100 0 0.1
//@param10:dy 'dy' 0 -100 100 0 0.1
//
//@param12:s 'shadow' 0 0 1 0.5 1
//@param13:sd 'x-y shadow' 2 1 5 3 1
h=project_h/100*h;
w=project_w/100*w;
dx=project_w/100*dx;
dy=project_h/100*dy;
gfx_blit(0,1);
s==1?(
gfx_set(0.5,0.5,0.5,0.5);
gfx_fillrect(w+sd+dx,h+sd+dy,project_w-(w*2)+sd,project_h-(h*2)+sd);
);
gfx_set(R,G,B,A);
gfx_fillrect(w+dx,h+dy,project_w-(w*2),project_h-(h*2));
solid color over the project space with text (PostIt)
colored background with text on it
fills the project area
// my solid color with text (Postit) // bobobo 2022 01 10 text="Text"; // change at will font="Arial"; // change at will //@param1:R 'BG R' 1 0 1 0.5 0.01 //@param2:G 'BG G' 1 0 1 0.5 0.01 //@param3:B 'BG B' 0.7 0 1 0.5 0.01 //@param4:A 'BG A' 1 0 1 0.5 0.01 //@param6:TS 'Text height' 0.1 0.01 0.3 0.1 0.01 //@param7:TX 'Text X' 0 0 1 0.5 0.01 //@param8:TY 'Text Y' 0 0 1 0.5 0.01 //@param10:TR 'Text R' 0.5 0 1 0.5 0.01 //@param11:TG 'Text G' 0.5 0 1 0.5 0.01 //@param12:TB 'Text B' 0.5 0 1 0.5 0.01 //@param13:TA 'Text A' 1 0 1 0.5 0.01 gfx_blit(0,1); gfx_setfont(TS*project_h,font); gfx_str_measure(text,TW,TH); gfx_set(R,G,B,A); gfx_fillrect(0,0,project_w,project_h); gfx_set(TR,TG,TB,TA); gfx_str_draw(text,TX*(project_w-TW),TY*(project_h-TH));
cropped overlay from ashcat_it
ashcat_lt Human being with feelings // ashcat_lt better cropped overlay //@param 1:in1 'overlay (-1=next video track)' -1 -1 50 0 1 //@param 2:in2 'background (-1=second next)' -1 -1 50 0 1 //@param 3:source_L 'source Left edge' 0 0 1 0.5 //@param 4:source_R 'source Right edge' 1 0 1 0.5 //@param 5:source_T 'source Top edge' 0 0 1 0.5 //@param 6:source_B 'source Bottom edge' 1 0 1 0.5 //@param 7:dest_L 'destination Left edge' 0 0 1 0.5 //@param 8:dest_R 'destination Right edge' 1 0 1 0.5 //@param 9:dest_T 'destination Top edge' 0 0 1 0.5 //@param 10:dest_B 'destination Bottom edge' 1 0 1 0.5 //@param 11:mode 'blend mode (normal, add, difference' 0 0 2 0 1 in1 = in1== -1? input_track(0): in1; in2 = in2== -1 ? input_track(1): in2; source_x1 = source_L * project_w; source_x2 = max(source_x1, source_R * project_w); source_w = source_x2 - source_x1; dest_x1 = dest_L * project_w; dest_x2 = max(dest_x1, dest_R * project_w); dest_w = dest_x2 - dest_x1; source_y1 = source_T * project_h; source_y2 = max(source_y1, source_B * project_h); source_h = source_y2 - source_y1; dest_y1 = dest_T * project_h; dest_y2 = max(dest_y1, dest_B * project_h); dest_h = dest_y2 - dest_y1; mode == 2 ? mode = 19; oldCS=colorspace; colorspace='YV12'; gfx_set (0,0,0,1,0,-1); gfx_fillrect (0,0,project_w,project_h); temp = gfx_img_resize (temp,project_w,project_h); gfx_dest = temp; gfx_blit (in2); gfx_mode = mode; gfx_blit (in1,0,dest_x1,dest_y1,dest_w,dest_h,source_x1,source_y1,source_w,source_h); gfx_mode = 0; gfx_dest = -1; gfx_blit(temp); colorspace=oldCS;
papagirafe posted some tricks Here
Fabian freeze frame
// Freeze frame // Freezes the frame current when the freeze button flips from 0 to 1 // If freeze == 0 && prev_frezze == 0, just blit out what comes in (is automatic) // If freeze == 1 && prev_freeze == 0, grab and hold current frame, prev_freeze = 1 // if freeze == 1 && prev_freeze == 1, blit out held frame // If freeze == 0 && prev_freeze == 1, blit out what comes in, prev_freeze = 0 //@param1:freeze 'freeze' 0 0 1 0.5 1 src = 0; input_info(src,w,h) ? ( project_w = w; project_h = h; ); // preserve input dimensions /*(freeze == 0 && prev_freeze == 0) ? ( // No need to do anything ):*/ (freeze == 1 && prev_freeze == 0) ? ( myhandle = gfx_img_hold(src); // grab the current frame prev_freeze = 1; ): (freeze == 1 && prev_freeze == 1) ? ( // gfx_dest = -1; gfx_blit(myhandle); // blit out the grabbed frame ): (freeze == 0 && prev_freeze == 1) ? ( gfx_img_free(myhandle); // discard the grabbed frame prev_freeze = 0; );
my actual videoprocessor presets (RPL)
handle with care
importing may overwrite your personal presets
a function by papagirafe to allocate an temporary image with an alpha plane (i.e. with transparent background).Of course you need to gfx_blit() with mode=0x10000
function gfx_img_alloc_transparent(w,h) ( img=gfx_img_alloc(); // first, image handle only gfx_img_resize(img,-1,-1); // incantation to summon alpha plane gfx_img_resize(img,w,h); // real size now gfx_set(0,0,0,0,0x10000,img); // 100% transparent "black" gfx_fillrect(0,0,w,h); img; );
outlined text the papagirafe kind
frome here
// Overlay: Text v2.23 w/ajustable outline/shadow
// by papagirafe
// Write your own text inside quotes, multiple lines allowed
#text="";
// default font = "Arial" in Windows
font="";
/*
font styles from following list - multiple choices allowed - uppercase mandatory
'B' - Bold, 'I' - Italics, 'R' - smooth edges,
'V' - Invert bg/fg, 'U' - underlined
shadow and outline are handled with dedicated parameters
*/
style='R';
//@param size 'text height' 0.05 0.01 1.0 0.5 0.001
//@param xpos 'x position' 0.5 0 1 0.5 0.01
//@param ypos 'y position' 0.5 0 1 0.5 0.01
//@param5:fgr 'text r' 1.0 0 1 0.5 0.01
//@param fgg 'text g' 1 0 1 0.5 0.01
//@param fgb 'text b' 1 0 1 0.5 0.01
//@param fga 'text a' 1 -0.01 1 0.5 0.01
//@param10:bgh 'bg h' 0 0 1 0.5 0.01
//@param bgw 'bg w' 0 0 600 0.5 1
//@param bgr 'bg r' 0 0 1 0.5 0.01
//@param bgg 'bg g' 0 0 1 0.5 0.01
//@param bgb 'bg b' 0 0 1 0.5 0.01
//@param bga 'bg a' 0.5 0 1 0.5 0.01
//@param17:olr 'outline r' 0 0 1 0.5 0.01
//@param olg 'outline g' 0 0 1 0.5 0.01
//@param olb 'outline b' 0 0 1 0.5 0.01
//@param ola 'outline a' 0.1 0.01 1 0.5 0.01
//@param olt 'outline thickness' 0 0 100 50 1
//@param oldiv 'outline divs' 32 8 128 64 4
//@param shmode 'shadow mode' 0 0 1 0.5 1
//@param shangl 'shadow angle' 45 0 359 180 1
function gfx_img_alloc_transparent(w,h)
(
input_info(0,iw,ih);
iw>0&&ih>0?( //media file exists?
img=gfx_img_alloc(); // first, image handle only
gfx_img_resize(img,-1,-1); // summon alpha plane
gfx_img_resize(img,w+1,h+1); // real size now (w+1/h+1 = gfx_blit() bug patch)
gfx_set(0,0,0,0,0x10000,img); // 100% transparent "black"
gfx_fillrect(0,0,w,h);
):(
img=gfx_img_alloc(w+1,h+1,1); // std cleared image (w+1/h+1 = gfx_blit() bug patch)
);
img;
);
function set_project_wh_safe(w*,h*)
(
project_wh_valid===0 ? (
input_info(0,w,h); // no pw,ph get from current item
w==0||h==0?(w=480; h=270;); // worst case scenario? 1/4 HD
);
);
function polar2xy(r,phi,x*,y*)
(
x=r*cos(phi);
y=r*sin(phi);
);
fga<0?fga=param_wet;
bga*=fga; //bg alpha dependent upon fg alpha
mode=0x10000; //use alpha
set_project_wh_safe(project_w, project_h);
gfx_blit(0,1);
gfx_setfont(size*project_h,font,style);
strcmp(#text,"")==0 ? input_get_name(-1,#text);
gfx_str_measure(#text,txtw,txth);
yt =(project_h-txth*(1+bgh*2))*ypos;
// background if applicable
bga>0?(
gfx_set(bgr,bgg,bgb,bga);
gfx_fillrect(xpos*(project_w-txtw)-bgw-olt, yt-olt, txtw+bgw*2+2*olt, txth*(1+bgh*2)+2*olt);
);
//temporary image using alpha 1 for consistent drawing
img=gfx_img_alloc_transparent(txtw+2*olt,txth+2*olt);
// pourtour du texte si applicable
olt>0?(
shmode?(ola=exp(ola*fga*3.5-4);shangl=shangl*oldiv/360):(ola=exp((oldiv/16)*ola*fga-4.61);shangl=0;);
gfx_set(olr,olg,olb,ola*fga,mode,img);
i=0; loop(shmode?oldiv/16:oldiv,
phi=2*(i+shangl)*$pi/oldiv;
polar2xy(olt,phi,ox,oy);
gfx_str_draw(#text,ox+olt,oy+olt,olr,olg,olb);
i+=1;
);
);
// text
gfx_set(fgr,fgg,fgb,1,mode,img);
gfx_str_draw(#text,olt,olt,olr,olg,olb);
// copy tmp img to frame buffer with desired alpha value
gfx_dest=-1; gfx_a=fga;
gfx_blit(img,0,xpos*(project_w-txtw)-olt,yt+txth*bgh-olt,txtw+2*olt,txth+2*olt,0,0,txtw+2*olt,txth+2*olt);
gfx_img_free(img);
and a text-oztline-shadow-script i hacked together from stuff i found in forum runs on items, and/or tracks
// text overlay bobobo v2 // bobobo - standing on giants' shoulders input_get_name(-1, text); font="FUTURA"; //@param1:size 'text size' 0.05 0.01 1 0.1 0.001 //@param2:ypos 'y position' 0.5 -0.2 1.2 0.5 0.01 //@param3:xpos 'x position' 0.5 0 1 0.5 0.01 //@param5:fgr 'text R' 255 0 255 128 1 //@param6:fgg 'text G' 255 0 255 128 1 //@param7:fgb 'text B' 255 0 255 128 1 //@param8:fga 'text A' 1 0 1 0.5 0.005 //@param10:shr 'shadow R' 255 0 255 128 1 //@param shg 'shadow G' 255 0 255 128 1 //@param shb 'shadow B' 255 0 255 128 1 //@param sha 'shadow alpha' 0.3 0 1 0.5 0.001 //@param shx 'shadow x' 0.5 -1 1 0.5 0.01 //@param shy 'shadow y' 0.5 -1 1 0.5 0.01 //@param shs 'shadow spread' 5 0 10 5 0.05 //@param shi 'shadow iterations' 5 1 20 5 1 gfx_blit(0,1); gfx_setfont(size*project_h,font); gfx_str_measure(text,txtw,txth); yt = (project_h - txth)*ypos; x = xpos * (project_w-txtw); i = 0; gfx_set(shr/255,shg/255,shb/255,sha); loop(shi, gfx_str_draw(text,x + (100 * shx*size) + (i * shs * size),yt + (100 * shy * size) + (i * shs * size)); gfx_str_draw(text,x + (100 * shy*size) - (i * shs * size),yt + (100 * shy * size) - (i * shs * size)); gfx_str_draw(text,x + (100 * shx*size) + (i * shs * size),yt + (100 * shy * size) - (i * shs * size)); gfx_str_draw(text,x + (100 * shx*size) - (i * shs * size),yt + (100 * shy * size) + (i * shs * size)); i += 1; ); gfx_set(fgr/255,fgg/255,fgb/255,fga); gfx_str_draw(text,x,yt);
so i made a crawling title generator
using a text generator containing long text as item video fx
automated the scrolling envelope on y
and took the blending thing on a track above the text track to get it fade
and shrink horizontally while proceeding to scroll
it scrolls not as in the starwars crawl, as it scrolls more curvy
//bobobo zoom xformblit() //@param1:zoom "zoom" 0.9 0.0001 1 0.5 0.0001 //@param2:bowp "bowp" 75 0 100 50 0.1 //@param3:alpha "alpha" 0 0 100 50 0.1 src=0; input_info(src,srcw,srch); gfx_set(0,0,0,1); gfx_fillrect(0,0,srcw,srch); a=1/100*alpha; bow=srch/100*bowp*-1; dx=(srcw-srcw*zoom)*10; t[0]=-dx; t[1]=0+bow;t[2]=a; t[3]=srcw/2;t[4]=0+bow;t[5]=a; t[6]=srcw-t[0]; t[7]=0+bow; t[8]=a; t[9]=0-(dx/2); t[10]=srch/2+bow/2;t[11]=a; t[12]=srcw/2;t[13]=srch/2+bow/2;t[14]=a; t[15]=srcw-t[9]; t[16]=srch/2+bow/2;t[17]=a; t[18]=0; t[19]=srch;t[20]=1; t[21]=srcw/2;t[22]=srch;t[23]=1; t[24]=srcw;t[25]=srch;t[26]=1; gfx_xformblit(src, 0,0,srcw,srch, 3,3,t,1);
more to come