Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  735 1793 (N32E48 L=265)  1029    149        3 ( 693/1729- 777/1851) -63.4 E51-E43 N26-N38
      2 1153 1690 (N37E13 L=299)   503    106        1 (1122/1649-1202/1726)  76.0 E14-E10 N33-N41
      3  993 1654 (N29E21 L=291)   466    121        0 ( 930/1636-1051/1668)  14.0 E24-E16 N27-N30
      4 1330 1283 (N16W10 L=323)   457    186        0 (1304/1205-1355/1362) -60.9 W08-W13 N11-N20
      5 1448 1337 (N22W16 L=329)   308    113        0 (1395/1298-1485/1359)   0.0 W12-W19 N21-N23
      6 1872  967 (N16W60 L= 12)  1793    313        4 (1807/ 811-1910/1086) -33.7 W49-W71 N08-N22
      7 1783  996 (N14W49 L=  1)   840    114        2 (1760/ 935-1805/1053) -74.1 W47-W51 N10-N17
      8  865 1012 (S12E09 L=304)   364    153        1 ( 803/ 977- 934/1043)   6.3 E12-E03 S13-S10
      9 1044  779 (S20W08 L=320)   330    136        1 ( 975/ 764-1107/ 805)  20.6 W03-W11 S21-S18
     10 1083  604 (S29W16 L=329)  2310    726        6 ( 822/ 534-1436/ 725)  42.1 W01-W32 S40-S11
     11  709  384 (S56E01 L=311)   449     84        1 ( 681/ 356- 750/ 414)  66.8 E03-W01 S59-S51
     12 1554  312 (S29W70 L= 23)  3001    233        5 (1463/ 267-1639/ 372)  57.5 W62-W79 S33-S22
     13 1313  188 (S45W67 L= 20)   652     67        0 (1295/ 167-1340/ 228)  -8.1 W59-W73 S46-S42
  

    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