# _______________________________________________________ # # SubAA | Subtitle Antialiasing # _______________________________________________________ # # Another lame function by Soulhunter... \m\ ^_^ /m/ # _______________________________________________________ # # # # Usage examples: # # SubAA(X=256,Y=512,Text="Blah") # SubAA(TextColor=$FFFF00,Text="BlahBlah") # SubAA(Font="Courier New",Size=80,Text="BlahBlahBlah") # # Function SubAA(Clip Clp,String"Font",Val"TextColor",Val"HaloColor",Int"X",Int"Y",Int"Size",String"Text") { OX = Clp.Width OY = Clp.Height Font = Default(Font,"Arial") TextColor = Default(TextColor,$FFFFFF) HaloColor = Default(HaloColor,$000000) X = Default(X,128) Y = Default(Y,128) Size = Default(Size,64) Text = Default(Text,"Test") Clp.Lanczosresize(OX*2,OY*2) SubA1=Subtitle(Font=Font,Text_Color=TextColor,Halo_Color=HaloColor,X=X-2,Y=Y-2,Size=Size,Text) SubB1=Subtitle(Font=Font,Text_Color=TextColor,Halo_Color=HaloColor,X=X+2,Y=Y+2,Size=Size,Text) SubA2=Subtitle(Font=Font,Text_Color=TextColor,Halo_Color=HaloColor,X=X-1,Y=Y-1,Size=Size,Text) SubB2=Subtitle(Font=Font,Text_Color=TextColor,Halo_Color=HaloColor,X=X+1,Y=Y+1,Size=Size,Text) SubC1=Overlay(SubA1,SubB1,Opacity=0.5) SubC2=Overlay(SubA2,SubB2,Opacity=0.5) Sub=Overlay(SubC1,SubC2,Opacity=0.5) Sub.Subtitle(Font=Font,Text_Color=TextColor,Halo_Color=HaloColor,X=X,Y=Y,Size=Size,Text) Lanczosresize(OX,OY) Return(Last) }