Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1170 1634 (N43W08 L=278)  3093    676        7 ( 856/1575-1429/1717)  -8.1 E20-W29 N39-N48
      2 1727 1574 (N41W67 L=338)  1179     78        0 (1692/1556-1771/1589)   2.5 W59-W83 N39-N42
      3 1693 1512 (N37W56 L=326)  1462    139        2 (1625/1456-1757/1550)   5.4 W47-W68 N32-N39
      4 1781 1299 (N22W57 L=328)  1781    344        1 (1722/1229-1835/1397) -78.7 W51-W62 N17-N28
      5 1120 1159 (N11W05 L=276)  1975    445        3 (1061/ 949-1146/1351) -75.4 W00-W07 S01-N22
      6  418 1150 (N06E41 L=230)  1684    339        2 ( 372/1000- 455/1317) -71.6 E47-E37 S02-N16
      7  683 1261 (N15E23 L=247)   206     78        1 ( 645/1242- 720/1287)  26.6 E25-E21 N13-N16
      8  588 1183 (N09E29 L=242)   606    172        0 ( 563/1120- 625/1254) -82.9 E30-E25 N05-N13
      9  657  766 (S16E22 L=248)  1321    429        0 ( 588/ 600- 697/ 926)  72.3 E27-E19 S27-S05
     10 1657  461 (S31W58 L=328)  2169    208        8 (1577/ 419-1750/ 514)  12.5 W47-W68 S34-S27
     11 1445  374 (S39W40 L=311)   577     72        1 (1406/ 356-1485/ 396)   0.0 W36-W44 S40-S36
     12  666  290 (S52E31 L=240)   474     36        2 ( 645/ 267- 690/ 314)  39.8 E34-E27 S54-S49
     13  580  276 (S55E44 L=226)  1217     98        4 ( 528/ 242- 629/ 313)  14.0 E59-E34 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