Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  718 1724 (N33E42 L= 53)  1943    476        3 ( 687/1540- 762/1850) -52.0 E51-E31 N20-N43
      2  382 1624 (N19E64 L= 30)  1108    265        1 ( 344/1586- 418/1663)  -8.7 E71-E58 N16-N21
      3 1193 1577 (N35E04 L= 91)   379     78        0 (1173/1535-1208/1615) -59.0 E05-E01 N32-N37
      4 1672 1473 (N42W38 L=132)   599     93        1 (1652/1422-1692/1516) -90.0 W35-W39 N38-N46
      5 1041 1420 (N21E09 L= 86)   553    209        0 ( 982/1360-1094/1458) -18.4 E12-E03 N18-N23
      6  992 1344 (N15E09 L= 85)   196     81        1 ( 952/1318-1022/1367) -21.8 E12-E07 N13-N15
      7 1596 1248 (N24W31 L=126)   448    116        1 (1566/1203-1636/1292)  71.6 W29-W34 N21-N27
      8  325 1227 (S06E51 L= 44)   345    115        1 ( 303/1174- 343/1278) -45.0 E53-E47 S08-S03
      9 1322 1210 (N15W13 L=108)   553    135        2 (1292/1130-1350/1277) -58.0 W10-W16 N10-N18
     10 1752 1227 (N27W45 L=140)   353     73        0 (1731/1200-1775/1250)  53.1 W43-W47 N25-N29
     11  182 1146 (S13E64 L= 31)  1447    289        5 ( 155/1049- 211/1233) -65.6 E71-E60 S19-S08
     12 1608 1089 (N15W35 L=129)   497     82        3 (1570/1062-1642/1122)   9.5 W31-W37 N12-N16
     13  425  926 (S22E36 L= 58)   682    169        3 ( 361/ 887- 491/ 966)  35.0 E41-E31 S25-S18
     14  302  838 (S30E46 L= 49)   305     91        0 ( 269/ 826- 337/ 852)   8.1 E49-E42 S30-S28
     15 1126  474 (S33W22 L=117)   421     97        0 (1078/ 449-1169/ 502)  51.3 W19-W24 S35-S30
  

    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