Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  410 1505 (N25E47 L=  4)  2095    362        2 ( 325/1413- 508/1580) -25.5 E57-E36 N18-N30
      2  706 1495 (N24E23 L= 27)   613    171        0 ( 622/1476- 787/1512)   0.0 E29-E17 N23-N25
      3 1112 1450 (N23W04 L= 54)   527    115        2 (1052/1416-1174/1496) -20.6 W00-W08 N20-N25
      4  205 1383 (N17E65 L=346)   622    138        0 ( 179/1366- 231/1401)   0.0 E68-E61 N16-N18
      5  311 1314 (N12E51 L=359)   467    137        0 ( 267/1290- 354/1330)  -6.3 E55-E46 N10-N13
      6  873 1224 (N07E10 L= 40)   483    123        1 ( 830/1172- 929/1285) -49.4 E12-E06 N04-N11
      7 1797 1188 (N10W54 L=104)  1201    203        5 (1748/1154-1853/1227) -24.0 W49-W59 N08-N12
      8 1682 1191 (N09W43 L= 93)   290     36        0 (1663/1169-1700/1211)  45.0 W41-W44 N07-N10
      9  603 1135 (N01E27 L= 24)   340     93        0 ( 566/1092- 648/1161)  31.0 E28-E23 S01-N03
     10 1721 1053 (N01W47 L= 97)  1579    302        2 (1611/ 958-1814/1122)  32.0 W38-W55 S05-N06
     11 1614 1077 (N02W38 L= 88)   352     71        1 (1580/1053-1643/1105) -21.8 W35-W40 N00-N03
     12 1788  983 (S02W53 L=104)  2101    456        7 (1681/ 926-1871/1048)  11.9 W43-W62 S05-N02
     13  183  939 (S10E62 L=348)   439     50        0 ( 173/ 908- 195/ 971) -71.6 E63-E60 S11-S08
     14 1254  897 (S11W15 L= 65)   185     47        0 (1234/ 865-1274/ 926) -56.3 W13-W16 S12-S09
     15  324  867 (S15E48 L=  2)   297     57        0 ( 298/ 849- 350/ 888)   0.0 E50-E45 S15-S13
     16  152  858 (S15E67 L=344)  1027    211        0 ( 112/ 829- 192/ 885)   9.5 E73-E61 S16-S13
     17  474  842 (S16E36 L= 15)   246     14        0 ( 450/ 826- 495/ 855) -33.7 E37-E34 S17-S15
     18 1810  752 (S16W59 L=110)  6503    885        9 (1730/ 648-1904/ 854)  52.4 W50-W71 S22-S09
     19  278  816 (S18E53 L=358)   461    122        0 ( 235/ 796- 323/ 838)  -7.1 E56-E48 S19-S16
     20 1467  806 (S15W29 L= 80)   289     95        0 (1435/ 781-1510/ 835) -18.4 W26-W32 S16-S13
     21  422  704 (S25E41 L=  9)  1458    294        2 ( 356/ 579- 469/ 814)  49.4 E49-E37 S33-S18
     22  673  626 (S30E23 L= 27)  2739    700        1 ( 444/ 442- 920/ 811)  31.4 E46-E05 S42-S17
     23 1520  667 (S23W36 L= 86)  1378    230        1 (1478/ 565-1553/ 786) -81.9 W33-W38 S30-S16
     24 1290  737 (S20W18 L= 69)   480    151        2 (1216/ 715-1367/ 766)  16.7 W13-W23 S22-S18
     25 1750  576 (S27W58 L=109)  2207    359        3 (1664/ 531-1848/ 616)  19.4 W49-W68 S29-S23
     26  219  577 (S32E65 L=346)   908    230        3 ( 189/ 553- 252/ 596)  15.9 E67-E60 S33-S31
     27 1530  469 (S36W43 L= 93)   774     75        0 (1483/ 440-1573/ 504)  33.7 W39-W45 S38-S33
     28 1024  460 (S40W03 L= 53)   349     46        0 ( 995/ 441-1053/ 479)  36.9 W00-W04 S41-S38
  

    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