Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1354 1569 (N31W23 L=  3)  1317    265        2 (1253/1462-1471/1670) -49.4 W16-W29 N24-N38
      2  530 1528 (N28E36 L=304)   295     45        1 ( 502/1512- 558/1542)   0.0 E37-E33 N27-N29
      3  580 1375 (N18E29 L=311)   429    112        0 ( 562/1318- 596/1426) -74.1 E31-E27 N14-N21
      4  442 1246 (N10E38 L=302)   534    151        1 ( 380/1225- 509/1267)  -5.7 E43-E33 N08-N11
      5  767 1212 (N07E16 L=324)   230     78        0 ( 742/1163- 797/1243)  51.3 E17-E13 N04-N09
      6 1110 1079 (S00W05 L=345)   255     56        0 (1077/1051-1141/1101) -18.4 W03-W06 S01-N01
      7 1062  900 (S11W02 L=342)   512    204        0 (1019/ 797-1097/1003)  72.9 W00-W04 S17-S04
      8  491  849 (S14E34 L=306)   328    102        3 ( 458/ 807- 528/ 880)  38.7 E37-E31 S16-S12
      9 1883  820 (S13W65 L= 45)   592    117       -1 (1868/ 788-1907/ 848)  90.0 W63-W68 S14-S11
     10 1819  769 (S16W58 L= 38)   991    198        3 (1769/ 719-1872/ 822)  16.7 W53-W64 S19-S13
     11  422  645 (S26E43 L=297)   874    189        0 ( 362/ 605- 463/ 714)  33.7 E48-E38 S28-S22
     12  749  653 (S26E18 L=322)   464    107        0 ( 717/ 605- 779/ 708)  54.5 E20-E15 S29-S22
     13 1014  531 (S34E00 L=340)   417     71        1 ( 979/ 510-1057/ 558)  36.9 E02-W02 S35-S32
  

    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