Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1029 1746 (N45W02 L= 75)   544     63        0 ( 995/1726-1063/1769)  26.6 W00-W05 N43-N47
      2 1067 1671 (N39W05 L= 77)   468     82        1 (1047/1641-1096/1717) -90.0 W03-W06 N36-N42
      3 1645 1550 (N30W50 L=122)  2128    210        4 (1559/1494-1732/1611) -25.0 W42-W58 N26-N34
      4  767 1569 (N32E17 L= 55)   901    137        1 ( 701/1533- 831/1599) -16.7 E22-E12 N29-N34
      5 1750 1488 (N26W59 L=131)   691     66        1 (1719/1458-1781/1515)  20.0 W53-W64 N23-N27
      6 1617 1354 (N17W41 L=113)  2133    419        7 (1548/1182-1689/1504) -78.7 W36-W45 N06-N26
      7 1405 1464 (N24W26 L= 99)  1184    188        2 (1325/1422-1503/1495)   4.1 W20-W34 N20-N25
      8 1842 1263 (N11W61 L=133)  5635    291       19 (1778/1141-1934/1382) -81.9 W52-W75 N04-N18
      9  232 1027 (S00E55 L= 17)   726    177        0 ( 186/ 963- 266/1080) -45.0 E60-E52 S04-N03
     10  383 1050 (N00E42 L= 31)   478    109        0 ( 340/1007- 415/1075) -26.6 E45-E39 S02-N01
     11  411  652 (S24E45 L= 27)  5322    733        8 ( 309/ 380- 468/1003)  36.2 E89-E36 S40-S02
     12  204  829 (S12E61 L= 11)  9334    326       13 ( 119/ 706- 318/ 967) -48.8 E77-E50 S19-S03
     13  640  906 (S09E24 L= 48)   418    114        3 ( 588/ 876- 691/ 932)   8.1 E27-E20 S10-S07
     14  974  829 (S15E03 L= 69)   372    114        0 ( 938/ 780- 997/ 875) -63.4 E05-E02 S17-S11
     15 1225  840 (S14W12 L= 85)   264    123        0 (1171/ 794-1253/ 863) -38.7 W08-W13 S17-S12
     16 1135  780 (S18W06 L= 79)   205     94        0 (1119/ 738-1165/ 823) -59.0 W05-W08 S20-S15
     17  702  740 (S20E21 L= 51)   315     78        1 ( 689/ 695- 718/ 787) -90.0 E22-E20 S22-S16
     18  891  689 (S23E09 L= 63)  1246    372        0 ( 729/ 653-1018/ 783)  14.0 E20-W00 S25-S17
     19 1517  546 (S33W36 L=109)   955    183        3 (1444/ 519-1602/ 572)   8.1 W30-W44 S35-S31
     20 1224  450 (S40W14 L= 87)  1606    328        3 (1087/ 376-1370/ 525)  23.2 W03-W25 S45-S34
     21 1179  257 (S56W14 L= 87)   398     61        1 (1151/ 236-1199/ 287)  59.0 W11-W16 S58-S53
     22 1061  246 (S57W02 L= 74)   435     95        3 (1015/ 227-1111/ 265)   0.0 E03-W07 S59-S55
  

    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