Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  868 1471 (N15E20 L=238)  1237    287        2 ( 830/1350- 910/1608) -47.1 E27-E14 N07-N22
      2 1136 1541 (N26E07 L=251)   226    121        0 (1120/1481-1151/1589) -50.2 E09-E04 N22-N28
      3  318 1449 (N03E59 L=199)  1200    261        1 ( 219/1407- 396/1487)  16.4 E69-E52 N00-N05
      4  398 1412 (N02E50 L=208)   340     56        0 ( 387/1379- 411/1443) -56.3 E51-E48 N00-N03
      5 1481 1343 (N23W19 L=277)   559    109        1 (1455/1280-1501/1397) -66.8 W17-W21 N19-N26
      6 1013 1266 (N06E06 L=252)   568    152        1 ( 937/1213-1077/1318) -16.7 E11-E01 N04-N07
      7  198 1119 (S18E60 L=198)  2479    494       10 ( 144/1027- 249/1223) -54.0 E66-E52 S23-S12
      8  282 1195 (S13E53 L=205)   697    172        1 ( 236/1167- 344/1211)  11.3 E57-E47 S14-S11
      9 1475 1067 (N07W25 L=283)  1149    245        3 (1435/ 944-1516/1187) -45.0 W19-W30 N00-N13
     10  619  868 (S25E21 L=237)   768    254        1 ( 505/ 836- 736/ 921)  35.5 E28-E14 S29-S19
     11 1273  828 (S12W19 L=277)   201     83        0 (1225/ 806-1313/ 850)   0.0 W15-W21 S12-S11
     12  251  789 (S38E51 L=207)  1550    416        3 ( 169/ 734- 364/ 823)  24.2 E60-E40 S42-S33
     13 1634  416 (S22W62 L=320)  1590    164        1 (1566/ 376-1683/ 484)  71.6 W57-W65 S26-S17
  

    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