Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1633 1463 (N19W47 L=343)   319     45        0 (1611/1435-1659/1492) -56.3 W45-W49 N17-N20
      2  258 1405 (N32E53 L=242)   585    113        4 ( 223/1377- 292/1431)  26.6 E57-E50 N30-N33
      3  281 1361 (N29E50 L=246)   792    212        3 ( 218/1323- 308/1398) -24.0 E56-E47 N25-N30
      4  467 1296 (N22E34 L=262)   422    112        0 ( 418/1268- 525/1319)  14.0 E37-E29 N20-N22
      5  163 1168 (N18E62 L=234)   531    103        1 ( 137/1149- 190/1184)  -9.5 E64-E58 N16-N19
      6 1879 1135 (S03W64 L=360)  1163    223        0 (1844/1087-1912/1183)  59.0 W59-W68 S06-N00
      7 1442 1135 (N01W27 L=322)   404     66        1 (1417/1094-1458/1178)  56.3 W24-W27 N00-N03
      8 1427 1048 (S04W25 L=320)   261     50        1 (1400/1011-1455/1073) -45.0 W22-W26 S06-S02
      9 1738  923 (S14W47 L=342)   518    118        0 (1704/ 868-1771/ 985)  54.5 W43-W49 S17-S10
     10 1634  907 (S14W38 L=334)   320     85        1 (1618/ 863-1653/ 953)  90.0 W36-W39 S16-S11
     11 1427  886 (S13W23 L=319)   219     60        0 (1404/ 858-1454/ 912) -45.0 W21-W24 S15-S11
     12  327  874 (S02E48 L=248)   320     53        0 ( 308/ 838- 344/ 903) -71.6 E49-E46 S03-N00
     13 1846  829 (S21W57 L=353)   597    120        0 (1818/ 784-1886/ 860)  33.7 W54-W61 S23-S19
     14 1133  710 (S21W03 L=299)   833    167        2 (1086/ 647-1179/ 786)  49.4 W00-W06 S24-S16
     15  540  741 (S12E34 L=262)   217     42        1 ( 523/ 720- 565/ 764) -45.0 E35-E32 S13-S10
     16  389  686 (S13E47 L=249)  1300    245        2 ( 333/ 631- 449/ 728) -20.6 E51-E42 S16-S10
     17 1634  669 (S29W39 L=335)   596    112        0 (1577/ 623-1681/ 712)  26.6 W34-W42 S31-S26
     18  478  547 (S23E44 L=252)   893    244        1 ( 441/ 451- 502/ 641)  53.1 E48-E39 S29-S17
     19  503  394 (S33E49 L=247)   330     51        1 ( 483/ 376- 523/ 414) -90.0 E50-E46 S34-S32
     20  793  282 (S46E32 L=264)   605     90        3 ( 763/ 249- 821/ 318)  39.8 E34-E28 S48-S43
     21  639  225 (S48E50 L=246)   707    130        1 ( 611/ 201- 664/ 254)  12.5 E54-E45 S50-S45
  

    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