Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1152 1855 (N59W49 L=212)   535     57        0 (1130/1828-1180/1874)   4.4 W42-W55 N56-N60
      2 1363 1405 (N22W30 L=193)   896    314        0 (1204/1376-1489/1431) -20.2 W20-W39 N18-N27
      3 1623 1230 (N06W43 L=206)   266     65        1 (1599/1205-1654/1246)  11.3 W40-W45 N05-N07
      4 1630 1011 (S06W38 L=201)   577    189        0 (1592/ 935-1680/1089) -70.0 W36-W41 S12-S01
      5 1733 1038 (S07W47 L=210)   332     47        0 (1721/1009-1747/1074) -90.0 W46-W48 S09-S05
      6 1836  943 (S16W57 L=220)   656     94        1 (1800/ 904-1862/ 983) -78.7 W52-W60 S18-S13
      7 1509  783 (S17W26 L=189)   612    188        0 (1468/ 710-1529/ 873)  60.9 W22-W28 S21-S12
      8 1721  697 (S29W44 L=207)   490    104        1 (1686/ 654-1761/ 741)  39.8 W40-W48 S31-S26
      9 1270  694 (S18W09 L=172)   343    145        0 (1212/ 670-1333/ 729)   0.0 W05-W13 S18-S16
     10  378  556 (S12E56 L=107)  1198    238        1 ( 340/ 462- 416/ 638)  59.7 E61-E51 S18-S06
     11 1319  528 (S30W10 L=173)  1011    168        6 (1271/ 474-1386/ 580)   0.0 W05-W14 S33-S25
     12 1688  532 (S41W44 L=207)   796     77        0 (1659/ 487-1720/ 571)  51.3 W40-W47 S43-S37
     13  625  556 (S15E35 L=128)   460    141        0 ( 555/ 541- 697/ 568)  -5.2 E40-E29 S16-S14
     14 1125  341 (S40E08 L=155)  2464    346        4 ( 984/ 235-1246/ 442)  19.1 E24-W02 S46-S33
  

    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