Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  595 1751 (N27E54 L=142)  3615    480        9 ( 460/1612- 728/1843) -81.9 E64-E42 N15-N36
      2 1020 1769 (N39E25 L=171)   745    150        0 ( 981/1695-1049/1822) -36.9 E30-E18 N33-N42
      3  852 1651 (N25E29 L=167)   289     55        0 ( 826/1631- 879/1673)  63.4 E30-E27 N23-N27
      4 1595 1484 (N37W26 L=222)   564    126        1 (1566/1423-1612/1542) -69.4 W22-W27 N32-N40
      5 1475 1448 (N30W17 L=213)   240     67        1 (1458/1421-1493/1484) -76.0 W15-W18 N28-N32
      6 1295 1322 (N16W08 L=204)   334     86        2 (1262/1285-1331/1360)  59.0 W06-W09 N14-N19
      7  519 1232 (S07E35 L=160)   227     45        1 ( 502/1211- 539/1263) -56.3 E36-E33 S08-S05
      8 1353 1230 (N13W13 L=209)   282     57        2 (1324/1208-1389/1247)  14.0 W11-W15 N11-N13
      9  135 1201 (S14E74 L=122)   760     85        2 ( 111/1180- 163/1233)  26.6 E80-E69 S15-S12
     10  272 1134 (S17E54 L=142)   414     80        1 ( 243/1096- 303/1159)  45.0 E56-E50 S19-S15
     11  327 1012 (S23E46 L=150)   785    119        2 ( 295/ 973- 369/1064) -33.7 E49-E41 S25-S20
     12  223  938 (S29E57 L=139)   883    170        0 ( 191/ 855- 254/1009)  59.0 E61-E53 S34-S24
     13  524  950 (S23E29 L=167)   256     85        0 ( 502/ 902- 538/ 990) -45.0 E31-E27 S25-S21
     14 1268  923 (S07W16 L=212)   325     55        1 (1247/ 888-1300/ 951)  76.0 W14-W17 S08-S04
     15  798  898 (S20E10 L=186)   187     58        1 ( 762/ 878- 834/ 909)  21.8 E12-E07 S21-S18
     16 1472  728 (S11W34 L=230)   824    198        2 (1380/ 681-1563/ 766)  48.0 W30-W39 S16-S06
     17 1681  641 (S09W54 L=249)   827    173        1 (1630/ 589-1738/ 672)  45.0 W50-W58 S13-S06
     18 1179  592 (S27W22 L=218)   494    158        0 (1103/ 566-1245/ 630)  40.6 W17-W24 S29-S23
     19 1441  446 (S27W47 L=242)  1614    311        4 (1291/ 391-1575/ 491)  15.6 W35-W60 S31-S24
     20 1080  401 (S42W25 L=221)  1167    203        1 ( 981/ 374-1174/ 430)  30.3 W18-W30 S44-S37
     21  526  375 (S63E26 L=169)  1585    219        2 ( 435/ 336- 629/ 419)   3.8 E41-E11 S65-S59
  

    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