Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1520 1669 (N26W54 L=209)  4408    651        5 (1304/1603-1735/1713) -20.2 W37-W75 N16-N33
      2 1573 1541 (N18W51 L=205)   468    133        0 (1534/1506-1618/1565)   0.0 W46-W55 N16-N18
      3  300 1398 (N45E45 L=109)   421     89        1 ( 283/1363- 314/1438) -71.6 E47-E43 N42-N48
      4  458 1324 (N36E30 L=125)   242     60        0 ( 428/1302- 479/1355)  26.6 E32-E27 N34-N37
      5  239  988 (N20E53 L=102)   976    217        1 ( 208/ 892- 294/1060)  63.4 E57-E47 N14-N24
      6 1863  842 (S30W53 L=208)  2790    367        2 (1760/ 690-1914/1022)  43.3 W42-W61 S36-S20
      7  870  984 (N06E10 L=145)   273    100        0 ( 829/ 940- 925/1020)  15.9 E12-E05 N04-N07
      8 1751  862 (S25W42 L=197)   743    172        0 (1701/ 789-1800/ 943)  28.6 W37-W48 S27-S21
      9  809  710 (S08E20 L=135)   672    174        2 ( 770/ 613- 833/ 782)  79.7 E22-E17 S13-S02
     10 1233  694 (S19W03 L=158)   425    167        0 (1170/ 630-1260/ 774)  40.6 E01-W06 S22-S14
     11  276  588 (S03E65 L= 90)   666     80        1 ( 252/ 548- 300/ 621)  76.0 E66-E61 S05-S01
     12  513  503 (S13E47 L=108)   524    114        0 ( 483/ 468- 552/ 546)  18.4 E50-E41 S15-S11
     13 1008  423 (S30E19 L=136)   648    144        0 ( 950/ 369-1062/ 472)  15.3 E24-E13 S32-S27
     14  467  401 (S18E56 L= 99)   450     17        0 ( 446/ 380- 487/ 420) -71.6 E58-E53 S19-S16
     15  543  314 (S26E56 L= 99)   691    128        3 ( 522/ 274- 573/ 359)  60.3 E57-E52 S29-S22
  

    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