Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1406 1599 (N32W31 L=167)   916    178        0 (1322/1547-1462/1645) -41.2 W25-W34 N28-N35
      2  538 1590 (N36E35 L=102)   438     90        1 ( 498/1555- 571/1614) -26.6 E38-E30 N33-N37
      3  794 1535 (N30E13 L=123)   663    117        4 ( 747/1491- 854/1578) -40.6 E17-E09 N27-N33
      4  642 1379 (N21E23 L=113)   710    265        1 ( 588/1263- 709/1483) -57.3 E27-E18 N13-N27
      5 1772 1419 (N19W57 L=194)   487     83        1 (1742/1378-1802/1456) -68.2 W54-W60 N16-N21
      6  659 1187 (N09E22 L=115)   295    122        0 ( 634/1132- 677/1246)  66.8 E23-E20 N05-N12
      7 1610 1134 (N02W38 L=174)   455    148        0 (1560/1098-1676/1155)   6.3 W33-W42 N00-N03
      8 1764 1079 (S01W50 L=186)   522    140        0 (1735/1006-1778/1133) -71.6 W47-W51 S05-N01
      9 1640 1008 (S05W39 L=176)   322     81        1 (1599/ 971-1670/1039) -38.7 W36-W41 S07-S03
     10  300  876 (S07E50 L= 87)  2211    365        7 ( 223/ 794- 432/1007) -32.0 E55-E38 S12-N00
     11  352  935 (S04E44 L= 92)   276     57        1 ( 332/ 908- 371/ 969) -71.6 E45-E42 S05-S02
     12 1606  887 (S13W37 L=173)   695    116        4 (1569/ 830-1641/ 934)  80.5 W34-W39 S15-S09
     13 1429  837 (S15W25 L=161)  1266    464        3 (1264/ 719-1547/ 911)  22.8 W13-W32 S21-S10
     14  775  773 (S16E17 L=120)   207     89        0 ( 762/ 731- 791/ 824) -78.7 E17-E15 S18-S13
     15 1617  718 (S23W39 L=176)   774    235        1 (1540/ 638-1687/ 817)  50.7 W34-W44 S27-S16
     16  158  755 (S13E69 L= 67)   552     72        1 ( 130/ 718- 191/ 792) -38.7 E72-E65 S15-S11
     17  318  720 (S17E51 L= 85)  1024    167        1 ( 264/ 662- 382/ 762) -24.0 E55-E46 S20-S13
     18  724  532 (S31E24 L=113)   439    132        0 ( 664/ 518- 804/ 547)   5.2 E28-E17 S32-S30
     19  514  400 (S39E47 L= 89)  1452    179        3 ( 460/ 314- 562/ 481)  26.6 E60-E38 S44-S33
     20  724  221 (S55E40 L= 96)   636     56        1 ( 696/ 193- 751/ 258)  54.5 E44-E35 S58-S51
     21  917  207 (S59E19 L=117)   650     60        1 ( 883/ 186- 954/ 228)   6.3 E23-E14 S60-S56
  

    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