Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1705 1217 (S03W47 L=305)   315     68        1 (1693/1172-1716/1255)  53.1 W45-W49 S05-S01
      2  418  924 (N15E40 L=218)   858    130        3 ( 394/ 854- 444/ 999)  53.1 E42-E36 N11-N19
      3 1414  895 (S12W18 L=276)   378     91        1 (1385/ 842-1444/ 933)  38.7 W16-W21 S14-S10
      4 1599  784 (S24W28 L=286)   328    120        0 (1548/ 750-1643/ 822)   7.1 W24-W32 S25-S22
      5 1421  640 (S27W13 L=271)   244     97        0 (1404/ 603-1437/ 686)  59.0 W10-W14 S29-S23
      6 1484  545 (S36W15 L=273)   430    112        1 (1431/ 509-1538/ 585)   5.7 W10-W20 S37-S33
      7  880  322 (S32E32 L=226)   391     69        1 ( 858/ 291- 898/ 358)  59.0 E34-E30 S34-S29
      8  747  261 (S33E45 L=213)   477     59        0 ( 713/ 238- 779/ 285) -78.7 E46-E43 S35-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