Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1479 1780 (N54W64 L=158)   874     85        1 (1448/1748-1509/1811)   7.6 W53-W83 N51-N56
      2  646 1711 (N53E38 L= 56)   689    117        1 ( 604/1663- 687/1753)  76.0 E41-E34 N48-N56
      3 1568 1597 (N39W52 L=145)   784    113        1 (1501/1568-1619/1619) -15.3 W44-W57 N36-N40
      4  951 1435 (N31E04 L= 90)  2578    653        4 ( 684/1270-1171/1553) -29.7 E25-W10 N19-N39
      5 1478 1284 (N18W32 L=126)   501    189        0 (1453/1206-1518/1354)  66.0 W29-W36 N13-N22
      6 1279 1058 (N05W16 L=110)   278     58        1 (1249/1033-1312/1078)  14.0 W14-W18 N03-N06
      7 1678  756 (S16W45 L=139)   448    106        1 (1648/ 714-1716/ 807)  63.4 W43-W48 S18-S12
      8 1106  693 (S17W04 L= 98)  1016    250        2 (1039/ 588-1170/ 793)  58.4 W00-W08 S23-S10
      9 1325  455 (S35W21 L=115)  1774    381        3 (1185/ 356-1444/ 548)  39.5 W10-W29 S42-S28
     10  378  510 (S29E55 L= 39)   626    110        0 ( 333/ 478- 425/ 539)  14.0 E64-E48 S31-S26
     11 1633  458 (S37W52 L=146)  4225    394        9 (1475/ 382-1775/ 533)  14.0 W35-W71 S42-S32
     12  850  436 (S34E15 L= 79)   546    133        0 ( 800/ 399- 903/ 476)  29.1 E19-E10 S37-S31
     13  682  393 (S38E30 L= 64)   330     60        0 ( 660/ 366- 706/ 426)  45.0 E32-E26 S39-S34
  

    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