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

Code: Select all

graphics ! graphics clear ! option base 1 ! fill color 0,.7,0
dim sx(7,6),sy(7,6),num(10,7)
for k=1 to 6 ! for i=1 to 4 ! read sx(k,i),sy(k,i) ! next i ! next k
for i=1 to 6 ! read sx(7,i),sy(7,i) ! next i
for k=1 to 10 ! for j=1 to 7 ! read num(k,j) ! next j ! next k
data 5,0, 75,0, 65,10, 15,10,  0,5, 10,15, 10,69, 0,74
data 80,5, 70,15, 70,69, 80,74,  0,86, 10,91, 10,147, 0,157
data 80,86, 70,91, 70,147, 80,157, 5,160, 75,160, 65,150, 15,150
data 0,80, 10,75, 70,75, 80,80, 70,85, 10,85
data 1,2,3,4,5,6,-1,  3,5,-1,0,0,0,0,  1,3,7,4,6,-1,0
data 1,3,5,6,7,-1,0, 2,7,3,5,-1,0,0,  1,2,7,5,6,-1,0
data 1,2,4,6,5,7,-1, 1,3,5,-1,0,0,0,  1,2,3,4,5,6,7,  1,2,3,7,5,6,-1

for i=0 to 9 ! number (i,20+60*i,50,.5) ! next i
end

' 7-segment number k, left upper corner at x,y screenposition
' sc = scale, scale 1 gives 80x160 size on screen
' 
def number(k,x,y,sc)
fill color 0,0,0 ! fill alpha .7
fill rect x-4,y-4 to 80*sc+x+4,160*sc+y+4
fill color 0,.7,0 ! fill alpha 1
for j=1 to 7
  snum=.num(k+1,j) ! if snum=-1 then break
  segment_on(snum,x,y,sc)
  next j
end def

def segment_on (nr,x,y,sc)
dim xseg(6), yseg(6)
if nr>6 then k=6 else k=4
for i=1 to k ! xseg(i)=sc*.sx(nr,i)+x ! yseg(i)=sc*.sy(nr,i)+y ! next i
fill poly xseg,yseg count k
end def