Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  698 1754 (N28E47 L=215)  2050    199        1 ( 651/1662- 731/1837) -45.0 E57-E41 N20-N34
      2  894 1722 (N31E31 L=231)   830    156        2 ( 856/1648- 924/1789) -36.9 E38-E25 N26-N35
      3 1307 1568 (N33W01 L=263)   653    169        1 (1283/1483-1327/1645) -76.0 W00-W03 N27-N39
      4  681 1599 (N17E38 L=224)   574    111        1 ( 640/1552- 725/1631)  68.2 E40-E35 N13-N19
      5 1707 1417 (N38W36 L=298)  1046    131        1 (1677/1358-1738/1481)  65.6 W33-W40 N33-N44
      6  538 1345 (S01E37 L=224)   389     77        1 ( 519/1311- 567/1381) -26.6 E39-E34 S02-N00
      7  124 1217 (S15E78 L=184)  1971    118        0 ( 103/1161- 142/1270)  66.8 E83-E73 S18-S11
      8 1646 1108 (N16W35 L=297)   654    217        0 (1566/1076-1717/1164)  28.6 W28-W39 N12-N21
      9  233 1003 (S27E56 L=206)   327     45        0 ( 204/ 984- 260/1018)  -8.1 E59-E52 S27-S26
     10 1635  626 (S10W51 L=313)   304     86        0 (1587/ 610-1674/ 645)  14.0 W46-W54 S11-S08
     11 1554  460 (S21W55 L=317)   903    139        3 (1502/ 431-1626/ 489)  18.4 W51-W63 S23-S18
     12 1328  452 (S29W39 L=301)  1022    192        2 (1248/ 435-1428/ 483)  32.5 W33-W45 S32-S25
     13 1133  416 (S38W29 L=291)   335     62        0 (1100/ 394-1167/ 436)  11.3 W26-W32 S39-S36
  

    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