Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1421 1708 (N52W06 L= 78)   577     73        2 (1384/1672-1451/1736)  66.0 W03-W08 N47-N56
      2 1167 1447 (N23E04 L= 69)   838    305        2 (1116/1318-1216/1556) -72.6 E07-E01 N14-N30
      3  790 1496 (N16E27 L= 45)   246     58        1 ( 770/1468- 807/1522) -45.0 E28-E25 N14-N17
      4 1759 1377 (N39W44 L=116)   712     78        0 (1715/1355-1795/1395)   5.7 W38-W49 N37-N41
      5 1831 1231 (N32W53 L=125)   438     49        1 (1810/1207-1849/1255) -14.0 W50-W55 N30-N33
      6 1607 1104 (N16W33 L=105)   731    258        2 (1544/1020-1661/1184) -22.6 W26-W38 N12-N19
      7  180 1107 (S20E65 L=  8)   875    110        2 ( 154/1061- 200/1163)  90.0 E68-E62 S22-S16
      8  254 1092 (S20E55 L= 17)   742    113        1 ( 232/1054- 298/1146)  90.0 E57-E50 S22-S16
      9 1537 1118 (N15W28 L=100)   230     23        0 (1520/1099-1555/1140) -26.6 W26-W29 N13-N16
     10  766  631 (S34E05 L= 68)   246     36        0 ( 742/ 617- 798/ 648)  14.0 E06-E02 S35-S33
     11 1562  378 (S24W63 L=135)   686     97        2 (1543/ 336-1582/ 423) -39.8 W58-W67 S26-S21
     12  721  352 (S56W02 L= 74)   405    115        0 ( 675/ 315- 763/ 393) -14.0 E04-W08 S58-S54
     13 1068  216 (S53W43 L=115)  1695    213        4 ( 989/ 164-1156/ 275)  11.9 W31-W58 S55-S49
  

    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