Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  778 1470 (N20E26 L= 99)   478     98        2 ( 730/1431- 820/1510)   0.0 E28-E22 N17-N22
      2  817 1387 (N16E20 L=105)   333     56        1 ( 790/1365- 854/1412)   0.0 E22-E17 N14-N17
      3 1816 1203 (N26W56 L=181)   859    188        1 (1745/1143-1877/1256) -15.9 W47-W65 N23-N28
      4  474 1183 (S03E38 L= 87)   611     89        0 ( 424/1153- 518/1209)  26.6 E41-E35 S04-N00
      5 1856  995 (N14W62 L=187)  1122    154        3 (1821/ 939-1888/1069) -33.7 W56-W67 N11-N18
      6  893  972 (S07E07 L=118)   719    231        1 ( 816/ 897- 966/1054)  65.6 E10-E03 S12-S01
      7 1199  842 (S09W14 L=139)   742    297        1 (1095/ 769-1280/ 938)  61.7 W09-W17 S14-S01
      8 1334  852 (S05W22 L=147)   244     69        1 (1296/ 826-1369/ 871)  11.3 W19-W24 S07-S03
      9 1188  732 (S15W16 L=141)   693    276        1 (1084/ 673-1245/ 805)  33.7 W09-W18 S19-S10
     10  988  671 (S23W05 L=130)   323    104        1 ( 951/ 638-1017/ 719)  78.7 W03-W07 S25-S20
     11 1754  654 (S08W61 L=186)   643     95        2 (1725/ 618-1781/ 698)  90.0 W58-W64 S10-S04
     12 1827  651 (S06W72 L=197)  1005     92        2 (1794/ 619-1863/ 673)  29.7 W67-W80 S08-S04
     13 1479  627 (S16W38 L=163)   255    128        0 (1431/ 585-1511/ 670)  66.8 W36-W39 S19-S12
     14 1347  347 (S36W44 L=169)   334     73        0 (1315/ 331-1385/ 366)   0.0 W40-W48 S37-S35
  

    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