Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1329 1827 (N56W23 L= 69)   443    108        0 (1294/1813-1381/1841)   5.2 W18-W29 N53-N57
      2 1273 1712 (N43W14 L= 60)   564    109        1 (1231/1678-1313/1739)  29.7 W10-W17 N39-N46
      3 1401 1659 (N40W24 L= 70)   427     96        2 (1380/1612-1418/1693)  74.1 W22-W25 N36-N43
      4 1543 1620 (N39W36 L= 82)  1527    208        3 (1463/1560-1614/1662) -14.0 W28-W42 N34-N41
      5 1083 1610 (N33E01 L= 46)   663    145        1 (1026/1549-1124/1647) -39.8 E04-W02 N28-N35
      6 1650 1538 (N34W43 L= 90)   382     49        0 (1633/1511-1669/1568)  68.2 W41-W45 N31-N36
      7 1740 1495 (N32W51 L= 97)  1492    224        2 (1683/1461-1801/1529) -10.3 W44-W58 N29-N34
      8  543 1455 (N19E35 L= 11)   294    139        0 ( 486/1442- 609/1467)   6.3 E39-E30 N18-N19
      9  264 1354 (N12E57 L=349)   899    229        1 ( 214/1285- 306/1394) -32.5 E63-E51 N07-N14
     10 1619 1232 (N13W37 L= 83)   430    101        2 (1594/1179-1637/1284) -80.5 W35-W38 N09-N15
     11 1382 1100 (N02W21 L= 67)   688    236        1 (1307/ 990-1440/1224) -50.2 W15-W25 S03-N09
     12 1736  635 (S21W55 L=101)   471    114        0 (1696/ 607-1784/ 664)  29.7 W52-W59 S23-S18
     13  524  575 (S35E34 L= 12)   611    138        0 ( 473/ 550- 597/ 614) -11.3 E38-E28 S37-S32
  

    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