! Mouth Slant & Distance experiment
! this program presents the Bella Principessa image and a line which slant is adjustable through the + and - key 

PUBLIC nome$

LET level$ = "FAR"
!LET level$ = "CLOSE"!COMMENT THE condition you don't want

CALL myopenfile (#1,level$)

LET waitprincess = 2


ASK PIXELS px,py
SET WINDOW 1,px,1,py
LET cx=int(px/2)
LET cy=int(py/2)

SET BACK "black"
SET COLOR "white"

PRINT  "YOU ARE REQUIRED TO INSPECT A PORTRAIT ON THE SCREEN."

PRINT  "PLEASE USE THE - AND + BUTTONS IN THE NUMERIC KEYBOARD TO ALIGN THE LINE TO THE WOMAN MOUTH SLANT"

PRINT  "PRESS THE SPACE BAR WHEN YOU ARE SATISFIED WITH YOUR MATCH"

PRINT "PRESS ANY KEY TO START"
GET KEY AAAA
CLEAR

LET im$ = "bella" & ".jpg"


CALL Read_Image("JPEG",imagedata$,im$)
BOX SHOW imagedata$ at 0,0
LET v =0
SET COLOR "black"

let myy = 20  !changes hairline to match mouth y coordinate
let myx = 50  !changes hahirline to match mouth x coordinate
let long = 30 !changes hairliine lenghts


DO
   CLEAR
   BOX SHOW imagedata$ at 0,0
   PLOT myx-long, cy+myy;myx, cy+myy+v
   GET KEY mykey
   SELECT CASE mykey
   CASE 45
        LET v=v-1
   CASE 43
        LET v=v+1
   CASE 32
        EXIT DO
   CASE else
        EXIT DO
   END SELECT
LOOP until mykey = 32
CLEAR

CALL savedata (#1,im$, v)


CALL Read_Image("JPEG",mask$,"mask.jpg")
BOX SHOW mask$ at 0,0
PAUSE waitprincess
CLEAR
CLOSE #1

PRINT "THANK YOU, END OF THE EXPERIMENT"


END

!#####################################################################
SUB savedata (#1, im$, v)

    PRINT#1: im$,v

END SUB
!#####################################################################
SUB myopenfile (#1, level$)

    DECLARE PUBLIC nome$

    INPUT prompt "Please, write your initials and press enter ":nome$

    CLEAR


    OPEN#1:name nome$ &"-"  & level$ & ".txt",org text,create newold      !per singolo sogg
    RESET#1:end
    SET #1 : MARGIN 150
    SET #1 : ZONEWIDTH 22

    PRINT#1:"PICTURE","ANSWER"


END SUB