Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1749 1309 (N16W56 L=255)   343    102        0 (1717/1264-1777/1341) -56.3 W54-W58 N12-N18
      2 1029 1263 (N20W02 L=201)   307     80        2 ( 994/1233-1065/1292) -53.1 W00-W04 N17-N21
      3  230 1086 (N11E59 L=140)   662    132        2 ( 214/1024- 253/1146) -60.3 E60-E56 N07-N14
      4  978  942 (N00E03 L=196)   198     50        1 ( 951/ 917-1008/ 956)   0.0 E04-E01 S01-N01
      5 1470  920 (S05W28 L=227)   556    180        1 (1396/ 897-1549/ 954) -15.3 W22-W33 S06-S02
      6 1731  872 (S11W48 L=248)   569    125        3 (1692/ 845-1777/ 917) -29.1 W44-W53 S12-S07
      7  330  737 (S10E52 L=147)   406     91        1 ( 307/ 686- 351/ 770)  39.8 E55-E48 S13-S08
      8  290  680 (S14E58 L=141)   667    170        1 ( 266/ 609- 321/ 758) -90.0 E59-E54 S18-S09
      9 1380  625 (S23W21 L=221)   371    147        2 (1330/ 573-1414/ 684)  54.5 W18-W23 S26-S19
     10 1513  588 (S27W32 L=231)   488    205        1 (1486/ 504-1550/ 681)  85.6 W30-W34 S33-S20
     11  873  638 (S18E12 L=187)   263     84        0 ( 846/ 616- 919/ 655)  21.8 E14-E09 S19-S17
     12  772  512 (S27E21 L=178)   451     82        2 ( 739/ 486- 817/ 535) -21.8 E23-E18 S28-S25
     13  702  334 (S41E33 L=166)   942    242        2 ( 669/ 224- 740/ 430)  46.5 E46-E26 S51-S32
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y