Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1772 1501 (N13W72 L=  9)  3361    304        3 (1671/1425-1859/1606) -58.0 W66-W86 N05-N21
      2 1125 1547 (N35W22 L=319)   852    290        1 (1002/1498-1260/1577) -29.4 W13-W29 N29-N38
      3 1401 1497 (N24W38 L=335)   294    111        0 (1354/1483-1450/1517) -26.6 W34-W41 N23-N26
      4 1550 1387 (N14W43 L=340)   739    136        3 (1505/1340-1600/1455)  20.0 W38-W49 N11-N16
      5  271 1336 (N41E56 L=241)   781    118        2 ( 240/1290- 298/1395) -49.4 E60-E51 N38-N45
      6 1034 1208 (N17W05 L=302)   442    158        1 ( 981/1156-1095/1266)  24.0 W00-W09 N15-N19
      7  328 1234 (N34E47 L=251)   353     55        3 ( 295/1217- 363/1250)  -7.1 E50-E42 N32-N35
      8 1300 1169 (N09W19 L=317)   637    188        2 (1229/1129-1355/1206) -20.6 W15-W23 N06-N12
      9  855 1166 (N19E07 L=290)   329    138        2 ( 789/1152- 929/1177) -20.6 E10-E02 N17-N20
     10  342 1020 (N20E46 L=251)   307     68        0 ( 309/ 991- 370/1038) -31.0 E49-E43 N18-N21
     11  290  957 (N17E52 L=245)   462     96        1 ( 274/ 912- 307/1011)  71.6 E53-E50 N14-N20
     12  284  622 (S03E63 L=234)   445     60        1 ( 258/ 604- 304/ 644)  14.0 E67-E59 S03-S01
     13  553  321 (S27E56 L=241)  1036    141        1 ( 508/ 255- 594/ 367)  66.0 E61-E52 S32-S22
  

    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