Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  481 1651 (N19E55 L=170)   428     44        1 ( 457/1632- 511/1672)  26.6 E57-E52 N17-N20
      2  631 1592 (N17E40 L=185)   312     96        0 ( 609/1568- 662/1638) -23.2 E43-E36 N15-N19
      3  455 1589 (N14E53 L=171)   385    106        0 ( 419/1551- 506/1619)  51.3 E55-E50 N11-N16
      4  342 1557 (N11E63 L=162)   770     75        2 ( 316/1519- 365/1592) -26.6 E67-E58 N08-N12
      5  286 1507 (N07E66 L=158)   701     65        1 ( 265/1480- 307/1550) -59.0 E69-E63 N04-N09
      6  528 1453 (N07E41 L=184)   336     80        1 ( 504/1416- 561/1488) -26.6 E43-E37 N05-N08
      7  400 1261 (S07E45 L=180)   323     82        1 ( 355/1239- 438/1281)   0.0 E48-E41 S07-S05
      8  325 1201 (S11E50 L=175)   456    137        0 ( 284/1162- 370/1226)  23.2 E52-E45 S14-S09
      9  922 1153 (S02E09 L=216)   183     37        0 ( 895/1134- 942/1169)   0.0 E10-E07 S03-S01
     10  446  988 (S22E36 L=189)   671    246        0 ( 367/ 908- 543/1070) -17.4 E43-E27 S24-S17
     11  279  988 (S24E51 L=174)   339     46        1 ( 254/ 966- 298/1016) -45.0 E53-E48 S25-S22
     12  229  882 (S32E57 L=168)   361     38        1 ( 210/ 857- 250/ 900) -33.7 E58-E53 S33-S30
     13  214  786 (S38E60 L=165)   579     69        0 ( 178/ 771- 246/ 809)  10.3 E66-E55 S38-S36
  

    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