Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  943 1685 (N30E24 L= 34)  1384    364        4 ( 861/1549- 993/1777) -37.4 E33-E16 N21-N36
      2 1040 1441 (N17E09 L= 49)   263     89        1 (1009/1399-1055/1480) -38.7 E12-E07 N14-N18
      3  217 1224 (S12E61 L=358)  2653    435        9 ( 172/1108- 276/1321)  85.6 E66-E55 S18-S05
      4  518 1082 (S15E32 L= 26)   551    204        0 ( 464/ 989- 566/1170) -42.0 E37-E26 S19-S10
      5 1785 1136 (N20W46 L=104)   316    103        1 (1753/1085-1804/1169) -38.7 W43-W48 N17-N21
      6 1177 1048 (S02W08 L= 66)   928    239        2 (1089/1007-1312/1116)   0.0 W01-W15 S04-N00
      7  278 1067 (S20E50 L=  8)   322     74        2 ( 252/1032- 296/1096) -76.0 E52-E48 S22-S18
      8 1663  898 (N03W42 L=100)   817    184        3 (1633/ 814-1700/ 971) -45.0 W39-W47 S01-N07
      9  275  856 (S33E49 L= 10)   863    283        1 ( 192/ 823- 356/ 897)  21.8 E56-E41 S35-S28
     10 1328  747 (S15W25 L= 83)   418    165        0 (1249/ 721-1407/ 791)  48.8 W20-W28 S18-S10
     11 1763  648 (S07W61 L=119)   377     95        0 (1739/ 613-1776/ 672) -45.0 W57-W63 S08-S05
     12 1018  622 (S30W11 L= 69)   564    142        0 ( 951/ 588-1103/ 654)  45.0 W07-W14 S33-S26
     13 1560  580 (S17W46 L=105)   295     94        2 (1523/ 545-1595/ 608)  36.9 W43-W48 S18-S14
     14 1673  556 (S15W57 L=115)  1461    265        5 (1613/ 488-1736/ 608)  63.4 W51-W61 S18-S10
  

    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