Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1107 1604 (N40E01 L=179)   577    142        1 (1048/1573-1175/1638) -16.7 E06-W04 N38-N42
      2  916 1424 (N25E12 L=169)   284    164        0 ( 865/1389- 979/1443)  23.2 E15-E07 N22-N26
      3 1257 1239 (N17W13 L=193)   632    305        2 (1204/1187-1320/1315) -26.6 W08-W16 N14-N21
      4  180  998 (S10E65 L=116)  2152    203        5 ( 134/ 920- 238/1063)  42.3 E73-E57 S15-S05
      5 1793  870 (S01W57 L=238)   601     95        0 (1749/ 846-1834/ 898)   0.0 W52-W62 S02-N00
      6  670  864 (S12E21 L=160)   290     76        1 ( 640/ 841- 712/ 879)  31.0 E22-E17 S14-S11
      7 1579  775 (S08W40 L=221)   253     70        1 (1565/ 738-1597/ 812)  78.7 W38-W40 S10-S05
      8 1025  769 (S14W03 L=184)   385    134        3 ( 973/ 736-1087/ 797)  -8.1 W00-W07 S15-S12
      9 1518  742 (S11W36 L=217)   331     91        0 (1502/ 702-1542/ 786)  90.0 W34-W37 S13-S08
     10 1632  687 (S13W46 L=227)   918    316        3 (1496/ 619-1729/ 782)  38.7 W37-W53 S19-S06
     11  618  752 (S20E24 L=157)   301    145        0 ( 565/ 738- 688/ 770)   6.3 E27-E18 S21-S18
     12 1389  713 (S14W27 L=208)   445    164        3 (1330/ 695-1477/ 730)  11.3 W23-W33 S15-S12
     13 1783  667 (S13W63 L=244)   442     90        2 (1755/ 633-1799/ 702) -76.0 W61-W65 S15-S11
     14 1485  521 (S26W40 L=221)  1225    192        3 (1392/ 490-1558/ 560)  28.6 W33-W46 S28-S22
     15 1042  470 (S35W08 L=189)   460    138        0 ( 984/ 452-1111/ 494)   0.0 W03-W13 S35-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