Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1260 1440 (N30W19 L=299)   440    119        0 (1237/1389-1287/1497)  81.9 W17-W20 N26-N33
      2 1430 1384 (N25W30 L=311)   258     85        0 (1394/1354-1462/1412) -45.0 W28-W32 N22-N26
      3 1347 1350 (N23W24 L=304)   412     67        0 (1310/1331-1394/1369) -21.8 W21-W26 N21-N24
      4  816 1339 (N25E13 L=268)   205     64        1 ( 789/1313- 839/1361)  18.4 E14-E11 N23-N26
      5  425 1218 (N18E41 L=239)   255     67        0 ( 405/1187- 441/1254)  78.7 E42-E39 N15-N20
      6  931 1150 (N13E05 L=275)   291    103        2 ( 898/1118- 956/1182)  53.1 E07-E03 N10-N14
      7  514 1152 (N14E34 L=247)   227    112        0 ( 482/1113- 558/1176)  31.0 E35-E30 N11-N15
      8 1250  825 (S09W13 L=294)   535    137        3 (1226/ 776-1281/ 888)  56.3 W11-W15 S12-S05
      9 1747  854 (S11W51 L=331)   517     27        0 (1724/ 826-1768/ 879)  90.0 W48-W53 S12-S09
     10 1590  800 (S13W37 L=318)   271    124        0 (1570/ 737-1604/ 846)  90.0 W35-W38 S16-S09
     11 1650  750 (S16W43 L=323)   735    123        3 (1608/ 712-1696/ 789)  23.2 W39-W46 S18-S14
     12 1734  674 (S22W53 L=333)  1129    186        2 (1697/ 598-1776/ 763) -84.8 W49-W56 S27-S16
     13 1796  676 (S23W61 L=342)  1944    214        3 (1757/ 587-1841/ 750)  70.0 W57-W66 S29-S18
     14  278  606 (S21E63 L=217)   984    134        1 ( 262/ 549- 308/ 668)  63.4 E67-E58 S25-S16
  

    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