Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  668 1786 (N30E54 L=256)  1046    157        0 ( 627/1717- 721/1848) -61.7 E58-E49 N23-N36
      2 1240 1828 (N54E18 L=292)   383     41        0 (1212/1816-1268/1842)  45.0 E20-E15 N51-N55
      3  894 1807 (N38E39 L=271)   451     52        1 ( 866/1792- 931/1828)   9.5 E41-E35 N36-N39
      4  919 1517 (N19E21 L=289)  2147    575        8 ( 880/1284- 954/1783) -54.3 E36-E12 N04-N36
      5  436 1390 (S01E47 L=263)   272     38        0 ( 413/1374- 456/1410)  26.6 E48-E45 S01-N00
      6  240 1146 (S19E57 L=252)   439     81        1 ( 214/1108- 260/1193)  80.5 E59-E56 S21-S15
      7 1462  591 (S16W40 L=350)   248     45        1 (1440/ 562-1489/ 615)   0.0 W37-W42 S18-S15
      8 1567  528 (S16W51 L=  1)   334     76        1 (1531/ 508-1602/ 548)  59.0 W48-W53 S18-S13
      9 1279  497 (S27W34 L=344)  1076    225        3 (1189/ 475-1396/ 538)  42.0 W28-W38 S30-S21
     10 1547  461 (S20W54 L=  4)  1772    252        4 (1461/ 409-1651/ 537)  65.2 W47-W59 S25-S12
     11  527  366 (S65E21 L=289)   409     36        1 ( 503/ 347- 549/ 384)  -8.1 E25-E17 S67-S62
     12  836  296 (S57W18 L=328)   600     72        2 ( 806/ 264- 861/ 333) -60.3 W15-W21 S60-S53
     13  681  289 (S65W04 L=314)  1405    111        2 ( 622/ 253- 733/ 320)  19.7 E04-W12 S68-S61
  

    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