Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1015 1855 (N58W44 L=328)  2026    282        2 ( 939/1770-1100/1942)   6.7 W28-W79 N53-N60
      2  625 1631 (N56E11 L=272)   580     89        3 ( 580/1595- 664/1661)  -5.7 E16-E06 N53-N58
      3 1584 1494 (N15W51 L=335)   335     57        2 (1556/1480-1616/1512) -36.9 W48-W54 N13-N16
      4  578 1405 (N40E20 L=264)   385     68        1 ( 539/1380- 608/1425)  -8.1 E23-E16 N38-N41
      5 1766  948 (S20W46 L=330)   604    182        0 (1726/ 869-1806/1022)  37.9 W41-W52 S24-S17
      6 1828  937 (S23W53 L=337)   479     96        1 (1801/ 905-1856/ 985)  20.6 W49-W57 S25-S21
      7 1551  722 (S27W24 L=308)   373     68        2 (1522/ 691-1581/ 752) -68.2 W22-W26 S29-S24
      8 1397  680 (S25W13 L=296)   472    182        0 (1319/ 636-1472/ 714)   0.0 W06-W18 S25-S23
      9 1709  645 (S38W38 L=322)   362     66        1 (1688/ 615-1731/ 668)  45.0 W35-W40 S40-S36
     10 1079  573 (S22E09 L=274)   333    239       -1 (1054/ 524-1125/ 603)  33.7 E12-E06 S24-S20
     11 1149  539 (S26E06 L=277)   217      0       -1 (1126/ 496-1162/ 582)  63.4 E08-E05 S28-S22
     12 1237  467 (S34E03 L=280)   683    183        2 (1147/ 446-1312/ 499) -21.8 E08-W02 S35-S29
     13  880  403 (S27E28 L=255)   601    107        1 ( 859/ 350- 904/ 459)  45.0 E31-E24 S30-S23
     14 1599  434 (S51W27 L=311)   709     50        0 (1569/ 402-1630/ 458) -32.0 W23-W31 S54-S47
  

    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