Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  920 1882 (N64W34 L= 37)   463     49        0 ( 904/1854- 931/1910)  24.8 W28-W41 N60-N66
      2  811 1838 (N65W16 L= 19)   917     96        1 ( 769/1798- 844/1879)  13.2 W08-W25 N61-N68
      3 1180 1762 (N44W38 L= 41)   774    116        1 (1149/1714-1213/1812)  28.6 W32-W43 N40-N47
      4  945 1753 (N51W20 L= 23)   550     86        2 ( 901/1737- 995/1778) -20.6 W15-W23 N48-N54
      5 1474 1649 (N27W51 L= 54)   690    136        1 (1417/1621-1528/1688) -56.3 W48-W54 N24-N31
      6 1210 1626 (N34W30 L= 33)   241     57        0 (1189/1597-1230/1654)  76.0 W29-W32 N31-N35
      7 1376 1550 (N25W37 L= 40)   471    131        0 (1310/1533-1443/1564) -26.6 W33-W41 N22-N26
      8 1581 1474 (N15W48 L= 51)   432     53        1 (1553/1449-1603/1504)   9.5 W45-W51 N13-N15
      9  937 1441 (N30W05 L=  8)   403    120        0 ( 876/1411- 991/1458) -45.0 W01-W08 N26-N32
     10 1275 1437 (N21W26 L= 29)   219    102        0 (1219/1424-1319/1450) -26.6 W22-W28 N19-N22
     11 1155 1375 (N20W17 L= 20)   302    101        0 (1105/1362-1204/1394) -38.7 W14-W19 N18-N22
     12  362 1134 (N25E41 L=322)   486     59        0 ( 334/1105- 397/1167) -45.0 E43-E38 N22-N26
     13  328 1011 (N18E46 L=317)   463     71        1 ( 298/ 980- 356/1041) -53.1 E48-E43 N16-N20
     14  256  915 (N14E54 L=309)   305     50        0 ( 245/ 881- 272/ 939)  33.7 E55-E52 N12-N15
     15  862  686 (S12E17 L=346)   282     66        0 ( 841/ 652- 886/ 712)  45.0 E18-E15 S13-S10
     16 1713  646 (S37W40 L= 43)   315     37        0 (1696/ 628-1733/ 672) -45.0 W38-W42 S38-S35
     17 1297  439 (S39W02 L=  5)  1356    301        2 (1190/ 332-1399/ 529)  22.8 E08-W11 S44-S34
     18 1466  275 (S61W15 L= 18)   648     55        0 (1429/ 254-1504/ 298)  -5.7 W10-W21 S63-S58
     19 1327  187 (S65E06 L=357)   488     59        0 (1302/ 169-1356/ 204)   0.0 E09-E01 S67-S61
  

    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