Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1672 1590 (N32W67 L=201)   594     80        1 (1637/1572-1709/1607) -11.3 W61-W72 N30-N33
      2 1365 1544 (N35W33 L=166)   580    137        1 (1333/1490-1415/1578)  29.1 W28-W37 N31-N36
      3 1676 1516 (N28W60 L=194)  1373    140        2 (1629/1452-1723/1568) -77.5 W56-W63 N22-N31
      4  984 1392 (N29W01 L=135)   380    115        2 ( 960/1335-1022/1440) -76.0 W00-W03 N24-N32
      5  550 1304 (N26E31 L=103)  2361    454        3 ( 424/1185- 744/1361)  14.6 E40-E16 N19-N30
      6 1499 1260 (N15W34 L=168)   440    148        0 (1441/1227-1536/1289) -26.6 W30-W36 N12-N16
      7  224 1215 (N22E62 L= 72)  1568    195        4 ( 196/1137- 265/1288)  90.0 E68-E57 N16-N26
      8  566 1093 (N13E29 L=105)   571    160        1 ( 503/1053- 622/1129) -14.0 E33-E25 N10-N15
      9 1743  834 (S15W49 L=183)   848     98        1 (1708/ 773-1771/ 880)  50.2 W46-W52 S18-S11
     10  891  843 (S04E10 L=124)   221     55        0 ( 866/ 828- 924/ 860) -14.0 E11-E07 S05-S03
     11  392  747 (S07E46 L= 88)   446     63        1 ( 372/ 711- 411/ 780)  53.1 E47-E44 S09-S05
     12 1247  501 (S31W10 L=144)   398    122        0 (1193/ 487-1307/ 515)   0.0 W06-W14 S32-S29
     13  571  407 (S32E43 L= 91)   673    154        0 ( 546/ 349- 613/ 480)  84.3 E44-E40 S36-S26
     14 1003  424 (S34E08 L=126)   409    115        0 ( 946/ 408-1063/ 437) -12.5 E12-E03 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