Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1153 1842 (N65W24 L=344)  1815    250        1 (1023/1815-1258/1870)   1.4 W04-W46 N62-N67
      2  430 1610 (N43E58 L=262)   485     76        1 ( 409/1573- 449/1642) -22.6 E63-E51 N40-N45
      3 1426 1549 (N36W35 L=354)   449     96        1 (1378/1533-1471/1564) -14.0 W30-W38 N35-N37
      4  753 1362 (N26E18 L=302)  1162    383        2 ( 691/1266- 844/1457) -53.1 E22-E11 N19-N32
      5 1380 1382 (N25W26 L=346)   409    106        1 (1352/1323-1395/1424)  81.9 W24-W27 N21-N28
      6  374 1352 (N25E49 L=270)   582    108        1 ( 350/1306- 391/1408) -71.6 E51-E46 N22-N28
      7  362 1168 (N14E46 L=273)   475    135        2 ( 324/1139- 403/1195)  -7.1 E50-E42 N11-N15
      8 1748  859 (S10W51 L= 11)   536     45        0 (1725/ 830-1771/ 881)  45.0 W49-W53 S11-S08
      9  563  798 (S09E31 L=289)  1165    270        1 ( 469/ 734- 642/ 836)  -8.7 E38-E25 S13-S06
     10  414  803 (S09E42 L=277)   331     32        0 ( 394/ 780- 441/ 828)  45.0 E44-E39 S10-S07
     11 1082  680 (S18W03 L=322)   466    162        1 (1060/ 602-1098/ 755)  78.7 W01-W03 S22-S12
     12 1568  650 (S22W38 L=357)   336    120        0 (1541/ 603-1608/ 699)  60.3 W36-W40 S25-S18
     13  755  660 (S18E19 L=301)   221     81        0 ( 723/ 639- 774/ 694)  26.6 E21-E17 S19-S16
     14 1441  540 (S29W29 L=349)   297     66        1 (1419/ 517-1459/ 577)  90.0 W27-W30 S30-S26
     15 1399  478 (S33W27 L=346)   700    129        2 (1360/ 445-1444/ 520) -29.1 W22-W31 S36-S29
  

    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