Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1008 1849 (N47E35 L=  0)   483     66        1 ( 976/1829-1039/1870)  45.0 E36-E31 N44-N49
      2 1079 1692 (N37E19 L= 16)  2022    459        8 (1011/1565-1163/1823) -40.4 E29-E08 N29-N46
      3  371 1671 (N17E71 L=324)  2724    235        5 ( 321/1628- 409/1717)  60.3 E75-E67 N13-N21
      4  509 1596 (N15E51 L=344)  1318    413        0 ( 467/1450- 567/1712) -39.8 E58-E39 N07-N22
      5  346 1528 (N07E62 L=333)  2230    302        4 ( 266/1446- 399/1631)  77.9 E67-E56 N00-N14
      6 1725 1456 (N44W39 L= 74)   397     43        0 (1701/1437-1752/1473)   0.0 W35-W41 N42-N44
      7 1570 1237 (N23W27 L= 62)   683    278        1 (1511/1120-1633/1375) -42.7 W20-W33 N17-N29
      8 1018 1251 (N07E06 L= 29)   383    112        1 ( 989/1198-1042/1308)  90.0 E07-E05 N03-N11
      9  361 1207 (S11E47 L=348)   293     61        0 ( 337/1175- 386/1236)  63.4 E47-E45 S13-S09
     10 1303 1033 (N03W15 L= 50)   605    190        2 (1209/1004-1379/1070)  21.8 W09-W19 N00-N05
     11 1763  938 (N12W49 L= 84)  1934    352        3 (1690/ 804-1848/1058) -40.6 W41-W57 N05-N17
     12 1834  877 (N11W58 L= 93)   992    159        3 (1814/ 799-1859/ 948) -56.3 W55-W62 N06-N15
     13 1084  859 (S13W08 L= 43)   269    100        0 (1046/ 807-1133/ 899)  74.1 W06-W09 S16-S09
     14  773  885 (S19E11 L= 24)   242    108        0 ( 719/ 872- 831/ 898)  15.9 E14-E07 S20-S18
     15 1713  862 (N06W47 L= 82)   327     44        1 (1693/ 833-1736/ 894)  68.2 W46-W49 N03-N08
     16 1826  757 (N04W63 L= 98)   420    104        0 (1804/ 738-1852/ 780)   8.1 W59-W66 N03-N06
     17  872  741 (S25E01 L= 34)   644    194        0 ( 774/ 715- 966/ 778)  35.0 E07-W03 S27-S20
     18 1045  590 (S29W15 L= 49)   359     62        2 (1007/ 568-1081/ 612)  11.3 W12-W17 S30-S27
     19  821  529 (S40W03 L= 38)   464    109        0 ( 766/ 516- 878/ 548)  29.7 E01-W06 S41-S37
     20 1308  224 (S42W54 L= 89)   608     79        0 (1270/ 208-1342/ 242)  53.1 W50-W56 S43-S39
  

    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