Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1615 1659 (N30W69 L=243)  1701    152        3 (1561/1619-1656/1700)   0.0 W60-W84 N28-N32
      2 1603 1576 (N26W58 L=233)  1067    225        3 (1512/1542-1683/1617) -33.7 W52-W67 N22-N30
      3 1238 1421 (N26W23 L=197)  1107    231        1 (1152/1338-1303/1505) -69.0 W18-W25 N20-N33
      4 1409 1439 (N23W35 L=210)   353    159        0 (1333/1421-1467/1463) -24.0 W30-W39 N21-N26
      5  834 1150 (N18E09 L=165)   225     92        1 ( 806/1119- 866/1190) -68.2 E10-E07 N15-N20
      6 1098 1132 (N12W06 L=181)   250    224        0 (1032/1079-1185/1150) -12.5 W01-W11 N09-N12
      7 1097 1054 (N07W05 L=180)   198     94        0 (1051/1040-1133/1072) -26.6 W02-W07 N06-N08
      8  160  922 (N12E70 L=105)  1047    129        0 ( 136/ 857- 184/ 975) -60.3 E73-E66 N08-N15
      9 1447  886 (S10W23 L=198)   791    266        1 (1418/ 823-1503/ 971)  83.7 W21-W26 S13-S04
     10 1209  872 (S06W08 L=183)   398    134        0 (1147/ 852-1277/ 891) -29.7 W04-W11 S07-S03
     11 1314  751 (S15W12 L=187)   461    144        0 (1276/ 697-1337/ 820)  50.2 W09-W14 S18-S11
     12 1640  671 (S28W36 L=211)  1036    185        0 (1582/ 604-1709/ 741)  26.6 W30-W42 S31-S25
     13 1433  614 (S27W19 L=194)  1219    410        0 (1311/ 482-1578/ 731)  26.6 W08-W30 S33-S22
     14  481  547 (S14E47 L=128)  1038    239        2 ( 440/ 468- 522/ 644)  71.6 E50-E43 S19-S07
     15  421  468 (S18E57 L=118)   430     48        2 ( 396/ 440- 447/ 497)  76.0 E58-E54 S20-S16
  

    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