![]() ( set! y ( + y margin ( apply max EMOTEGEN-DISCORD-SIZES) margin spacing)) (emotegen-create-set src_image dst_image dark_d EMOTEGEN-DISCORD-SIZES 0 y) (emotegen-create-set src_image dst_image light_t EMOTEGEN-TWITCH-SIZES 0 y) ( set! y ( + y margin ( apply max EMOTEGEN-TWITCH-SIZES) margin spacing)) (emotegen-create-set src_image dst_image dark_t EMOTEGEN-TWITCH-SIZES 0 y) (dst_image ( car (gimp-image-new 1 1 RGB))) (gimp-context-set-interpolation INTERPOLATION-CUBIC) ( define ( emotegen-create-page src_image dark_t light_t dark_d light_d) ( set! sum ( + sum margin size margin spacing)) ( + y ( / ( - ( apply max sizes) size) 2)) (gimp-item-transform-translate bg_layer 0 y) (gimp-drawable-edit-fill bg_layer FILL-BACKGROUND) (gimp-image-insert-layer dst_image bg_layer 0 -1) (set-height ( + margin ( apply max sizes) margin)) (set-width ( + ( apply + ( map ( lambda ( s) ( + margin s margin)) sizes)) ( * spacing ( - ( length sizes) 1))) ) ( define ( emotegen-create-set src_image dst_image bg_colour sizes x y) (gimp-item-transform-translate fg_layer ( + x margin) ( + y margin)) ( set! fg_layer (emotegen-create-emote src_image dst_image emote_size)) (panel_size ( + margin emote_size margin)) ( define ( emotegen-create-panel src_image dst_image emote_size x y) Generate an emote panel with a 2px margin (gimp-layer-scale layer emote_size emote_size FALSE) (gimp-image-insert-layer dst_image layer 0 -1) (layer ( car (gimp-layer-new-from-visible src_image dst_image "Emote "))) ( define ( emotegen-create-emote src_image dst_image emote_size) Return the layer it's already added to the specified image Create a new layer containing the flattened source image at a particular size (FILL-BACKGROUND ( if is-2.8 BACKGROUND-FILL FILL-BACKGROUND)) (LAYER-MODE-NORMAL ( if is-2.8 NORMAL LAYER-MODE-NORMAL)) (gimp-image-undo-group-end ( if is-2.8 ( lambda ( p1) (gimp-undo-push-group-end p1)) gimp-image-undo-group-end)) ![]() (gimp-image-undo-group-start ( if is-2.8 ( lambda ( p1) (gimp-undo-push-group-start p1)) gimp-image-undo-group-start)) (gimp-item-transform-translate ( if is-2.8 ( lambda ( p1 p2 p3) (gimp-layer-translate p1 p2 p3)) gimp-item-transform-translate)) (gimp-drawable-edit-fill ( if is-2.8 ( lambda ( p1 p2) (gimp-edit-fill p1 p2)) gimp-drawable-edit-fill)) (gimp-context-set-background ( if is-2.8 ( lambda ( p1) (gimp-palette-set-background p1)) gimp-context-set-background)) (gimp-image-insert-layer ( if is-2.8 ( lambda ( p1 p2 p3 p4) (gimp-image-add-layer p1 p2 p4)) gimp-image-insert-layer)) ( define EMOTEGEN-SIZE-OPTIONS '( "Twitch " "Discord ")) ( define EMOTEGEN-DISCORD-LIGHT '( 255 255 255)) #ffffff ( define EMOTEGEN-DISCORD-SIZES '( 16 22 48 144)) Desktop reaction / small / large = Android small+reaction / android large ( define EMOTEGEN-TWITCH-LIGHT '( 255 255 255)) #ffffff ( define EMOTEGEN-TWITCH-SIZES '( 18 36 72 28 56 112)) Badge sizes / emote sizes ( define EMOTEGEN-SUBMENU "/Image/Emote Generator")
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |