Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  881 1794 (N58W24 L=343)  3777    492        7 ( 702/1662-1053/1930)   6.3 E01-W63 N53-N62
      2 1465 1724 (N31W59 L= 18)   424     93        3 (1436/1686-1494/1754)  51.3 W56-W61 N28-N33
      3 1409 1632 (N28W46 L=  5)   334     41        1 (1383/1613-1431/1653) -56.3 W44-W48 N26-N29
      4  384 1535 (N55E42 L=277)   382     38        1 ( 362/1511- 406/1560)  45.0 E45-E38 N53-N57
      5  964 1428 (N30W08 L=327)   272    100        1 ( 919/1401- 997/1466)   9.5 W05-W11 N29-N31
      6  277 1260 (N38E50 L=269)   544     90        3 ( 233/1231- 322/1278) -18.4 E56-E44 N35-N39
      7 1627  882 (S19W33 L=352)   521    104        0 (1611/ 829-1642/ 944)  66.8 W30-W34 S22-S15
      8 1468  760 (S21W19 L=338)   353    140        0 (1433/ 703-1504/ 821)  35.5 W15-W22 S23-S18
      9 1522  504 (S40W18 L=337)  1337    182        3 (1477/ 439-1587/ 576)  66.0 W14-W24 S45-S35
     10 1117  489 (S28E10 L=309)   355    106        0 (1066/ 459-1168/ 525) -56.3 E11-E07 S31-S23
     11  935  459 (S24E22 L=297)   228    113        0 ( 894/ 441- 997/ 486)   0.0 E25-E17 S24-S23
     12  852  362 (S28E32 L=287)   324    105        1 ( 833/ 316- 868/ 410)  49.4 E34-E28 S32-S25
     13  785  293 (S32E41 L=278)   868    195        1 ( 709/ 267- 880/ 344) -41.6 E44-E34 S35-S26
  

    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