Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  886 1744 (N49W02 L=338)   293     51        0 ( 856/1730- 923/1760)  -9.5 E01-W05 N47-N51
      2  554 1295 (N22E27 L=309)  2054    370        3 ( 416/1177- 630/1371) -37.4 E40-E22 N14-N29
      3  131 1204 (N22E71 L=265)  1200    187        2 (  92/1170- 174/1240)   7.6 E86-E63 N20-N25
      4  295 1190 (N19E49 L=287)   370    145        3 ( 244/1174- 342/1210) -16.7 E55-E44 N17-N21
      5  765 1123 (N09E14 L=322)   240     62        0 ( 740/1098- 803/1154) -53.1 E15-E12 N07-N11
      6 1233 1058 (S01W13 L=349)   364    129        1 (1175/1019-1306/1086)  14.0 W10-W17 S04-N01
      7  411 1019 (N07E39 L=297)   323    110        3 ( 367/ 996- 440/1051)  18.4 E42-E37 N06-N10
      8 1365 1005 (S06W20 L=356)   213     60        0 (1338/ 991-1406/1023) -26.6 W19-W23 S07-S04
      9 1324  955 (S08W17 L=353)   398    127        1 (1263/ 939-1389/ 975) -14.0 W13-W21 S10-S06
     10 1851  926 (S17W59 L= 35)   891    114        2 (1822/ 878-1882/ 975)  56.3 W56-W64 S20-S13
     11 1191  857 (S12W08 L=344)   552    177        2 (1138/ 773-1236/ 951)  52.1 W06-W10 S18-S06
     12 1043  804 (S13E02 L=334)   660    158        0 (1026/ 728-1058/ 886)  71.6 E02-E02 S18-S08
     13 1879  833 (S23W65 L= 40)   600    100        1 (1856/ 808-1909/ 864) -24.0 W61-W71 S25-S20
     14  172  715 (S07E71 L=265)  3262    317        5 ( 136/ 636- 219/ 786)  73.3 E73-E68 S13-S03
     15 1608  669 (S30W38 L= 14)  1743    256        4 (1531/ 587-1652/ 776)  70.0 W30-W44 S36-S22
     16  345  687 (S11E52 L=284)   318     94        1 ( 329/ 647- 367/ 717)  38.7 E52-E51 S14-S09
     17  546  583 (S20E39 L=297)  1284    268        1 ( 496/ 487- 578/ 697)  42.7 E39-E41 S27-S13
     18  238  593 (S15E69 L=267)   537    110        3 ( 216/ 566- 267/ 619) -15.9 E70-E67 S17-S14
     19 1370  538 (S35W18 L=354)   478    106        2 (1344/ 489-1388/ 589)  90.0 W16-W20 S39-S31
  

    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