Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  951 1791 (N52E24 L=222)   543    107        1 ( 902/1775-1005/1807)   5.2 E29-E18 N50-N53
      2  315 1512 (N20E63 L=183)  1419    239        4 ( 281/1466- 357/1566) -29.1 E67-E56 N17-N23
      3  418 1376 (N13E47 L=199)   330    139        0 ( 375/1338- 451/1402) -20.6 E51-E43 N11-N14
      4  198 1217 (N01E65 L=181)   519     90        2 ( 181/1190- 214/1243) -21.8 E68-E62 N00-N02
      5 1293 1176 (N13W15 L=261)   281    144        0 (1206/1165-1344/1191)  14.0 W09-W17 N11-N14
      6 1361  942 (S00W22 L=268)  1232    298        1 (1321/ 825-1450/1060) -56.3 W18-W29 S06-N07
      7  320  858 (S20E47 L=199)   525    167        0 ( 283/ 817- 383/ 915) -26.6 E50-E41 S21-S16
      8  821  877 (S11E10 L=236)   536    131        0 ( 758/ 856- 893/ 897)  12.5 E14-E05 S13-S09
      9  412  867 (S18E39 L=207)   322     78        0 ( 389/ 831- 439/ 896)  59.0 E40-E36 S20-S15
     10 1064  796 (S13W06 L=252)   666    275        1 ( 955/ 709-1176/ 874)  50.2 W00-W11 S19-S07
     11  720  799 (S17E16 L=230)   252     79        0 ( 707/ 755- 734/ 840)  90.0 E17-E14 S20-S14
     12 1442  686 (S15W32 L=278)  1159    277        2 (1362/ 570-1502/ 781)  74.1 W28-W34 S22-S08
     13 1205  488 (S31W21 L=267)   491     85        1 (1174/ 457-1252/ 513)  45.0 W19-W24 S33-S28
  

    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