Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1202 1836 (N58W44 L=119)   421     49        0 (1189/1806-1216/1866)  22.6 W38-W50 N55-N60
      2  865 1738 (N57E00 L= 75)   421     58        0 ( 841/1712- 898/1760)   9.5 E03-W03 N54-N58
      3  771 1727 (N58E11 L= 64)   321     24        0 ( 748/1710- 794/1743)  21.8 E14-E08 N56-N59
      4  600 1704 (N59E33 L= 42)  1059    192        2 ( 512/1674- 692/1733)   4.8 E46-E21 N55-N60
      5  857 1369 (N29E06 L= 69)   435    186        2 ( 797/1298- 886/1414) -60.9 E10-E04 N24-N33
      6  645 1328 (N29E22 L= 53)   325    124        0 ( 611/1286- 695/1375) -45.0 E24-E18 N26-N32
      7  143 1199 (N24E74 L=  1)   759    104        0 ( 132/1159- 160/1254) -33.7 E79-E69 N21-N27
      8  256 1153 (N21E56 L= 19)   790    124        1 ( 237/1090- 274/1208)  90.0 E57-E53 N17-N24
      9 1402 1154 (N08W25 L=100)   227     59        0 (1375/1127-1420/1173) -90.0 W23-W26 N06-N09
     10 1805  992 (S09W54 L=129)   386     84        3 (1780/ 958-1827/1013) -53.1 W51-W56 S10-S06
     11 1798  908 (S14W53 L=128)   884    206        0 (1746/ 848-1845/ 973)  28.6 W47-W58 S16-S10
     12  692  830 (S02E23 L= 52)   343    190        0 ( 607/ 817- 782/ 858) -16.7 E28-E17 S03-N01
     13 1804  686 (S29W56 L=131)  1302    158        1 (1750/ 635-1846/ 748)  36.9 W50-W62 S31-S24
     14  807  631 (S15E19 L= 56)   205     36        0 ( 784/ 617- 831/ 645) -18.4 E20-E17 S16-S13
     15 1640  597 (S31W39 L=114)   414     60        1 (1604/ 579-1668/ 617)   9.5 W35-W42 S32-S29
     16  256  559 (S16E70 L=  5)   903    104        1 ( 241/ 519- 271/ 609)  41.2 E78-E65 S19-S12
     17 1258  376 (S40W07 L= 82)   436    105        2 (1206/ 355-1309/ 396)   0.0 W03-W11 S41-S39
     18 1109  327 (S42E05 L= 70)   383     49        1 (1081/ 304-1137/ 346) -36.9 E07-E03 S43-S39
     19  925  242 (S46E24 L= 51)  1023    135        1 ( 870/ 211-1006/ 269)   7.6 E31-E16 S48-S43
  

    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