Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1202 1610 (N33W09 L=255)   505     95        1 (1154/1577-1257/1635)  15.9 W05-W12 N30-N35
      2  427 1524 (N24E46 L=200)   918    162        2 ( 388/1454- 455/1603) -51.3 E53-E42 N19-N29
      3  502 1495 (N22E39 L=207)   258     41        1 ( 485/1472- 518/1520)  90.0 E40-E37 N20-N23
      4 1710 1496 (N30W50 L=296)   335     15        0 (1692/1477-1724/1518)  53.1 W47-W52 N28-N32
      5  192 1406 (N17E68 L=178)  2463    151        5 ( 141/1346- 242/1462) -82.9 E77-E60 N12-N20
      6  839 1272 (N09E12 L=234)   212     65        0 ( 812/1246- 876/1292)  45.0 E14-E10 N07-N10
      7  164  938 (S12E63 L=183)  6322      0       14 (  98/ 787- 247/1066)  82.9 E75-E53 S20-S04
      8 1665  548 (S28W53 L=299)  2475    323        5 (1583/ 428-1779/ 638)  66.8 W46-W61 S36-S21
      9  717  548 (S35E19 L=227)  1294    475        2 ( 541/ 475- 901/ 598)   9.5 E35-E05 S41-S31
     10 1469  530 (S32W36 L=282)   383    105        0 (1418/ 505-1521/ 555)  29.7 W32-W39 S33-S29
     11  935  310 (S52E02 L=244)   310     60        0 ( 910/ 287- 966/ 341) -45.0 E04-W00 S54-S49
     12 1238  300 (S50W27 L=273)   425     19        1 (1210/ 279-1261/ 322)  -9.5 W23-W29 S52-S48
     13 1067  295 (S53W11 L=256)   376     73        0 (1028/ 280-1109/ 309)   0.0 W06-W14 S53-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