Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  394 1637 (N34E66 L=307)   710     63        1 ( 380/1609- 415/1677) -24.4 E74-E61 N31-N36
      2  616 1592 (N33E38 L=334)  2267    408        6 ( 470/1442- 733/1666) -19.5 E55-E24 N24-N38
      3  505 1445 (N22E41 L=331)   668    253        0 ( 428/1377- 554/1560)  77.0 E45-E38 N17-N30
      4  435 1475 (N23E49 L=324)   352     57        0 ( 424/1440- 449/1506) -63.4 E50-E46 N21-N25
      5 1072 1392 (N25E00 L= 12)   353    103        1 (1050/1343-1107/1435)  80.5 E01-W01 N21-N27
      6  917 1336 (N20E10 L=  3)   550    265        0 ( 796/1286-1016/1357)  -7.6 E17-E02 N17-N20
      7 1329 1218 (N16W17 L= 30)   293     94        1 (1280/1200-1376/1242)   9.5 W14-W20 N14-N17
      8 1665 1096 (N11W42 L= 55)   465    158        1 (1643/1006-1693/1156) -71.6 W40-W45 N05-N14
      9  966 1057 (N03E04 L=  9)   199     42        0 ( 935/1046- 997/1070)  14.0 E05-E01 N02-N03
     10 1277 1012 (N03W16 L= 28)   588    159        1 (1219/ 967-1354/1042)  20.6 W12-W20 N00-N04
     11  163  929 (S13E66 L=306)  1345    156        5 ( 127/ 866- 189/ 988) -45.0 E72-E62 S16-S09
     12 1389  906 (S03W24 L= 36)   207     42        0 (1368/ 886-1416/ 928) -33.7 W22-W25 S03-S01
     13 1609  680 (S15W44 L= 56)  1735    278        2 (1504/ 597-1717/ 761)  38.2 W37-W51 S20-S08
     14  333  615 (S32E51 L=321)  1048    186        0 ( 291/ 533- 400/ 668)  30.1 E61-E42 S38-S27
  

    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