Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  865 1615 (N39E18 L=304)  5891    951        8 ( 489/1495-1273/1773)  -6.6 E72-W14 N31-N47
      2  412 1470 (N24E50 L=271)   453     93        0 ( 389/1444- 444/1509) -20.6 E54-E46 N22-N26
      3 1417 1381 (N27W25 L=346)   652    255        0 (1334/1301-1471/1480) -50.7 W18-W28 N21-N33
      4  231 1412 (N19E69 L=253)  1543    118        4 ( 196/1370- 263/1464)  90.0 E75-E65 N15-N22
      5 1101 1356 (N23W03 L=324)   492    193        3 (1068/1281-1139/1452) -70.0 W00-W05 N18-N29
      6 1208 1365 (N24W10 L=331)   420    116        1 (1193/1303-1222/1425)  90.0 W08-W10 N20-N28
      7  394 1393 (N19E49 L=273)   294     56        0 ( 377/1366- 410/1422) -76.0 E50-E47 N17-N21
      8 1854 1207 (N18W64 L= 26)  1743    185        4 (1799/1128-1911/1276) -45.0 W57-W72 N13-N22
      9  327 1128 (N03E49 L=273)  1973    281        1 ( 295/ 988- 352/1266) -86.6 E50-E46 S06-N11
     10 1620 1246 (N19W40 L=  1)   302     70        0 (1580/1236-1660/1258)   8.1 W36-W43 N18-N20
     11 1899  959 (N03W69 L= 31)   676     78        2 (1869/ 924-1932/ 983)  15.3 W64-W75 N00-N04
     12  551  771 (S17E29 L=292)   263     85        0 ( 510/ 756- 588/ 791)  -9.5 E32-E26 S18-S16
     13 1305  654 (S19W21 L=343)  1057    231        1 (1203/ 616-1417/ 693)  23.2 W14-W28 S22-S15
     14 1009  521 (S30W03 L=325)   718    138        2 ( 946/ 498-1082/ 544)  20.6 E01-W07 S32-S28
     15  658  378 (S45E26 L=296)   330     32        1 ( 635/ 362- 684/ 400)   0.0 E28-E23 S46-S43
  

    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