Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1049 1738 (N38E23 L=133)  1140    247        2 ( 951/1670-1161/1801)   3.2 E32-E13 N34-N40
      2  721 1726 (N27E43 L=113)  1123    323        0 ( 656/1672- 810/1789)   3.8 E52-E37 N22-N32
      3  538 1679 (N20E54 L=102)   748     95        3 ( 502/1651- 585/1709)  26.6 E58-E49 N17-N21
      4 1112 1608 (N31E13 L=143)   276     73        0 (1098/1565-1125/1645) -63.4 E14-E10 N27-N33
      5  476 1414 (N02E44 L=112)  2087    409        5 ( 407/1275- 607/1559)  90.0 E47-E39 S05-N13
      6 1279 1449 (N25W03 L=159)   324    106        0 (1242/1400-1309/1483) -31.0 W00-W05 N23-N27
      7  781 1331 (N05E22 L=134)   376    147        1 ( 755/1277- 812/1385) -81.9 E23-E20 N01-N08
      8  828 1227 (N00E16 L=140)   208     83        0 ( 816/1189- 840/1273) -56.3 E17-E15 S01-N02
      9 1398 1193 (N14W16 L=172)   250    153        0 (1376/1122-1423/1264) -49.4 W13-W19 N10-N17
     10 1693 1006 (N13W41 L=197)   321    108        0 (1680/ 950-1702/1063) -56.3 W38-W42 N09-N15
     11  570  940 (S22E25 L=131)   337    108        0 ( 557/ 887- 586/ 990) -71.6 E26-E22 S24-S18
     12 1909  768 (N08W74 L=230)  1151     73        0 (1890/ 734-1932/ 801) -76.0 W70-W78 N06-N10
     13 1519  381 (S25W58 L=214)   931    131        0 (1458/ 348-1585/ 414)  54.5 W54-W61 S28-S21
     14 1227  157 (S49W65 L=221)  1363    142        3 (1162/ 116-1287/ 199)   3.8 W52-W85 S50-S47
  

    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