sixel graphics lib-sixel

[alexfish]

Hi All

Whilst on with html2text lib
now have a module using lib-sixel

hence will need sixel devs

as a side note possible will only run in xterm or mlterm uxterm

if not mlterm will need to switch term mode
using
-ti 340

IE
xterm -ti 340

A bit of code to get Started then see what do with it;


PRAGMA LDFLAGS -lsixel
PRAGMA INCLUDE <sixel/sixel.h>

CONST X_TERM ='7'
CONST ML_TERM = '8'
CONST X_COLOR = "16"
CONST ML_COLOR = "256"

PROTO fprintf
OPTION PARSE FALSE

FUNCTION IMG2SIXEL(char modes,const char * color, const char* txt,const char * width , const char * height) TYPE int
LOCAL   status = SIXEL_FALSE TYPE  SIXELSTATUS
LOCAL    *encoder = NULL TYPE sixel_encoder_t


   status = sixel_encoder_new(& encoder, NULL)

           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
            'Color Mode
           status = sixel_encoder_setopt(encoder,'p',color)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
' MODE X_TERM OT ML_TERM
           status = sixel_encoder_setopt(encoder,modes,NULL)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
' width *% or pixels wide
           status = sixel_encoder_setopt(encoder,'w', width)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
' width *% or pixels wide
           status = sixel_encoder_setopt(encoder, 'h', height)
' ENCODE THE FILE
           status = sixel_encoder_encode(encoder, txt)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF

   /* mark as success */
   status = SIXEL_OK
   GOTO end


LABEL error
   fprintf(stderr, "%s\n%s\n", sixel_helper_format_error(status),sixel_helper_get_additional_message())
   status = (-1)
LABEL end
   sixel_encoder_unref(encoder)
 RETURN status

END FUNCTION


PRINT "HELLO SIXEL "
' Change to your path to file
LOCAL imagefile = "/home/pi/Downloads/libsixel/images/egret.jpg" TYPE STRING
IMG2SIXEL(X_TERM,X_COLOR, imagefile,"50%","50%")

BR
Alex

[alexfish]

Result using Xterm modes as above

BR
Alex

Attachments:

[vovchik]

Dear Alex,

And it works! Very nice work... Thanks.

With kind regards,
vovchik

Attachments:

[alexfish]

Hi Vovchik

Pleased it works

To All if us BaCon's Cursor

Then can position of text And the picture


CURSOR

CURSOR <ON|OFF> | <FORWARD|BACK|UP|DOWN> [x]
Type: statement
Shows ("on") or hides ("off") the cursor in the current ANSI compliant terminal. Also, the cursor can be moved one position in one of the four directions. Optionally, the amount of steps to move can be specified. Example:
PRINT "I am here"
CURSOR DOWN 2
PRINT "...now I am here"

BR
Alex

[alexfish]

hi all

latest example for http + localhost server

need compiled version with --with-libcurl

but check first:: else
find source at github.com/saitoha/libsixel

best option due to this sixel binbit is to install the repo version
then find libsixel source on github find out where the libsixel.so.1.0.6 is
but check symlink libsixel.so.1 or libsixel.so is there

for raspberry pi
./configure --with-libcurl --prefix=/usr/lib/arm-linux-gnueabihf/
do not install cp it

sudo cp libsixel.so.1.0.6/usr/lib/arm-linux-gnueabihf/libsixel.so.1.0.6


PRAGMA LDFLAGS -lsixel
PRAGMA INCLUDE <sixel/sixel.h>

CONST X_TERM ='7'
CONST ML_TERM = '8'

CONST X_COLOR = "16"
CONST X_COLOR256 = "256"
CONST ML_COLOR = "256"

PROTO fprintf
OPTION PARSE FALSE

FUNCTION IMG2SIXEL(char modes,const char * color, const char* txt,const char * width , const char * height) TYPE int
LOCAL   status = SIXEL_FALSE TYPE  SIXELSTATUS
LOCAL    *encoder = NULL TYPE sixel_encoder_t


   status = sixel_encoder_new(& encoder, NULL)

           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
            'Color Mode
           status = sixel_encoder_setopt(encoder,'p',color)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
' MODE X_TERM OT ML_TERM
           status = sixel_encoder_setopt(encoder,modes,NULL)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
' width *% or pixels wide
           status = sixel_encoder_setopt(encoder,'w', width)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF
' width *% or pixels wide
           status = sixel_encoder_setopt(encoder, 'h', height)
' ENCODE THE FILE
           status = sixel_encoder_encode(encoder, txt)
           IF (SIXEL_FAILED(status)) THEN
               GOTO error
           ENDIF

   /* mark as success */
   status = SIXEL_OK
   GOTO end


LABEL error
   fprintf(stderr, "%s\n%s\n", sixel_helper_format_error(status),sixel_helper_get_additional_message())
   status = (-1)
LABEL end
   sixel_encoder_unref(encoder)
 RETURN status

END FUNCTION


PRINT "HELLO SIXEL "
' Change to your path to file http://www.basic-converter.org/linux.png
' local server http://192.168.8.100/bacon-osm-maps/8/129/81.png
LOCAL imagefile = "http://www.basic-converter.org/linux.png" TYPE STRING
IMG2SIXEL(X_TERM,X_COLOR256, imagefile,"100%","100%")

Have Fun
+
BR
Alex

Attachments: