Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1311 1761 (N56W17 L= 85)   856    149        1 (1230/1739-1379/1785)  -3.2 W07-W25 N54-N57
      2  708 1532 (N29E29 L= 39)  1165    228        2 ( 672/1415- 767/1602) -85.6 E31-E26 N21-N34
      3  400 1533 (N25E56 L= 12)   568     92        0 ( 369/1489- 444/1564)  68.2 E57-E52 N21-N27
      4  509 1436 (N20E41 L= 27)   262     78        0 ( 477/1419- 557/1451)  18.4 E43-E37 N18-N21
      5  448 1161 (N03E39 L= 29)   731    174        2 ( 381/1092- 496/1204) -18.4 E44-E34 N00-N05
      6 1709 1140 (N15W46 L=114)   315     72        0 (1690/1102-1725/1176) -68.2 W44-W47 N12-N17
      7 1518  958 (N02W32 L=100)   540     81        1 (1488/ 917-1538/ 999) -36.9 W29-W33 N00-N04
      8  890  918 (S07E07 L= 61)   502    167        0 ( 847/ 854- 947/ 971)  63.4 E09-E03 S11-S03
      9 1770  677 (S12W60 L=128)  1220    145        1 (1733/ 615-1812/ 741)  90.0 W56-W63 S16-S08
     10 1801  634 (S15W66 L=134)   489    106        1 (1777/ 603-1818/ 694) -71.6 W63-W69 S16-S10
     11 1650  593 (S19W51 L=119)   470     93        0 (1610/ 571-1691/ 623)  15.9 W46-W54 S20-S16
     12 1687  492 (S25W61 L=129)   539     72        0 (1654/ 468-1722/ 515)  26.6 W58-W64 S27-S23
     13 1416  316 (S41W46 L=114)  1336    190        3 (1353/ 279-1506/ 360)  35.0 W40-W51 S44-S36
  

    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