Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  933 1735 (N37E30 L=300)  1147    215        3 ( 895/1643- 982/1823) -33.7 E39-E21 N31-N43
      2  644 1674 (N25E46 L=284)   727    124        3 ( 613/1620- 680/1738) -28.3 E54-E40 N21-N28
      3 1474 1711 (N56W14 L=344)  1137    124        2 (1416/1684-1534/1735)  28.1 W07-W22 N50-N61
      4 1555 1694 (N59W25 L=355)   467     50        1 (1535/1666-1581/1713) -90.0 W22-W30 N55-N61
      5 1270 1267 (N16W08 L=338)   212     60        0 (1240/1252-1310/1282)   0.0 W05-W10 N14-N17
      6  170 1006 (S25E65 L=265)  1309    189        2 ( 131/ 917- 227/1070)  45.0 E73-E57 S31-S20
      7  502  759 (S33E28 L=302)   679    206        1 ( 411/ 731- 607/ 780)  23.6 E35-E19 S35-S28
      8 1018  613 (S28W11 L=341)   564    126        0 ( 990/ 547-1054/ 669) -83.7 W09-W12 S32-S23
      9 1333  465 (S27W38 L=  8)   544    195        0 (1235/ 434-1411/ 504)  35.0 W31-W41 S31-S22
     10  408  433 (S61E44 L=286)  1041    110        1 ( 372/ 400- 454/ 482) -80.5 E52-E35 S63-S56
     11  507  379 (S62E28 L=302)   811     54        1 ( 480/ 344- 530/ 416) -90.0 E32-E23 S65-S58
     12  873  230 (S61W25 L=355)   485     64        0 ( 855/ 202- 898/ 263) -15.3 W19-W30 S62-S57
     13 1200  224 (S47W50 L= 20)   405     52        0 (1185/ 201-1220/ 255) -24.0 W45-W54 S48-S44
  

    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