Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1201 1573 (N39W09 L=306)  7380   1444        8 ( 631/1370-1795/1748)  -9.6 E45-W61 N27-N48
      2  703 1191 (N10E21 L=275)  1812    483        1 ( 673/ 977- 753/1400) -83.4 E25-E19 S03-N23
      3  431 1362 (N18E44 L=252)   447     80        2 ( 408/1331- 466/1398) -23.2 E47-E40 N16-N20
      4 1547 1295 (N22W34 L=331)   408    130        1 (1511/1238-1565/1353)  63.4 W31-W35 N17-N25
      5  172 1222 (N08E69 L=228)  2552    292        6 ( 151/1086- 197/1352) -61.9 E80-E63 N00-N15
      6 1464 1299 (N22W28 L=324)   232     71        0 (1443/1264-1488/1334) -53.1 W26-W29 N19-N23
      7  267 1225 (N09E56 L=240)   884    153        1 ( 247/1172- 297/1296)  90.0 E59-E52 N05-N13
      8  324  907 (S10E48 L=249)   404     87        0 ( 309/ 867- 341/ 956)  71.6 E49-E46 S12-S06
      9 1887  915 (S01W68 L=  4)   804    104        0 (1848/ 890-1930/ 941)   8.7 W62-W75 S02-N01
     10  307  727 (S22E52 L=245)   824    167        0 ( 286/ 639- 341/ 797)  65.6 E54-E46 S27-S16
     11 1056  780 (S13W03 L=300)   220     81        0 (1012/ 761-1087/ 797)  21.8 W00-W05 S14-S11
     12  911  714 (S18E05 L=291)   350    167        0 ( 834/ 691- 985/ 756) -16.7 E10-W00 S18-S15
     13 1490  539 (S26W37 L=334)  4187    765       12 (1125/ 402-1766/ 671)  24.1 W12-W59 S38-S15
     14  693  633 (S25E20 L=277)   428    117        0 ( 645/ 604- 749/ 664)  26.6 E23-E15 S27-S22
     15  480  511 (S35E40 L=257)   389     56        0 ( 446/ 495- 511/ 529)  15.9 E43-E36 S36-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