Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  622 1753 (N69E12 L=104)  1540    184        4 ( 531/1696- 696/1806)   5.9 E29-W03 N65-N72
      2 1652 1644 (N21W71 L=186)  1522    148        3 (1598/1599-1702/1694)  82.9 W67-W76 N17-N25
      3 1454 1611 (N27W49 L=164)   435    115        1 (1412/1583-1490/1647) -15.9 W44-W51 N25-N29
      4 1546 1516 (N19W50 L=165)   645    232        1 (1450/1463-1636/1543) -48.0 W44-W54 N13-N23
      5  434 1329 (N39E35 L= 81)   561    129        1 ( 397/1272- 475/1368) -54.5 E38-E30 N35-N42
      6  553 1131 (N24E27 L= 89)   284     96        0 ( 509/1121- 603/1143)  -8.1 E30-E23 N23-N25
      7  826 1011 (N11E12 L=104)   243    106        1 ( 777/ 990- 870/1030) -31.0 E14-E09 N08-N13
      8  127  985 (N23E75 L= 41)  1105     86        2 (  99/ 943- 153/1021)  24.0 E82-E68 N20-N25
      9  395  950 (N17E42 L= 73)   402     78        0 ( 379/ 902- 417/ 988)  45.0 E43-E39 N14-N19
     10 1460  886 (S12W22 L=137)   535    132        1 (1426/ 825-1489/ 954)  45.0 W19-W25 S15-S09
     11 1046  730 (S10E06 L=109)   375    128        1 (1009/ 686-1090/ 775)  18.4 E09-E03 S11-S07
     12 1697  681 (S33W37 L=152)   695     95        1 (1681/ 623-1716/ 730)  74.1 W35-W38 S37-S30
     13  881  665 (S10E17 L= 98)   237     70        0 ( 869/ 627- 893/ 709)  68.2 E18-E16 S12-S07
     14  662  490 (S15E37 L= 78)   322     40        1 ( 634/ 466- 688/ 516) -45.0 E39-E35 S17-S13
  

    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