Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1192 1865 (N55E25 L= 45)  1018    142        1 (1134/1834-1267/1890)   8.1 E31-E16 N50-N57
      2  652 1786 (N29E55 L= 15)   543     48        0 ( 623/1759- 682/1811)  -6.3 E59-E49 N27-N30
      3  587 1680 (N20E50 L= 19)   896    115        1 ( 565/1632- 618/1736) -28.6 E56-E45 N17-N23
      4 1680 1555 (N49W34 L=104)   404     53        0 (1658/1520-1695/1577) -63.4 W31-W36 N46-N50
      5 1256 1350 (N18W04 L= 74)   203     94        0 (1208/1341-1305/1362)  31.0 W01-W06 N16-N19
      6 1250 1212 (N10W07 L= 77)   260     80        1 (1230/1164-1268/1243) -78.7 W05-W09 N07-N12
      7 1628 1108 (N16W33 L=103)   255     72        0 (1616/1069-1642/1147) -63.4 W31-W34 N13-N18
      8  183 1108 (S22E64 L=  6)   807     69        1 ( 153/1072- 209/1140)  33.7 E68-E60 S24-S19
      9  215 1036 (S26E59 L= 11)  1783    163        6 ( 166/ 960- 255/1122)  68.2 E65-E54 S30-S20
     10  366  992 (S25E42 L= 28)  1160    359        0 ( 209/ 918- 493/1048)  24.8 E58-E32 S32-S18
     11  759 1022 (S14E15 L= 55)   259    117        0 ( 707/ 995- 801/1040)  31.0 E17-E12 S16-S12
     12 1095  982 (S07W05 L= 75)   322     80        1 (1071/ 946-1139/1010)  14.0 W03-W07 S09-S05
     13 1542  582 (S15W46 L=116)   472     75        0 (1506/ 550-1575/ 621)  78.7 W44-W47 S16-S11
  

    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