Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  900 1701 (N47E16 L=252)   296     31        0 ( 878/1685- 930/1715)   0.0 E18-E13 N45-N48
      2 1223 1624 (N43W12 L=281)  2604    500        3 ( 974/1578-1430/1676)  -3.0 E08-W30 N40-N46
      3 1717 1527 (N38W61 L=329)  1614    163        2 (1681/1455-1758/1588)  20.6 W52-W76 N32-N42
      4  348 1522 (N29E61 L=208)   466     58        0 ( 329/1499- 368/1547) -56.3 E63-E57 N27-N30
      5 1822 1295 (N22W62 L=331)   805    179        0 (1794/1228-1841/1383)  78.7 W57-W64 N17-N27
      6 1773 1305 (N23W56 L=325)   649    100        0 (1744/1257-1794/1347) -71.6 W53-W58 N19-N25
      7 1158 1159 (N11W08 L=276)  1767    395        3 (1110/ 958-1185/1336) -84.8 W03-W09 N00-N22
      8  448 1151 (N07E39 L=230)  1668    323        2 ( 396/ 997- 492/1303) -70.6 E45-E34 S02-N15
      9  703 1254 (N15E22 L=247)   222     75        0 ( 665/1237- 739/1276)  21.8 E24-E19 N13-N16
     10  619 1172 (N09E27 L=242)   615    168        0 ( 595/1108- 652/1245) -76.0 E28-E23 N05-N13
     11  679  748 (S17E21 L=248)  1145    394        0 ( 618/ 601- 727/ 925)  74.1 E25-E17 S26-S05
     12  959  489 (S33E01 L=267)   302     89        0 ( 915/ 460- 999/ 511)  38.7 E04-W01 S34-S30
     13 1657  451 (S32W58 L=327)  1533     94        3 (1601/ 420-1712/ 481)  -3.6 W50-W67 S34-S29
     14 1468  369 (S39W43 L=311)   577     92        1 (1430/ 352-1520/ 386)  12.5 W38-W48 S40-S37
     15  618  277 (S54E38 L=230)  1918    193        3 ( 524/ 246- 706/ 313)   9.5 E63-E26 S59-S50
  

    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