Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  574 1636 (N17E48 L= 83)   977    285        3 ( 544/1544- 629/1735) -66.8 E51-E41 N11-N25
      2  929 1645 (N27E25 L=105)   437    128        1 ( 906/1593- 952/1691) -50.2 E27-E22 N23-N29
      3  643 1647 (N19E43 L= 87)   381    114        0 ( 618/1596- 688/1689)  90.0 E44-E41 N15-N23
      4  716 1541 (N15E33 L= 97)   590    153        2 ( 674/1480- 747/1612) -63.4 E36-E31 N10-N18
      5  491 1333 (S03E40 L= 90)   808    187        2 ( 443/1257- 521/1401) -41.2 E46-E36 S07-N00
      6 1257 1334 (N17W04 L=135)   394    149        1 (1220/1274-1315/1371)  69.4 W03-W07 N12-N20
      7  148 1101 (S22E65 L= 66)  1602    235        1 ( 121/ 992- 179/1214) -85.6 E67-E61 S28-S15
      8 1274 1168 (N08W10 L=140)   232     70        0 (1240/1151-1318/1189)  21.8 W07-W12 N06-N09
      9 1563 1147 (N16W28 L=158)   303     45        0 (1542/1121-1581/1173)  90.0 W26-W29 N13-N17
     10 1477 1069 (N09W24 L=155)   250     60        1 (1447/1044-1511/1097)  53.1 W22-W26 N06-N10
     11 1819 1051 (N19W50 L=181)   399    138        0 (1776/1007-1850/1089) -12.5 W45-W54 N17-N20
     12 1325 1012 (N01W17 L=147)   264     74        0 (1286/1000-1368/1027)  21.8 W14-W19 N00-N02
     13  580  965 (S21E25 L=106)   439    166        0 ( 510/ 909- 642/1020)  55.0 E28-E21 S26-S16
     14  777  909 (S20E11 L=120)   240     83        1 ( 739/ 886- 822/ 950)  59.0 E12-E09 S21-S16
     15  325  850 (S34E43 L= 88)   278    105        0 ( 310/ 802- 337/ 897)  80.5 E43-E41 S37-S31
     16 1594  772 (S03W41 L=172)   400     89        1 (1549/ 750-1632/ 789)  31.0 W38-W43 S05-S02
     17 1622  663 (S08W48 L=178)   549    132        1 (1598/ 599-1641/ 732) -60.3 W45-W49 S11-S04
     18  990  638 (S29W10 L=140)  1040    158        3 ( 877/ 588-1121/ 693)  42.5 W03-W15 S34-S22
     19 1734  505 (S12W67 L=198)   715    132        3 (1694/ 460-1775/ 535)  50.2 W64-W71 S14-S08
     20 1656  475 (S16W61 L=192)  1141    118        3 (1610/ 428-1705/ 519)  60.3 W57-W64 S19-S12
     21 1338  268 (S39W52 L=182)  1902    463        4 (1261/ 180-1419/ 359)  -9.5 W40-W64 S40-S35
  

    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