Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1042 1690 (N45W27 L= 75)   975    151        3 ( 973/1652-1118/1714) -26.6 W20-W32 N43-N48
      2 1383 1556 (N26W40 L= 89)   484    131        1 (1325/1536-1434/1573) -20.6 W35-W44 N23-N27
      3 1579 1452 (N14W48 L= 97)   661    121        0 (1521/1434-1636/1473) -16.7 W43-W53 N12-N16
      4  933 1277 (N23W02 L= 50)   268     68        1 ( 904/1251- 962/1307)  18.4 W00-W03 N21-N25
      5 1646 1239 (N01W44 L= 92)   278     52        1 (1623/1205-1661/1269)  71.6 W42-W45 S01-N02
      6 1840 1147 (S11W59 L=107)  1215    187        1 (1789/1070-1900/1208)  10.0 W51-W69 S13-S07
      7  643 1065 (N18E22 L= 27)   665    190        1 ( 576/1011- 715/1133)  20.0 E26-E15 N16-N20
      8  176  985 (N23E65 L=343)  2169    200        3 ( 150/ 891- 226/1067) -90.0 E69-E58 N17-N28
      9  343  993 (N21E46 L=  2)  1044    223        3 ( 246/ 921- 398/1051) -37.6 E55-E41 N15-N25
     10  979 1017 (N08E03 L= 46)   289     43        2 ( 949/ 992-1006/1041) -18.4 E04-W00 N06-N08
     11  265  876 (N15E56 L=353)   985    164        3 ( 237/ 809- 300/ 956) -84.3 E58-E53 N10-N20
     12 1510  915 (S13W25 L= 74)   286     99        2 (1482/ 881-1544/ 947) -45.0 W23-W27 S14-S10
     13 1758  873 (S23W44 L= 92)   764    150        1 (1719/ 813-1801/ 931)  21.8 W39-W49 S25-S20
     14 1805  812 (S29W49 L= 97)   383     65        0 (1781/ 785-1828/ 847)  31.0 W45-W51 S30-S27
     15  192  769 (N10E69 L=340)   575     85        1 ( 176/ 733- 215/ 811) -59.0 E70-E66 N07-N12
     16 1386  755 (S18W14 L= 62)  1047    374        1 (1220/ 731-1552/ 792) -20.0 W03-W25 S22-S13
     17  535  502 (S12E46 L=  2)  1096    314        2 ( 488/ 379- 564/ 634)  45.0 E54-E38 S19-S04
     18  845  595 (S13E22 L= 26)   211     53        1 ( 815/ 580- 877/ 606) -26.6 E23-E19 S14-S11
     19  861  464 (S22E26 L= 22)   468    114        3 ( 839/ 406- 883/ 512)  60.3 E28-E23 S25-S18
     20  462  382 (S18E61 L=348)   612     61        2 ( 440/ 354- 494/ 409)  63.4 E64-E57 S20-S16
     21  644  281 (S29E53 L=355)   436     76        1 ( 625/ 249- 664/ 311)  24.0 E58-E49 S31-S26
  

    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