Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1381 1388 (N23W29 L=256)   251     75        0 (1341/1356-1419/1418) -51.3 W27-W31 N20-N25
      2  916 1208 (N18E04 L=222)  1748    450        6 ( 721/1124-1091/1302) -31.8 E16-W05 N11-N26
      3 1561 1237 (N11W38 L=265)   421    122        2 (1511/1209-1617/1271) -29.7 W35-W42 N08-N13
      4  396 1141 (N19E42 L=185)   373    118        0 ( 360/1097- 424/1174) -45.0 E44-E39 N16-N21
      5  751 1031 (N10E17 L=210)   214     61        2 ( 732/ 994- 772/1066) -63.4 E17-E15 N07-N11
      6 1857  789 (S23W60 L=287)  1921    249        3 (1800/ 698-1921/ 898)  33.7 W53-W69 S28-S16
      7 1370  853 (S09W19 L=246)   428    139        3 (1321/ 830-1430/ 887)   0.0 W15-W23 S10-S06
      8 1379  773 (S14W19 L=246)   984    340        2 (1254/ 660-1489/ 876)  29.4 W10-W27 S19-S09
      9 1226  798 (S10W09 L=236)   409    141        0 (1179/ 750-1246/ 870)  50.2 W06-W11 S13-S06
     10 1061  768 (S10E01 L=226)   220     70        1 (1037/ 736-1093/ 794)  45.0 E02-W01 S11-S08
     11  282  751 (S04E57 L=170)   734    178        1 ( 230/ 722- 331/ 784) -21.8 E62-E51 S05-S01
     12 1637  652 (S27W38 L=265)   345     57        0 (1619/ 631-1661/ 676)  71.6 W36-W40 S28-S25
     13  377  593 (S15E52 L=175)   906    187        1 ( 356/ 514- 401/ 668)  70.0 E55-E49 S20-S09
  

    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