Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  859 1763 (N44E32 L=209)   656     56        1 ( 836/1729- 891/1794) -50.2 E35-E28 N41-N47
      2  782 1585 (N30E28 L=214)   273     65        0 ( 766/1555- 797/1622) -59.0 E29-E25 N27-N32
      3  277 1518 (N17E71 L=171)   835     59        1 ( 248/1499- 309/1541)  -3.6 E80-E64 N15-N18
      4 1745 1489 (N42W55 L=296)   611     84        0 (1703/1465-1788/1509)  -4.8 W48-W62 N41-N43
      5 1252 1325 (N21W09 L=251)   219     85        1 (1219/1289-1283/1355) -31.0 W06-W11 N19-N22
      6 1053 1218 (N11E01 L=240)  1509    427        2 ( 970/1123-1160/1286)  38.7 E06-W04 N05-N16
      7  802 1166 (N04E16 L=226)   446    158        0 ( 790/1086- 816/1249) -69.4 E17-E13 N00-N08
      8 1165 1203 (N12W05 L=247)   368    169        1 (1089/1180-1244/1225)  11.3 W00-W10 N10-N13
      9  235 1063 (S11E56 L=185)   390    121        1 ( 225/1000- 249/1121)  90.0 E57-E55 S14-S07
     10 1246 1061 (N05W13 L=254)   203     78        0 (1233/1016-1259/1097) -59.0 W11-W14 N02-N07
     11 1306 1081 (N07W16 L=257)   211    102        0 (1269/1064-1353/1097)   9.5 W13-W19 N05-N08
     12 1061  853 (S10W05 L=247)  1023    345        2 ( 983/ 716-1146/ 994)  75.3 W02-W07 S19-N00
     13  176  899 (S22E64 L=178)  1260    166        1 ( 116/ 847- 235/ 944)  16.9 E78-E55 S26-S18
     14 1491  657 (S15W37 L=278)   435    108        0 (1443/ 617-1528/ 687) -20.6 W32-W40 S16-S13
     15  526  359 (S56E35 L=206)  1643    183        2 ( 454/ 315- 602/ 405) -12.5 E43-E25 S58-S51
  

    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