Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  654 1612 (N24E37 L=171)   262     74        0 ( 623/1577- 670/1643)  90.0 E38-E35 N21-N26
      2 1576 1572 (N40W31 L=239)   364     36        1 (1559/1549-1598/1602) -76.0 W29-W33 N38-N42
      3  323 1550 (N16E64 L=144)   481     72        1 ( 294/1527- 345/1570)   8.1 E67-E60 N14-N17
      4 1408 1420 (N24W17 L=225)   326    106        0 (1366/1394-1458/1446)  -8.1 W14-W21 N23-N25
      5 1604 1342 (N24W33 L=240)   451    115        0 (1558/1298-1644/1381) -20.6 W28-W36 N21-N25
      6  134 1115 (S12E71 L=136)  3713    193        8 (  86/1050- 194/1198)  31.0 E83-E63 S15-S06
      7  315  814 (S29E49 L=159)  1367    229        2 ( 215/ 778- 417/ 840)   7.4 E61-E38 S31-S27
      8 1606  671 (S15W46 L=253)   429    137        0 (1556/ 637-1653/ 718)  60.3 W42-W47 S18-S11
      9 1816  673 (S10W66 L=274)   705     92        0 (1776/ 644-1856/ 701)  32.0 W61-W71 S12-S07
     10 1049  663 (S27W08 L=216)   236     84        0 (1009/ 653-1097/ 678)   9.5 W05-W11 S28-S26
     11 1712  647 (S14W56 L=263)   389     55        1 (1692/ 618-1730/ 672) -71.6 W53-W57 S15-S12
     12 1462  516 (S28W42 L=249)  3002    517        6 (1249/ 458-1708/ 586)  28.0 W27-W59 S35-S17
     13  326  463 (S53E66 L=142)   580     85        0 ( 303/ 426- 355/ 499)  11.3 E80-E55 S56-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