Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  902 1709 (N40E27 L= 58)   283     38        0 ( 882/1693- 922/1728)  71.6 E29-E25 N38-N42
      2 1245 1612 (N41W03 L= 88)   454     91        0 (1202/1594-1298/1628)  26.6 W00-W06 N38-N42
      3  500 1556 (N21E49 L= 36)  1838    318        5 ( 376/1509- 614/1603)  26.6 E59-E41 N16-N25
      4  960 1542 (N29E16 L= 70)   349    138        0 ( 907/1514-1021/1587) -16.7 E20-E10 N28-N31
      5 1606 1367 (N32W34 L=120)   323     36        1 (1583/1346-1625/1387)  45.0 W32-W36 N30-N33
      6 1336 1268 (N19W15 L=100)   350     90        2 (1297/1246-1375/1292)  -9.5 W11-W17 N17-N20
      7 1389 1163 (N14W20 L=105)   206     63        0 (1362/1138-1416/1178)   0.0 W17-W21 N12-N15
      8  192  989 (S19E62 L= 23)  2729    342        5 ( 116/ 860- 259/1137)  36.2 E82-E55 S27-S08
      9 1781 1041 (N15W53 L=138)   445     77        0 (1760/1010-1800/1079)  68.2 W50-W54 N12-N17
     10 1053 1014 (S01W02 L= 87)   677    181        3 ( 961/ 987-1128/1041)  24.0 E03-W06 S04-N00
     11  789  830 (S17E11 L= 75)   609    258        0 ( 667/ 796- 903/ 855)  25.0 E18-E03 S21-S13
     12 1399  688 (S14W30 L=116)  1045    287        1 (1282/ 598-1500/ 763)  54.5 W25-W35 S21-S07
     13  415  676 (S35E38 L= 47)  1011    236        1 ( 346/ 598- 511/ 742)  35.8 E47-E29 S41-S28
     14 1750  650 (S09W61 L=146)  1791    195        3 (1710/ 570-1786/ 737) -79.7 W57-W64 S14-S03
     15 1680  614 (S13W55 L=141)   859    114        2 (1649/ 555-1715/ 659) -60.3 W52-W58 S16-S09
     16  329  572 (S44E52 L= 33)   417     41        0 ( 309/ 553- 352/ 592) -14.0 E55-E48 S46-S42
     17 1471  501 (S24W43 L=128)   818    231        1 (1400/ 465-1528/ 573)  53.1 W37-W46 S26-S18
     18 1184  525 (S28W22 L=107)   264     31        0 (1158/ 512-1215/ 539)  14.0 W19-W23 S29-S27
     19  960  474 (S37W08 L= 93)   315     82        0 ( 921/ 458-1002/ 496)  38.7 W05-W10 S38-S34
  

    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