Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  809 1763 (N33E40 L= 21)  2606    544        4 ( 767/1629- 852/1912) -41.3 E55-E30 N24-N46
      2 1514 1559 (N42W17 L= 78)   333     53        0 (1500/1528-1532/1585) -68.2 W15-W18 N39-N44
      3 1751 1382 (N39W41 L=101)  3115    347        6 (1639/1251-1822/1476) -25.2 W29-W48 N31-N43
      4  366 1260 (S08E48 L= 13)   313     60        2 ( 344/1232- 391/1284)  63.4 E49-E46 S10-S06
      5  903 1231 (N03E12 L= 49)   270    105        0 ( 842/1219- 952/1247)  18.4 E15-E09 N01-N04
      6  468 1200 (S09E38 L= 23)   283     87        0 ( 426/1167- 499/1243)  63.4 E40-E36 S12-S06
      7  980 1216 (N04E08 L= 53)   187      5        0 ( 964/1196- 996/1238) -71.6 E08-E06 N02-N05
      8 1548 1100 (N14W28 L= 89)   713    219        0 (1511/1034-1607/1150)  76.0 W25-W32 N09-N17
      9 1456 1107 (N11W22 L= 83)   291     75        0 (1433/1065-1470/1146) -59.0 W19-W23 N08-N13
     10  309 1066 (S21E48 L= 13)   405     66        1 ( 285/1031- 324/1106) -53.1 E49-E45 S22-S18
     11  253  908 (S31E50 L= 11)   411    111        1 ( 220/ 880- 283/ 940)  39.8 E53-E47 S33-S28
     12  498  899 (S26E29 L= 32)   556    170        0 ( 431/ 881- 578/ 916)  24.4 E34-E23 S28-S22
     13  721  770 (S28E11 L= 50)   373     91        1 ( 669/ 746- 759/ 798)  51.3 E14-E08 S30-S25
     14  527  681 (S39E23 L= 37)   475    109        1 ( 482/ 662- 575/ 707)  20.6 E27-E19 S40-S37
     15 1364  276 (S37W53 L=113)   514     71        0 (1322/ 263-1403/ 291)  45.0 W50-W54 S38-S34
  

    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