Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1241 1650 (N34W34 L=136)   610    136        0 (1180/1626-1312/1669) -11.3 W29-W39 N32-N35
      2  915 1397 (N28W03 L=105)   244     43        0 ( 889/1381- 943/1416) -56.3 W01-W05 N26-N29
      3 1613 1357 (N07W45 L=147)   306    103        1 (1591/1307-1641/1384)  26.6 W41-W48 N04-N08
      4 1791 1225 (S05W55 L=157)  1844    425        2 (1676/1126-1894/1360) -58.6 W49-W64 S13-N05
      5 1050 1203 (N13W06 L=108)   198     63        1 (1019/1181-1082/1227) -45.0 W04-W07 N11-N15
      6 1579 1077 (S07W34 L=136)   984    127        1 (1546/ 952-1601/1190)  74.1 W30-W36 S14-N00
      7  819 1077 (N12E10 L= 92)   285    103        0 ( 764/1062- 871/1094)  -8.1 E13-E06 N11-N12
      8  281 1010 (N20E49 L= 53)   581    159        0 ( 227/ 994- 332/1027) -16.7 E54-E44 N18-N21
      9  422  966 (N15E38 L= 64)   546    113        1 ( 377/ 908- 449/1009) -66.8 E41-E36 N10-N17
     10 1246  817 (S13W07 L=109)   334     92        0 (1193/ 791-1292/ 836)  -8.1 W03-W10 S13-S11
     11  960  578 (S20E15 L= 87)   531    199        1 ( 936/ 482- 986/ 664)  57.5 E19-E12 S25-S14
     12 1415  589 (S31W13 L=115)   573    103        1 (1387/ 542-1445/ 636)  71.6 W11-W15 S34-S28
     13  377  574 (S07E54 L= 48)  1113    194        0 ( 307/ 543- 457/ 617) -28.6 E60-E47 S09-S03
     14  705  505 (S18E33 L= 69)   239     67        1 ( 682/ 476- 727/ 529)  31.0 E35-E30 S19-S16
     15 1135  475 (S31E08 L= 94)   267     80        0 (1104/ 438-1166/ 511)  26.6 E11-E05 S32-S29
  

    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