Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1051 1772 (N45E09 L=258)  1329    241        1 ( 919/1737-1151/1811)  -5.4 E21-W00 N43-N47
      2 1535 1631 (N41W34 L=300)   488     87        0 (1489/1607-1576/1650)   0.0 W29-W37 N39-N42
      3  782 1479 (N20E21 L=246)   934    209        1 ( 708/1405- 861/1548) -28.3 E27-E14 N15-N24
      4 1333 1504 (N28W15 L=282)   331     72        0 (1292/1480-1365/1525)   0.0 W12-W17 N26-N29
      5  239 1482 (N18E69 L=197)   681     53        0 ( 218/1466- 266/1510) -15.3 E75-E64 N16-N19
      6 1254 1466 (N24W10 L=277)   287     77        0 (1219/1440-1294/1494) -21.8 W07-W12 N23-N26
      7 1485 1431 (N25W26 L=293)   389     43        0 (1461/1399-1512/1462) -63.4 W24-W28 N23-N27
      8 1683 1226 (N15W42 L=309)   639    156        0 (1645/1155-1723/1291) -49.4 W38-W45 N11-N18
      9 1521 1262 (N15W29 L=296)   240     36        0 (1504/1232-1537/1287) -76.0 W27-W30 N12-N16
     10  226  749 (S28E61 L=206)  1043    145        0 ( 204/ 687- 267/ 810)  28.3 E67-E54 S31-S24
     11 1553  751 (S15W38 L=305)   360    112        0 (1501/ 734-1612/ 772)   0.0 W33-W42 S15-S14
     12  982  641 (S29W02 L=269)  1251    367        2 ( 855/ 524-1110/ 745)  48.8 E06-W08 S38-S21
     13 1753  680 (S16W58 L=325)  1453    197        2 (1711/ 616-1825/ 725)  45.0 W53-W67 S20-S13
  

    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