Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  818 1834 (N45E48 L=346)  1806    171        3 ( 741/1785- 881/1877)  -5.2 E59-E37 N41-N47
      2 1203 1795 (N54E13 L= 21)   375     54        0 (1174/1776-1232/1816)  -8.1 E16-E09 N52-N55
      3 1340 1735 (N53W03 L= 36)   384     40        1 (1319/1712-1362/1756)  59.0 W00-W05 N50-N55
      4 1552 1617 (N51W27 L= 61)  2966    352       11 (1414/1532-1686/1701)  -3.5 W11-W44 N45-N54
      5  987 1605 (N32E18 L= 15)   479    100        0 ( 947/1563-1021/1641) -26.6 E22-E14 N29-N33
      6  747 1535 (N21E31 L=  2)   516    150        2 ( 721/1466- 779/1608) -68.2 E32-E28 N16-N26
      7 1384 1527 (N37W11 L= 45)  1119    273        3 (1318/1430-1457/1566)  67.4 W07-W17 N29-N41
      8  336 1475 (N09E61 L=332)   595    100        1 ( 321/1432- 356/1525) -32.0 E65-E56 N06-N11
      9  615 1450 (N13E36 L=357)   573    125        0 ( 599/1400- 643/1521) -45.0 E39-E32 N10-N17
     10  435 1424 (N08E49 L=345)   451     97        1 ( 403/1388- 476/1451)  59.0 E50-E45 N05-N10
     11 1019 1324 (N15E07 L= 26)   328     86        3 ( 987/1300-1072/1358)   0.0 E09-E03 N12-N16
     12 1802 1188 (N26W52 L= 86)  1833    385        2 (1714/1042-1923/1302) -19.0 W42-W72 N20-N31
     13  156 1147 (S14E70 L=323)   944     84        1 ( 118/1118- 200/1169)   7.6 E78-E63 S15-S11
     14  235  961 (S24E56 L=337)  2029    370        1 ( 203/ 846- 312/1115) -63.4 E60-E46 S29-S13
     15  476  811 (S28E31 L=  2)   598    212        0 ( 396/ 755- 572/ 840)  29.7 E38-E24 S33-S23
     16  736  717 (S27E11 L= 23)   371    193        0 ( 650/ 702- 828/ 727)  26.6 E16-E04 S30-S24
     17 1712  655 (S07W57 L= 90)   394     42        0 (1694/ 630-1731/ 680)  71.6 W54-W58 S08-S05
     18 1129  479 (S32W22 L= 56)  1805    432        2 ( 935/ 447-1304/ 527)  27.6 W08-W32 S38-S25
     19  728  451 (S46E06 L= 28)   399    103        1 ( 682/ 417- 770/ 484)  49.4 E09-E02 S49-S42
     20  675  259 (S67E07 L= 27)  1728    221        1 ( 586/ 224- 790/ 307)   3.7 E22-W10 S69-S63
  

    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