Support Forum / Форум поддержки

Code: Select all

graphics ! ss=screen_scale()
a$="This was a very nice summer, that is in NL."
draw text a$ at 20,40
le=len(a$)
for i=0 to le-1
  draw_num(600+i,160,asc(mid$(a$,i,1)))
  next i
for i=0 to le-1
  b$ &= chr$(get_num(600+i,160))
  next i
draw text b$ at 20,100
end

def draw_num(x,y,num)
for i=0 to 7
  if bit(num,i) then draw pixel x,y+i
  next i
end def

def get_num(x,y)
num=0
for i=0 to 7
  get pixel x,y+i color r,g,b
  if r+g+b>2.5 then num+=2^i
  next i
return num
end def

Code: Select all

graphics
dim cl(5)

for i=1 to 100000
  teksto$ &= chr$(20+rnd(120))
  next i
for i=1 to 10 ! tekst$ &= teksto$ ! next i

lt=len(tekst$)-1 ! xpix=500 ! k=0 ! xo=480 ! x=xo ! y=60
while k<lt
  for i=1 to xpix
    for j=1 to 4
      if k<=lt then cl(j)=asc(mid$(tekst$,k,1))
      k+=1
      next j
    draw_pixel(x,y,cl)
    if k>lt then break
    x+=1
    if x-xo>xpix then ! x=xo ! y+=1 ! end if
    next i
button "1" text k at 10,10 size 100,40
  end while
debug pause
end

' draw a pixel using values 0-255 for r,g,b and alpha in cl(4)
'
def draw_pixel(x,y,cl())
r=cl(1)/255 ! g=cl(2)/255 ! b=cl(3)/255 ! a=cl(4)/255
draw pixel x,y color r,g,b,a
end def

' get pixel values 0-255 for r,g,b,alpha in array cl(1) - cl(4)
'
def get_pixel(x,y,cl())
get pixel x,y color cl(1),cl(2),cl(3),cl(4)
for i=1 to 4 ! cl(i)=floor(cl(i)*255) ! next i
end def

Code: Select all

' Datastore Sync

' based on Datastore by Henko
' October 2016

SET ORIENTATION LANDSCAPE
laun$=LAUNCHER$ ()
GET SCREEN SIZE sw,sh
dev$=DEVICE_TYPE$()
iostest=0                ' set to 1 to test other iOS devices on iPad
IF iostest THEN
  dev$=""
  sw=667!sh=375          ' to test iPhone 6
ENDIF
rw=sw/1024!rh=sh/768
le=20000
GRAPHICS ! ss=SCREEN_SCALE()
send=0

IF send THEN
   a$="We have a very chilly Fall here in Calgary."&CHR$(10)
   a$&="I am testing the data storage."&CHR$(10)
   a$&="I am going to save an image and export it to the camera roll."&CHR$(10)
   a$&="I will include some emoji: [ ] ^ ."&CHR$(10)
   
  FOR m=1 TO 100
   a$&="We have a very chilly Fall here in Calgary."&CHR$(10)
   a$&="I am testing the data storage."&CHR$(10)
   a$&="I am going to save an image and export it to the camera roll."&CHR$(10)
   a$&="I will include some emoji: [ ] ^ ."&CHR$(10)
  NEXT m
   
  le=LEN(a$)

   FIELD "input" TEXT a$ AT 50*rw,220*rh SIZE 800*rw,260*rh ML RO
   DRAW FONT SIZE 14*rw
   DRAW TEXT "imagedata1.jpg" AT 0,190*rh
   DRAW FONT SIZE 20*rw
   DRAW TEXT "Write" AT 880,290*rh
   DRAW TEXT "data to" AT 880,310*rh
   DRAW TEXT "screen" AT 880,330*rh
   lin=-8!k=0
   FOR i=0 TO le-1
     IF i%400=0 THEN! lin+=8!k=0!ENDIF
     draw_num(k,lin,ASC(MID$(a$,i,1)))
     k+=1
   NEXT i
   GRAPHICS SAVE 0,0, 200,200 TO "imagedata1.jpg"
   ALBUM EXPORT "imagedata1.jpg"
ELSE

   ALBUM IMPORT "imagedata2.jpg"
   DRAW IMAGE "imagedata2.jpg" AT 0,0 SCALE .5
ENDIF
   'le=1000
   DRAW TEXT "Read" AT 880,560*rh
   DRAW TEXT "data from" AT 880,580*rh
   IF send THEN
     DRAW TEXT "screen" AT 880,600*rh
   ELSE
     DRAW TEXT "saved" AT 880,600*rh
     DRAW TEXT "image" AT 880,620*rh
   ENDIF
   
   lin=-8!k=0
   FOR i=0 TO le-1
     IF i%400=0 THEN! lin+=8!k=0!ENDIF
     temp$ =CHR$(get_num(k,lin))
     IF temp$="]" THEN temp$=""
     IF temp$="[" THEN temp$=""
     IF temp$="^" THEN temp$=""
     b$ &= temp$
     k+=1
   NEXT i
   FIELD "output" TEXT b$ AT 50*rw,500*rh SIZE 800*rw,260*rh ML RO

PAUSE 10
END

DEF draw_num(x,y,num)
FOR i=0 TO 7
  IF BIT(num,i) THEN DRAW PIXEL x,y+i
NEXT i
END DEF

DEF get_num(x,y)
num=0
FOR i=0 TO 7
  GET PIXEL x,y+i COLOR r,g,b
  IF r+g+b>2.5 THEN num+=2^i
NEXT i
RETURN num
END DEF