Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  863 1552 (N31E20 L=240)   337     99        1 ( 823/1532- 897/1580)  -9.5 E23-E17 N29-N32
      2  654 1463 (N22E32 L=229)   746    126        1 ( 627/1399- 692/1521)  90.0 E33-E29 N17-N26
      3  420 1488 (N20E51 L=210)   332     60        2 ( 394/1467- 445/1510)   0.0 E53-E48 N18-N21
      4  955 1384 (N21E10 L=251)   349     80        2 ( 911/1336- 974/1418) -33.7 E13-E07 N18-N23
      5  542 1315 (N11E36 L=225)   767    158        1 ( 509/1252- 585/1389) -48.8 E39-E31 N07-N15
      6 1040 1225 (N12E02 L=259)   631    206        2 ( 924/1193-1128/1263)  -4.8 E09-W03 N11-N13
      7 1142  983 (S01W08 L=268)  1276    358        3 (1072/ 848-1234/1148) -60.6 W03-W15 S07-N09
      8  260 1000 (S12E53 L=207)   951    211        1 ( 243/ 903- 285/1104)  90.0 E55-E50 S18-S05
      9  610  930 (S11E25 L=236)   570    190        2 ( 546/ 906- 707/ 952)  15.3 E29-E18 S13-S08
     10  887  880 (S10E06 L=254)   482    187        2 ( 839/ 797- 965/ 930)  54.5 E08-E01 S15-S06
     11  211  882 (S20E58 L=202)   434    158        0 ( 180/ 863- 252/ 914) -15.9 E61-E53 S21-S18
     12 1227  732 (S15W17 L=277)   655    155        2 (1187/ 656-1281/ 787)  71.6 W15-W19 S19-S10
     13 1030  537 (S30W08 L=269)   393    112        1 ( 986/ 519-1096/ 565)  29.7 W05-W12 S31-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