Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1198 1724 (N48W33 L=327)   533     88        1 (1169/1692-1240/1750)   6.3 W28-W37 N46-N50
      2 1326 1633 (N39W37 L=331)   952    141        2 (1272/1584-1377/1681) -83.7 W33-W39 N34-N43
      3 1673 1565 (N26W65 L=359)   668    110        0 (1623/1527-1718/1597) -50.2 W61-W68 N22-N29
      4 1261 1546 (N34W28 L=321)   543    149        0 (1210/1489-1286/1583) -81.9 W24-W29 N30-N37
      5 1177 1519 (N34W20 L=314)   368    111        0 (1154/1471-1209/1564)  81.9 W19-W22 N30-N37
      6  270 1136 (N22E55 L=239)   765    178        1 ( 235/1048- 288/1205) -59.0 E59-E52 N16-N26
      7  708 1138 (N18E18 L=275)   749    300        0 ( 578/1093- 839/1189) -27.9 E27-E10 N13-N22
      8 1681  915 (S12W42 L=336)  1436    239        1 (1606/ 813-1730/1016)  42.3 W34-W47 S16-S06
      9  593  951 (N08E28 L=266)   421    140        0 ( 548/ 895- 624/1003) -60.3 E30-E26 N04-N11
     10 1223  859 (S07W09 L=303)   796    176        2 (1184/ 764-1262/ 935)  60.9 W05-W12 S11-S02
     11 1415  763 (S16W20 L=314)   230     56        0 (1395/ 741-1435/ 785)  26.6 W18-W22 S17-S14
     12 1673  725 (S24W41 L=334)   471     99        0 (1645/ 679-1693/ 773)  59.0 W38-W42 S26-S20
     13 1199  279 (S49E01 L=292)   381     44        1 (1183/ 255-1219/ 313)  80.5 E03-W00 S51-S45
     14 1109  237 (S51E11 L=283)   356     64        0 (1074/ 224-1144/ 255)   0.0 E14-E07 S52-S49
     15  953  175 (S54E31 L=263)   678     75        1 ( 913/ 156- 993/ 192)   0.0 E36-E25 S56-S52
  

    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